关于WORD

Question

如何打开一个WORD文件，并查找替换掉相应的文本后保存

Answer 1

参考一下：打开word，选 工具->宏->录制新鸿
接下来做你的动作，然后停止录制按Alt+F11，选出你的宏，现在，你想要的大部分代码已经有了最后贴到你的vb里面，在引用菜单选上microsoft word

Answer 2

'引用Microsoft Word 9.0 Object Library
Private Sub Command1_Click()
    Dim wrdApp As New Word.Application
    wrdApp.Documents.Open "C:\Documents and Settings\xtgl\桌面\复件 消防考试.doc"
    wrdApp.Selection.Find.ClearFormatting
    wrdApp.Selection.Find.Replacement.ClearFormatting
    With wrdApp.Selection.Find
        .Text = "温度"                                  '用“湿度”替换“温度”
        .Replacement.Text = "湿度"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    wrdApp.Selection.Find.Execute Replace:=wdReplaceAll '执行全部替换
    wrdApp.ActiveDocument.Save                          '保存文件
    wrdApp.ActiveDocument.Close                         '关闭文件
    wrdApp.Quit                                         '关闭Word程序
    Set wrdApp = Nothing
    Debug.Print "ok"
End Sub

Answer 3

打开word，选 工具->宏->录制新宏
接下来做你的动作，然后停止录制。看代码。
这个方法大家惯用的招数……
一定行得通。