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

[Arthur.Fenix]

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!

[CasaDoHardware]

O que você quer fazer exatamente?

[Arthur.Fenix]

Os arquivos são bem idênticos, quero editar um texto em um arquivo grava a macro de edição e replicar nos outros arquivos, ou então mexer na edição do rodapé e rodar a macro para mexer em todos os rodapés, acrescentar um texto em todos os arquivos, apagar o texto. Coisas do gênero, pois são quase 500 arquivos a serem editados a mesma coisa. 

[CasaDoHardware]

Disponibilize alguns arquivos como exemplo

 

Informe as alterações em um arquivo de como deve ser o resultado final.

 

Ou seja o arquivo tem essas informações e deve ficar com essas apos a macro.

[ArthurP]

Não é uma única alteração, são diversas.

 Pois isso queria saber se tem uma meio genérica parecida com esta acima, para ir ajustando a necessidade. um exemplo é: é rodar esta macro gravada em todos os arquivos.

    Documents.Open FileName:="3024-01-71-G-10448.docx", ConfirmConversions:= _
        False, ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:="", _
        PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _
        WritePasswordTemplate:="", Format:=wdOpenFormatAuto, XMLTransform:=""
    With ActiveDocument.Styles("título 1").ParagraphFormat
        .LeftIndent = CentimetersToPoints(0.25)
        .RightIndent = CentimetersToPoints(0.25)
        .SpaceBefore = 18
        .SpaceBeforeAuto = False
        .SpaceAfter = 12
        .SpaceAfterAuto = False
        .LineSpacingRule = wdLineSpaceSingle
        .Alignment = wdAlignParagraphLeft
        .WidowControl = True
        .KeepWithNext = True
        .KeepTogether = True
        .PageBreakBefore = False
        .NoLineNumber = False
        .Hyphenation = True
        .FirstLineIndent = CentimetersToPoints(0)
        .OutlineLevel = wdOutlineLevel1
        .CharacterUnitLeftIndent = 0
        .CharacterUnitRightIndent = 0
        .CharacterUnitFirstLineIndent = 0
        .LineUnitBefore = 0
        .LineUnitAfter = 0
        .MirrorIndents = False
        .TextboxTightWrap = wdTightNone
        .CollapsedByDefault = False
    End With
    ActiveDocument.Styles("título 1").NoSpaceBetweenParagraphsOfSameStyle = _
        False
    With ActiveDocument.Styles("título 1").ParagraphFormat
        With .Shading
            .Texture = wdTextureNone
            .ForegroundPatternColor = wdColorAutomatic
            .BackgroundPatternColor = 5296274
        End With
        With .Borders(wdBorderLeft)
            .LineStyle = wdLineStyleSingle
            .LineWidth = wdLineWidth050pt
            .Color = 5296274
        End With
        With .Borders(wdBorderRight)
            .LineStyle = wdLineStyleSingle
            .LineWidth = wdLineWidth050pt
            .Color = 5296274
        End With
        With .Borders(wdBorderTop)
            .LineStyle = wdLineStyleSingle
            .LineWidth = wdLineWidth050pt
            .Color = 5296274
        End With
        With .Borders(wdBorderBottom)
            .LineStyle = wdLineStyleSingle
            .LineWidth = wdLineWidth050pt
            .Color = 5296274
        End With
        With .Borders
            .DistanceFromTop = 4
            .DistanceFromLeft = 6
            .DistanceFromBottom = 4
            .DistanceFromRight = 6
            .Shadow = False
        End With
    End With
    With ActiveDocument.Styles("título 1")
        .AutomaticallyUpdate = False
        .BaseStyle = "Normal"
        .NextParagraphStyle = "Normal"
    End With
  
    Selection.MoveRight Unit:=wdWord, Count:=6, Extend:=wdExtend
    With Selection.Font
        .Name = "+Títulos"
        .Size = 25
        .Bold = True
        .Italic = False
        .Underline = wdUnderlineNone
        .UnderlineColor = wdColorAutomatic
        .StrikeThrough = False
        .DoubleStrikeThrough = False
        .Outline = False
        .Emboss = False
        .Shadow = False
        .Hidden = False
        .SmallCaps = False
        .AllCaps = True
        .Color = 5296274
        .Engrave = False
        .Superscript = False
        .Subscript = False
        .Spacing = 0
        .Scaling = 100
        .Position = 0
        .Kerning = 14
        .Animation = wdAnimationNone
        .Ligatures = wdLigaturesNone
        .NumberSpacing = wdNumberSpacingDefault
        .NumberForm = wdNumberFormDefault
        .StylisticSet = wdStylisticSetDefault
        .ContextualAlternates = 0
    End With
    Selection.MoveDown Unit:=wdLine, Count:=5
    With Selection.Font
        .Name = "+Títulos"
        .Size = 10
        .Bold = False
        .Italic = False
        .Underline = wdUnderlineNone
        .UnderlineColor = wdColorAutomatic
        .StrikeThrough = False
        .DoubleStrikeThrough = False
        .Outline = False
        .Emboss = False
        .Shadow = False
        .Hidden = False
        .SmallCaps = False
        .AllCaps = True
        .Color = 5296274
        .Engrave = False
        .Superscript = False
        .Subscript = False
        .Spacing = 0
        .Scaling = 100
        .Position = 0
        .Kerning = 10
        .Animation = wdAnimationNone
        .Ligatures = wdLigaturesNone
        .NumberSpacing = wdNumberSpacingDefault
        .NumberForm = wdNumberFormDefault
        .StylisticSet = wdStylisticSetDefault
        .ContextualAlternates = 0
    End With
    ActiveDocument.Save
    ActiveWindow.Close

 no Excel na macro acima eu gravava uma alteração jogava em "Cole/Digite a macro criada para se repetir" e mandava executar, ai selecionava os arquivos que a macro iria rodar para fazer as alterações.

 

existe esta possibilidade no Word? 

 

Obrigado!