VBA 打开.doc文件并替换指定文字（使用替换功能）

VBA (Visual Basic for Applications) 是Microsoft Office应用程序中的一种宏语言，允许用户编写自定义脚本来自动化任务。要在VBA中打开一个`.doc`（Word文档）文件并使用替换功能替换特定的文字，你可以按照以下步骤操作：

1. **打开Word对象模型**:
首先，你需要引用`Microsoft Word`对象库。在VBA编辑器中，点击“插入” -> “引用”，选择“Microsoft Word XX.X Object Library”（XX.X是你Office的版本号），然后点击确定。

2. **创建Word对象**:
使用`Set`关键字创建一个`Document`对象，它代表Word文档。

   Dim wdApp As Word.Application
   Set wdApp = New Word.Application
   Dim wdDoc As Word.Document
   Set wdDoc = wdApp.Documents.Open("C:\path\to\your\file.doc")

3. **替换文本**:
调用`Replace`方法，传入需要查找的内容、替换内容以及相关的选项（如搜索范围和区分大小写等）。这一步通常会涉及到一个循环，因为`Replace`方法可能会返回替换次数，直到找不到更多匹配项为止。

   Dim findText As String
   Dim replaceText As String
   findText = "原文字"
   replaceText = "新文字"
   
   Dim ReplaceAll As Boolean ' 是否替换所有符合条件的
   ReplaceAll = True
   
   wdDoc.Content.Replace What:=findText, Replacement:=replaceText, _
       LookIn:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, _
       MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

4. **保存并关闭文档**:
完成替换后，别忘了保存并关闭文档，释放资源。

   wdDoc.Save
   wdDoc.Close SaveChanges:=wdSaveChanges
   wdApp.Quit
   Set wdDoc = Nothing
   Set wdApp = Nothing