Padam dan gantikan pengepala dan pengaki dokumen Microsoft Word secara batch

Buka microsoft WORD, tampilan, makro, tampilan makro, cipta makro baru

Sub a()

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

Dim oFile As Variant, myRange As Range

On Error Resume Next

Tentukan kotak dialog pemilihan folder

Set myDialogue=Application FileLog (msoFileDialogFilePicker)

With myDialogs

. Filters. Clear ‘Kosongkan semua item dalam penapis fail

. Filters. Add “Semua Fail Word”, “*.doc, *.docx”, 1 ‘Tambahkan penapis untuk semua fail Word

. AllowMultiSelect=True ‘Benarkan pemilihan berbilang

If Show=-1 Then ‘OK

For Each oFile In SelectedItems’ ulangi melalui semua item yang dipilih

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

For Each oSec In oDoc Sections' ulangi dokumen dalam seksyen

Set myRange=oSec Headers (wdHeaderFooterPrimary) Range

MyRange Delete ‘Padam kandungan dalam header

MyRange Text=”www.jincan.net”

MyRange ParagraphFormat Alignment=wdAlignParagraphCenter ‘Tengahkan teks

MyRange ParagraphFormat Borders (wdBorderBottom) LineStyle=wdLineStyleNone ‘Garis sempadan perenggan bahagian bawah

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