Como repetir uma macro para vários arquivos do Word

Visual Basic for Aplication e macros no Excel.
Regras do fórum
Sua dúvida foi respondida? Marque como RESOLVIDO em seus tópicos, usando o botão com marca verde. Imagem

Como repetir uma macro para vários arquivos do Word

Mensagempor ArthurS » Qua Out 11, 2017 6:22 pm

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.

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!
ArthurS
Membro
Membro
 
Mensagens: 25
Registrado em: Seg Out 09, 2017 9:58 am
Has thanked: 4 times
Have thanks: 1 time

{ SO_SELECT }

Re: Como repetir uma macro para vários arquivos do Word

Mensagempor brunoxro » Dom Out 15, 2017 7:49 pm

Boa tarde,

Anexe um arquivo de exemplo e explique mais detalhadamente o que você precisa.

att,
Avatar do usuário
brunoxro
Membro
Membro
 
Mensagens: 669
Registrado em: Qui Abr 21, 2016 10:13 pm
Has thanked: 7 times
Have thanks: 198 times


Voltar para VBA & Macros

Quem está online

Usuários navegando neste fórum: Google Adsense [Bot], Google Feedfetcher e 6 visitantes