49、利用 VB.NET 自动化操作 Word 和 Excel

利用 VB.NET 自动化操作 Word 和 Excel

1. Word 文档操作

1.1 文本替换

若要替换文本中的一个或多个单词（或句子）实例，可设置 ReplaceWith 参数为替换文本， Replace 参数为 wdReplaceAll 或 wdReplaceOne ，具体取决于你是要替换单个实例还是所有实例。以下代码示例将文档中所有 “VB7” 替换为 “VB.NET”，并去除文档中的多余空格：

Private Sub Button3_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button3.Click
    Dim thisDoc As Word.Document
    Dim thisRange As Word.Range
    WordApp.Documents.Open("c:\sample.doc")
    WordApp.Visible = False
    thisDoc = WordApp.ActiveDocument
    thisDoc.Content.Find.Execute(FindText:="VB7", ReplaceWith:="VB.NET", _
    Replace:=Word.WdReplace.wdReplaceAll)
    While thisDoc.Content.Find.Execute(FindText:="  ", _