Prezados
Tenho muitos arquivos word e tempo atrás precisei da ajuda de vocês para fazer esta macro abaixo para alterar a fonte de todos os arquivos sem ter que abrir um por um.
Agora preciso alterar também todas as margens para 1 cm de todos os lados e o zoom para 80%.
Peço ajuda mais uma vez para vocês, como faço?
Grato
AdrianoPires
Sub pMain()
'Altere aqui o caminho do diretório que contém os arquivos que você quer formatar.
Const csDiretório As String = "c:\WORD\"
Dim doc As Word.Document
Dim oFile As Object 'Scripting.File
Dim oFolder As Object 'Scripting.Folder
Dim oFSO As Object 'Scripting.FileSystemObject
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFolder = oFSO.GetFolder(csDiretório)
For Each oFile In oFolder.Files
If LCase(oFSO.GetExtensionName(oFile.Path)) Like "doc*" Then
Set doc = Documents.Open(oFile.Path)
doc.Content.Select
Selection.Style = doc.Styles(wdStyleNormal)
Selection.Font.Color = wdColorBlack
Selection.Font.Bold = False
Selection.Font.Italic = False
Selection.Font.Size = 10
Selection.Font.Name = "ARIAL"
Selection.ParagraphFormat.Alignment = wdAlignParagraphJustify
doc.Close SaveChanges:=wdSaveChanges
DoEvents
End If
Next oFile
End Sub
