vba代码替换word文档中的文字

buxiaodea

群里的大神，最近碰到一个问题：想用vba代码替换一段word文档中文字，由于该段文字在表格前面，我用代码替换后，这段文字会自动并入表格中，不知道该怎么修改。




请点拨一下，谢谢！

过客fppt

问题应该是在这一段：

可以尝试一下用自定义函数：替换，示例如下：

buxiaodea

过客fppt 发表于 2024-5-5 17:46
问题应该是在这一段：

可以尝试一下用自定义函数：替换，示例如下：

谢谢大神，这个文本替换我试试，我想问下 就是我原来那种方式应该怎么改

过客fppt

buxiaodea 发表于 2024-5-5 17:58
谢谢大神，这个文本替换我试试，我想问下 就是我原来那种方式应该怎么改

你原来的方式，会把段落标记去掉，导致原来一段与下一段落混为同一个段落，想办法用selection对象，选中不包含段落标记的文本，再进行修改即可

gwjkkkkk

Option Explicit
Sub test()
    Dim wdApp As Object, strFileName$, strPath$
   
    strPath = ThisWorkbook.Path & "\"
    strFileName = strPath & "测试.docx"
    If Dir(strFileName) = "" Then MsgBox "测试文件不存在，请检查！", vbExclamation: Exit Sub
   
    Application.ScreenUpdating = False
    On Error Resume Next
    Set wdApp = GetObject(, "Word.Application")
    If Err <> 0 Then
        Set wdApp = CreateObject("Word.Application")
    End If
   
    With wdApp.documents.Open(strFileName)
        With .Content.Find
            .Text = "主  题："
            .Forward = True
            .Execute
            If .Found = True Then
                .Parent.Select
                With wdApp.Selection.Range
                    .MoveEndUntil vbCr
                    .Text = "主  题：我的家乡" & "         周  次：第7周"
                End With
            End If
        End With
        .Close True
    End With
   
    If Err <> 0 Then wdApp.Quit
    Set wdApp = Nothing
    Application.ScreenUpdating = True
    Beep
End Sub

gwjkkkkk

请参考附件。。。

buxiaodea

过客fppt 发表于 2024-5-5 18:01
你原来的方式，会把段落标记去掉，导致原来一段与下一段落混为同一个段落，想办法用selection对象，选中 ...

懂了  谢谢

buxiaodea

gwjkkkkk 发表于 2024-5-5 18:33
请参考附件。。。

大神，你的附件好像被保护了，看不了

buxiaodea

gwjkkkkk 发表于 2024-5-5 18:32
Option Explicit
Sub test()
    Dim wdApp As Object, strFileName$, strPath$

谢谢指导

gwjkkkkk

代码贴到excel中也一样