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

在VB6.0中，你可以使用Microsoft Word的对象模型（即Word.Application和Document对象）来打开DOC文件，并通过其Replace方法来替换指定的文字。以下是简单的步骤：

1. 首先，你需要引用“Microsoft Word Object Library”库，这通常在工具箱（Toolbox）的COM Components部分可以找到。

2. 创建一个Word应用程序实例：

Dim objWord As Word.Application
Set objWord = New Word.Application

3. 打开一个文档：

Dim objDoc As Word.Document
Set objDoc = objWord.Documents.Open("C:\path\to\your\file.doc")

4. 替换文本。假设你想查找"oldText"并替换成"newText"，可以在一个Do...Loop循环中执行替换操作，直到找不到更多匹配：

Dim findRange As Word.Range
Dim searchValue As String
searchValue = "oldText"
findRange = objDoc.Content

Do While Not findRange.IsEndOfDocument And findRange.Find(What:=searchValue, LookIn:=wdFindAll) = True
    findRange.Replace What:=searchValue, Replacement:="newText", Appearance:=wdReplaceWholeWord, Wrap:=wdFindContinue
    findRange MoveStart wdCharacter, -1 ' 移动到下一个搜索位置
Loop

5. 最后别忘了关闭文档和Word应用：

objDoc.Close SaveChanges:=True
objWord.Quit