Masowe usuwanie i zastępowanie nagłówka i stopki dokumentów programu Microsoft Word

Otwórz program Microsoft WORD, wyświetl makro, wyświetl makro, utwórz nowe makro

Pod a()

Przyciemnij myDialogs jako FileDialogs, oDoc jako Documents, oSecs jako Sections

Przyciemnij oFile jako wariant, myRange jako zakres

W przypadku błędu Wznów Dalej

Zdefiniuj okno dialogowe wyboru folderu

Ustaw myDialogue=Application FileLog (msoFileDialogFilePicker)

Z myDialogs

. Filtry. Wyczyść 'Usuwa wszystkie elementy w filtrach pliku

. Filtry. Dodaj „Wszystkie pliki Word”, „*. doc, *. docx”, 1 'Dodaj filtry do wszystkich plików Word

. AllowMultiSelect=True 'Zezwalaj na wielokrotne zaznaczenia

Jeśli Pokaż=-1 Wtedy „OK”

Dla każdego pliku w pętli SelectedItems przejdź przez wszystkie wybrane elementy

Ustaw oDoc=Otwórz dokumenty Word (FileName:=oFile, Visible:=False)

Dla każdej sekcji oDoc w sekcji dokumentu pętla dokumentu

Ustaw myRange=oSec Nagłówki (wdHeaderFooterPrimary) Zakres

MyRange Usuń „Usuń zawartość w nagłówku”

Mój zakres Tekst = „www.jincan.net”

MyRange ParagraphFormat Wyrównanie=wdAlignParagraphCenter 'Wyśrodkuj tekst

MyRange ParagraphFormat Borders (wdBorderBottom) LineStyle=wdLineStyleNone 'Linia dolnej krawędzi akapitu

Z czcionką myRange

Zakończ z

Ustaw myRange=oSec Stopki (wdHeaderFooterPrimary) Zakres

MyRange Usuń „Usuń zawartość stopki”

Zwiń MyRange wdCollapseEnd

MyRange Wstaw po numerze strony

Pola MyRange Dodaj zakres:=myRange, Typ:=wdFieldEmpty, Tekst:=”PAGE”, Zachowaj formatowanie:=True

MyRange ParagraphFormat Alignment=wdAlignParagraphCenter 'Wyśrodkuj numery stron

Następny

ODoc Zamknij Prawda

Następny

Koniec jeśli

Zakończ z

Zakończ subskrypcję