大神看一下哪里不对

zhlt8888

Sub ReplaceTextInWordFiles()
    Dim strFolderPath As String
    Dim objFSO As Object
    Dim objFolder As Object
    Dim objFile As Object
    Dim objWordApp As Object
    Dim objDoc As Object
    Dim strFindText As String
    Dim strReplaceText As String

    ' 设置文件夹路径、查找文本和替换文本
    strFolderPath = "C:\Users\Administrator\Desktop\"
    strFindText = "数据01"
    strReplaceText = "替换后的文本"

    ' 创建文件系统对象
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objFolder = objFSO.GetFolder(strFolderPath)

    ' 创建Word应用程序对象
    Set objWordApp = CreateObject("Word.Application")

    ' 遍历文件夹中的所有文件
    For Each objFile In objFolder.Files
    ' 检查文件是否为Word文档
    If LCase(objFSO.GetExtensionName(objFile.Name)) = "doc" Or LCase(objFSO.GetExtensionName(objFile.Name)) = "docx" Then
    ' 打开Word文档
    Set objDoc = objWordApp.Documents.Open(objFile.Path)

    ' 替换文本
    With objDoc.Content.Find
    .ClearFormatting
    .Text = strFindText
    .Replacement.ClearFormatting
    .Replacement.Text = strReplaceText
    .Execute Replace:=wdReplaceAll
    End With

    ' 保存并关闭文档
    objDoc.Close SaveChanges:=True
    End If
    Next

    ' 退出Word应用程序
    objWordApp.Quit

    ' 释放对象
    Set objDoc = Nothing
    Set objWordApp = Nothing
    Set objFile = Nothing
    Set objFolder = Nothing
    Set objFSO = Nothing
End Sub

查找替换文件夹里word文档中的字符
运行后提示自动化错误。哪里写错了吗？
现在错误又变成：要求对像了。上传附件大家帮看看

ykcbf1100

你应该是没有准确描述，重新组织一下语言，让AI继续写。

zhlt8888

ykcbf1100 发表于 2024-2-28 10:53
你应该是没有准确描述，重新组织一下语言，让AI继续写。

能看出是Ai写的？厉害哦

蓝桥玄霜

没有附件不能测试代码。
建议上传Excel表格附件来说明问题。
没有表格附件的求助帖很少能获得满意的回复。

zhlt8888

蓝桥玄霜 发表于 2024-2-29 08:31
没有附件不能测试代码。
建议上传Excel表格附件来说明问题。
没有表格附件的求助帖很少能获得满意的回复 ...

上传了，版主帮看一下呗

英哲

.Execute Replace:=wdReplaceAll 这句变成 .Execute Replace:=2   
至于报错“要求对像了”，是因你调试时中断，有某个word没有关闭，所有无法重新打开，可以在
Set objDoc = objWordApp.Documents.Open(objFile.Path)的下面加上这个
           objWordApp.Visible = True  ‘显示 Word 应用程序
这样就可以看到哪个word打开异常。

fzxba

新建文件夹 (2).rar (56.62 KB, 下载次数: 8)

2024-2-29 18:06 上传

点击文件名下载附件

zhlt8888

英哲 发表于 2024-2-29 17:20
.Execute Replace:=wdReplaceAll 这句变成 .Execute Replace:=2   
至于报错“要求对像了”，是因你调试 ...

感谢感谢。我试试看行不行

zhlt8888

fzxba 发表于 2024-2-29 18:06

你的这个方法好用，原来那个方法为什么会出错呢？原因在哪？

zhlt8888

fzxba 发表于 2024-2-29 18:06

第二次运行就出现：自动化错误了