Boa noite,
Prezados, um pessoa 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 macro 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!