Boa noite,

Prezados, um amigo deste fórum me ajudou 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.

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!