excel vba 对word文件进行查找替换

第Ⅸ夜

Sub 测试()
    Dim appWord As Object
    Dim 文件名 As String
    Dim findText As String
    Dim replaceText As String

    findText = "数据001"
    ReplaceDate = "测试"
    文件名 = ThisWorkbook.Path & "\测试.docx"

    Set appWord = CreateObject("word.application")
    appWord.Documents.Open 文件名
    appWord.Visible = True
    With appWord.Selection.Find
        .Text = findText
        .Replacement.Text = replaceText
        .Wrap = wdFindContinue
        .Execute Replace:=wdReplaceAll
    End With
    appWord.Documents.Save
End Sub

Sub ReplaceAll()
    Dim findText As String
    Dim replaceText As String
    Dim myRange As Range
    findText = InputBox("请输入要查找的内容:")
    replaceText = InputBox("请输入要替换的内容:")
    Set myRange = ActiveDocument.Content
    With myRange.Find
        .Text = findText
        .Replacement.Text = replaceText
        .Wrap = wdFindContinue
        'Wrap属性
        '该属性用于设置在搜索时进行的相关操作，可通过常量进行赋值，具体如下所述：
        'A、wdFindAsk常量：搜索完毕后，显示是否搜索文档的其他部分的消息框。
        'B、wdFindContinue常量：搜索完毕后，继续执行。
        'C、wdFindStop常量：搜索完毕后，停止执行。
        .Execute Replace:=wdReplaceAll
        'Replace参数可以有3个取值,
        'wdReplaceAll(2)表示替换全部查找到的字符串,
        'wdReplaceNone(0)一个都不替换,
        'wdReplaceOne(1)只替换第一个找到的字符串。
    End With
End Sub

已知第二段代码在word里面是可以正确运行的，我现在想从excel里面去查找替换word里面的内容，该如修改……

第Ⅸ夜

版主大大，是给我挪一下，还是我从新发帖，发错位置了……

第Ⅸ夜

Sub 测试()
    Dim appWord As Object
    Dim 文件名 As String
    Dim findText As String
    Dim replaceText As String

    findText = "数据001"
    ReplaceDate = "测试"
    文件名 = ThisWorkbook.Path & "\测试.docx"

    Set appWord = CreateObject("word.application")
    appWord.Documents.Open 文件名
    appWord.Visible = True
    With appWord.Selection.Find
        .Text = findText
        .Replacement.Text = replaceText
        .Wrap = wdFindContinue
        .Execute Replace:=wdReplaceAll
    End With
    appWord.Documents.Save
End Sub

第Ⅸ夜

解决了，Content换selection就解决了……

long521

为啥我这句“.Execute Replace:=wdReplaceAll”提示未找到命名参数呢

第Ⅸ夜

long521 发表于 2023-8-15 11:25
为啥我这句“.Execute Replace:=wdReplaceAll”提示未找到命名参数呢

换 0  1  2试试

batmanbbs

long521 发表于 2023-8-15 11:25
为啥我这句“.Execute Replace:=wdReplaceAll”提示未找到命名参数呢

因为你是在EXCEL下运行WORD代码，所以WORD那些定义的属性值全部不起作用，需要直接带入它对应的值；
EXCEL代码在WORD下运行也是一样的，xlup之类的也都需要改成对应的值

继续表演吞剑...

mythqiu

学习了。。。。。

719404338

第Ⅸ夜 发表于 2023-8-15 14:15
换 0  1  2试试

改成2，测试成功，谢谢楼主