Eliminar y reemplazar por lotes el encabezado y pie de página de documentos de Microsoft Word

Abra microsoft WORD, vista, macro, ver macro, crear una nueva macro

Sub a()

Dim myDialogs As FileDialogs, oDoc As Documents, oSecs As Sections

Dim oFile As Variant, myRange As Range

On Error Resume Next

Define una selección de diálogo de carpeta

Set myDialogue=Application FileLog (msoFileDialogFilePicker)

With myDialogs

. Filters. Clear ‘Clears all items in the file filters

. Filters. Add “All Word Files”, “*. doc, *. docx”, 1 ‘Add filters to all Word files

. AllowMultiSelect=True ‘Allow multiple selections

If Show=-1 Then ‘OK

For Each oFile In SelectedItems’ loop through all selected items

Set oDoc=Word Documents Open (FileName:=oFile, Visible:=False)

For Each oSec In oDoc Sections bucle dentro de las secciones del documento

Set myRange=oSec Headers (wdHeaderFooterPrimary) Range

MyRange Delete ‘Delete the content in the header

MyRange Text=”www.jincan. net”

MyRange ParagraphFormat Alignment=wdAlignParagraphCenter ‘Center text

MyRange ParagraphFormat Borders (wdBorderBottom) LineStyle=wdLineStyleNone ‘Paragraph bottom border line

With myRange Font

End With

Set myRange=oSec Footers (wdHeaderFooterPrimary) Range

MyRange Delete ‘Delete the content in the footer

MyRange Collapse wdCollapseEnd

MyRange InsertAfter Page Number

MyRange Fields Add Range:=myRange, Type:=wdFieldEmpty, Text:=”PAGE”, PreserveFormatting:=True

MyRange ParagraphFormat Alignment=wdAlignParagraphCenter ‘Center page numbers

Next

ODoc Close True

Next

End If

End With

End Sub