如何通過VBA修改WORD標題？

其實通過巨集錄製，大家可以完全理解，有些問題自己也可以輕鬆解決，巨集錄製是學習VBA非常重要的一步，大家要多嘗試一下：

如下。 if <>wdpanenone thenend if

if = wdnormalview or activewindow. _

wdoutlineview then

wdprintview

end if

wdseekcurrentpageheader"空白").insert where:= _,richtext:=true

text:="黑暗，黑暗，黑暗"

修改如下：sub deletes header footer （）。

dim myrange as range

on error resume next

for each osec in '文件部分中的迴圈。

set myrange =

刪除標題中的內容。

wdlinestylenone '段落下邊界線。

set myrange =

刪除頁尾中的內容。

nextend sub

親愛的，這句話需要改一下：

replace(replace(, "abc", 111"），chr（13），因為，如果你仔細觀察，你會發現標題中的文字在末尾有乙個回車符，就像乙個段落的結尾或**一樣，它也是標題的一部分。你可以使用 len （檢視標頭的長度，其中包括末尾的回車符 （chr（13））。 因此，當您將其替換為 replace 時，回車符仍然存在。

備註：關鍵是，在分配值時，Word VBA預設不包含最後乙個回車符; 程式設計更容易，否則每次都要記得在末尾加乙個chr（13），這會讓你煩死的！

最後，解決方案是在分配值之前再次使用 replace 並刪除回車符。

sub abc()

dim mysec as section

dim myshape1 as shape, myshape2 as inlineshape

將所有標題中的AAA改為BBB，請自行替換相應內容，如需刪除AAA，BBB為空。

for each mysec in

replace(, "aaa", "bbb")next mysec

刪除文件中的所有圖形物件。

for each myshape1 in

next myshape1

刪除文件中的所有嵌入物件。

for each myshape2 in

next myshape2

在不提示的情況下儲存文件。

noprompt:=true

end sub

sub test()

falsewithleftheader = "" '標頭的左側設定為：空。

centerheader = "&f" '標頭設定為：檔名。

rightheader = "" '標頭的右側設定為：空。

leftfooter = "&b 保密 &b" '頁尾的左側設定為：粗體機密。

centerfooter = "&d" '在頁尾中，它設定為：當前日期。

rightfooter = "頁面 &p" '頁尾的右側設定為：頁碼。

end with

trueend sub

sub setpagefont() = false with .leftheader = 標頭的左側設定為：null

centerheader = f" '在標題中，將盲廳設定為：檔名rightheader = 標頭的右側設定為：

空leftfooter = b 機密 &b" '頁尾的左側設定為：粗體機密。

centerfooter = d" '陵墓中的頁尾設定為：當前日期rightfooter = 頁面 &p" '頁尾右側打磨設定為：

頁面以 = trueend sub 結尾

此巨集用於查詢和替換所選文字，如果未選中，則無法替換。

錄製巨集。 所謂的巨集是批處理指令碼。 事實上，它也是乙個 vb**。

為什麼可以在傳統的替換方法中替換頁碼，而使用 vb** 卻不能。

為此，您可以將 Word 另存為 XML，然後使用 VB 指令碼來操作此 XML

是頁尾中的文字嗎？