Word替换中一个难题

thunor

在word中设置如下代码
Sub 替换方框线()
With Selection.find
             .ClearFormatting
             .Font.Borders(1).LineStyle = wdLineStyleSingle
             With .Replacement
                 .ClearFormatting
                 .Font.Borders(1).LineStyle = wdLineStyleNone
            End With
           .Wrap = wdFindContinue
          End With
Selection.find.Execute FindText:="", ReplaceWith:="四周框线（^&）", Replace:=wdReplaceAll
End Sub
想将文本中有方框的文字替换成：“四周框线（方框内文字）”的形式，运行以上代码后，内容达到要求，但格式仍然还有方框线，请教如何解决？谢谢！
实际运行如下图。

413191246se

楼主，你的宏最后加上如下语句即可：
    ActiveDocument.Content.Font.Borders(1).LineStyle = wdLineStyleNone

thunor

谢谢啊，一个简单而又巧妙的解决办法。

thunor

虽然问题是解决了，但我还是有一个感觉奇怪的地方：
代码中：
With .Replacement
                  .ClearFormatting
                  .Font.Borders(1).LineStyle = wdLineStyleNone
End With
这部的第三句并没有起作用。这是何故？