【word網友問題】如何使用在頁首及頁尾取代文字

【word網友問題】如何使用在頁首及頁尾取代文字(查看次數:338)

回首頁

2021-05-05 08:57:16

在word檔案中頁尾取代文字,若是將頁尾文字讀出再取代會發現多一個Enter,主要是在word中取值都會包含最後的段落符號,每次取時就要將最後一個字元捨去才會正常。









Sub 修改頁尾文字換行()
Dim s As String
Dim d As String
s = ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary).Range.Text
s = Mid(s, 1, Len(s) - 1)
d = Replace(s, "2020/5/4", "2021/5/4")
ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary).Range.Text = d
End Sub





網友問題:
http://discuz.bestdaylong.com/thread-34689-1-1.html







【word網友問題】如何使用在頁首及頁尾取代文字
上一篇:Google表單自動寄Email通知跟LineNotify【Google表單教學】(765)      下一篇:【Excel教學】如何利用第一頁不同列印出第一頁有頁尾(21)