Este fórum foi descontinuado. LEIA AQUI e participe da Comunidade BABOO :)

Ir para conteúdo
Arthur Scholler

Como repetir uma macro para vários arquivos do Word?

Mensagem Recomendada

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!

Compartilhar este post


Link para o post
Compartilhar em outros sites

×
×
  • Criar Novo...