Buka microsoft WORD, tampilan, makro, tampilkan makro, buat 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
Definisikan kotak dialog pemilihan folder
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 loop dokumen dalam bagian
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 Nomor Halaman
MyRange Fields Add Range:=myRange, Type:=wdFieldEmpty, Text:=”PAGE”, PreserveFormatting:=True
MyRange ParagraphFormat Alignment=wdAlignParagraphCenter ‘Center page numbers
Next
ODoc Close True
Next
Akhir Jika
End With
End Sub
Whatsapp+8613603031172
