Microsoft Word belgelerinin üstbilgisini ve altbilgisini toplu olarak silin ve değiştirin

Microsoft WORD'ü açın, görüntüleyin, makroyu görüntüleyin, makroyu görüntüleyin, yeni bir makro oluşturun

Alt a()

myDialogs'u FileDialogs olarak, oDoc'u Belgeler olarak, oSec'leri Bölümler olarak Dim

Dim oFile As Variant, myRange As Range

Hata Durumunda Sonraki Devam Et

Klasör seçimi iletişim kutusunu tanımlama

myDialogue=Uygulama Dosya Günlüğünü Ayarla (msoFileDialogFilePicker)

myDialogs'la

. Filtreler. 'Temizle' Dosya filtrelerindeki tüm öğeleri temizler

. Filtreler. “Tüm Word Dosyaları”, “*. doktor, *. docx”, 1 'Tüm Word dosyalarına filtre ekle

. AllowMultiSelect=True 'Birden fazla seçime izin ver

Göster=-1 ise O zaman 'Tamam

Seçilen Öğelerdeki Her bir oFile için seçilen tüm öğeler arasında döngü

Set oDoc=Word Belgeleri Aç (FileName:=oFile, Visible:=False)

oDoc Bölümlerindeki Her bir oSec için bölümler içindeki belge döngüsü

myRange=oSec Başlıklarını Ayarla (wdHeaderFooterPrimary) Aralığı

MyRange Sil 'Başlıktaki içeriği sil

MyRange Text=”www.jincan. açık"

MyRange ParagraphFormat Alignment=wdAlignParagraphCenter 'Metni ortala

MyRange ParagraphFormat Borders (wdBorderBottom) LineStyle=wdLineStyleNone 'Paragraf alt kenar çizgisi

myRange Yazı Tipi ile

İle bitmek

myRange=oSec Altbilgilerini Ayarla (wdHeaderFooterPrimary) Aralığı

MyRange Sil 'Alt bilgideki içeriği sil

MyRange Collapse wdCollapseEnd

MyRange InsertAfter Sayfa Numarası

MyRange Alanları Aralık Ekle:=myRange, Type:=wdFieldEmpty, Text:=”PAGE”, PreserveFormatting:=True

MyRange ParagraphFormat Alignment=wdAlignParagraphCenter 'Sayfa numaralarını ortala

Sonraki

ODoc Kapat Doğru

Sonraki

Eğer Sonlandır

İle bitmek

Son Alt