VB 替换word文档中页眉页脚的文字

Posted rn-05181226-rw

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了VB 替换word文档中页眉页脚的文字相关的知识,希望对你有一定的参考价值。

查找资料,替换成功的只有替换页面内容的文字

Sub docs()Dim wordapp
  Set wordapp = CreateObject("Word.Application")
    With wordapp
        .documents.Open (ThisWorkbook.Path & "test.docx")
        .Visible = True
        .activedocument.content.Find.Execute FindText:=text1, ReplaceWith:=text2, Replace:=2
        .documents.Close
    End With
  wordapp.Quit
  Set wordapp = Nothing
End Sub

加上写C#用过DOM API 测试成功

Sub docs()
Dim wordapp
  Set wordapp = CreateObject("Word.Application")
    With wordapp
        .documents.Open (ThisWorkbook.Path & "test.docx")
        .Visible = True
        .ActiveWindow.ActivePane.View.SeekView = 9
        .Selection.Find.Execute FindText:="visit_name", ReplaceWith:=Sheet1.Cells(1, i).Value, Replace:=2
        .ActiveWindow.ActivePane.View.SeekView = 0
        .documents.Close
    End With
  wordapp.Quit
  Set wordapp = Nothing
End Sub  

 

以上是关于VB 替换word文档中页眉页脚的文字的主要内容,如果未能解决你的问题,请参考以下文章

信创办公--基于WPS的Word最佳实践系列(页眉页脚的设置)

信创办公--基于WPS的Word最佳实践系列(页眉页脚的设置)

C#/VB.NET 如何在 Word 文档中添加页眉和页脚

网页页眉页脚怎么设置

怎样在EXCEL中添加页眉/页脚?

word2013怎么设置页眉页脚