[求助]批量替换字体的VBA为何对标点不起作用？

ssq1109

7D9wA7c6.rar (2.38 KB, 下载次数: 12)

2006-9-15 10:33 上传

点击文件名下载附件
[求助]批量替换字体的VBA为何对标点不起作用？

下面的代码是想将文档中的所有加粗的仿宋_GB2312体汉字（包括全角标点）批量变成不加粗的宋体汉字，但实际上对汉字起作用，如其中包含全角标点，则对标点不起作用（测试文件见附件）。

如要完全达到要求，如何修改代码？

Sub Font()
'
    With Selection.Find
       .Font.Bold = True
       .Font.NameFarEast = "仿宋_GB2312"
       .Replacement.Font.NameFarEast = "宋体"
       .Execute Format:=True, Wrap:=wdFindContinue, Replace:=wdReplaceAll
    End With
End Sub

[此贴子已经被作者于2006-9-15 10:58:16编辑过]

ssq1109

我发帖前对附件中的Tset文档测试的结果都如顶楼所述，为何时隔几分钟再在同一机上测试同一文件时对标点也起作用，且连带地将Times New Roman体的加粗英数字符也变成不加粗的了，真是怪事？

konggs

我也不清楚。估计与默认的选项有关。

可能与这个有关：.ClearFormatting

ssq1109

在孔兄的提示下，我改写了代码，请高手斧正。

Sub Font1()
'
  With ActiveDocument.Content.Find
       .ClearFormatting
       .Font.Bold = True
       .Font.Name = "仿宋_GB2312"
    With .Replacement
       .ClearFormatting
       .Font.Name = "宋体"
       .Font.Bold = False
    End With
      .Execute Format:=True, Replace:=wdReplaceAll
 End With

End Sub

ssq1109

6bsTGW2d.rar (3.15 KB, 下载次数: 8)

2006-9-15 17:00 上传

点击文件名下载附件
[求助]批量替换字体的VBA为何对标点不起作用？

今天很邪门的，4楼的代码对1楼的附件作用是正确的，但对这一楼的附件又不起作用。后我发现这个附件中的加粗的字体是式样作用产生的，即:

纯文本＋(西文)Times New Roman, (中文)仿宋_GB2312, 加粗

造成的。（而1楼的字体是手工设定的，当然起作用）。

怎样选择性地将这样得到的文本中的加粗仿宋体汉字（包括全角标点）变成不加粗的宋体汉字（包括全角标点）呢？

konggs

ssq1109兄

试试这个

Sub Font1()

  With ActiveDocument.Content.Find
       .ClearFormatting
       .Font.Bold = True
       .Font.Name = "仿宋_GB2312"
       .Font.NameAscii = "Times New Roman"
    With .Replacement
       .Font.Name = "宋体"
       .Font.Bold = False
    End With
      .Execute Format:=True, Replace:=wdReplaceAll
 End With

End Sub

ssq1109

谢谢孔兄!

我刚试了一下,问题是把原来粗体的英数字符也变成了宋体,而我是想原来粗体的英数字符不发生字体变化。

konggs

ssq119兄。下面的可能对你有点暗示：

Option Explicit
Sub 内容1()
Dim astring As String
Dim i%
    With ActiveDocument.Content.Find
       .ClearFormatting
       .Font.Bold = True
     '  .Font.Name = "仿宋_GB2312"
       .Font.NameAscii = "times new roman"
      ' .Text = "[!a-zA-Z]"
       With .Replacement
            .Font.Name = "宋体"
            '.Font.NameAscii
            .Font.Bold = False
            .Font.NameAscii = "times new roman"
       End With
       .Execute Format:=True, Replace:=wdReplaceAll
    End With
End Sub

Sub 内容()
Dim astring As String
    ActiveDocument.Content.Select
    With Selection.Find
       .ClearFormatting
   '    .MatchWildcards = True
   '    .Text = "[!a-zA-Z]"
       .Font.Bold = True

        Do While .Execute
         If Selection.Font.Name = "仿宋_GB2312" Then
            Selection.Font.Name = "宋体"
         End If
        Loop
    End With
  
End Sub

ssq1109

谢谢孔兄！在您的启发下我的问题已解决。