Como repetir uma macro para vários arquivos do Word

[ArthurS]

Boa noite,

Prezados, uma vez me ajudaram muito com uma macro em Excel, que repetia qualquer processo de Excel colocado nela em vários arquivos de Excel.

Agora meu caso é no Word, preciso que a macro rode em vários arquivos do word.

segue a baixo a programação em Excel que em ajudou muito, queria ver se é possível adaptar para rodar em word. 
 

CÓDIGO: SELECIONAR TODOS

Sub Executar()
On Error GoTo erro_executa
Dim arq() As Variant
Dim wbnew As Workbook, wb As Workbook
Dim wnew As Worksheet
Dim c As String
arq = Application.GetOpenFilename("arquivos do excel (*.xl*),*.xl*", MultiSelect:=True)
Set wb = ThisWorkbook



Application.ScreenUpdating = False


For A = LBound(arq()) To UBound(arq())

arquivoAberto = arq(A)
Application.Workbooks.Open arquivoAberto
Set wbnew = ActiveWorkbook
wbnew.Worksheets(1).Activate
Set wnew = ActiveSheet

'-------------------------
    'Cole/Digite a macro criada para se repetir
'------------------------

Application.DisplayAlerts = False
wbnew.Close True
Application.DisplayAlerts = True

Next A

Application.ScreenUpdating = True

wb.Worksheets(1).Select
MsgBox "Concluído"

Exit Sub
erro_executa:

Application.ScreenUpdating = True
MsgBox "Ocorreu um erro"

End Sub

Obrigado!