WordVBA在指定区域替换内容

团子大家族cl

我现在想把每个表格内的空格替换掉，但是代码运行后会把文档范围内全部空格替换掉，麻烦老师给看看问题在哪里，代码如下


Sub 遍历表格替换空值()
Dim bg As Table
Dim doc As Document
Set doc = ActiveDocument

For Each bg In doc.Tables
bg.Range.Select

With Selection
    .Find.ClearFormatting
    .Find.Replacement.ClearFormatting

    With .Find
        .Text = " "
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    .Find.Execute Replace:=wdReplaceAll
End With
Next bg
End Sub

limonet

Sub trim()
    For Each T In ActiveDocument.Tables
        For Each C In T.Range.Cells
            C.Range.Text = Replace(Replace(C.Range.Text, " ", ""), Chr(13), "")
        Next C
    Next T
End Sub

团子大家族cl

limonet 发表于 2022-4-27 09:03
Sub trim()
    For Each T In ActiveDocument.Tables
        For Each C In T.Range.Cells

谢谢老师，请问我的方法为何会影响到选定区域之外的内容

zhanglei1371

团子大家族cl 发表于 2022-4-30 21:25
谢谢老师，请问我的方法为何会影响到选定区域之外的内容

我测试了下，并未影响到选区外，一切正常