[求助]查找替换的特殊问题，混合字体

no-sir

我有一文档，二号字和四号字混排，但四号字中掺入部分二号的标点符号，现在要如何把这些二号标点改成四号标点。

查找特征是标点前一个字是四号字，后一个字也是四号字，但怎么写这个查找语句？

谢谢！

xEFSlPKC.rar (7.54 KB, 下载次数: 8)

2007-1-31 17:39 上传

点击文件名下载附件
[求助]查找替换的特殊问题，混合字体

附件中部分错误的标点已经用颜色标记。

[此贴子已经被作者于2007-1-31 17:39:53编辑过]

守柔

希望楼主上传一份附件，我检查一下，是否可以使用更好的方法，OK？

c81

守柔

C81版主辛苦了，你的办法可能不适合于楼主的文档。

本想通过格式跟踪进行处理，没有成功。如果楼主是手动键入文档的，可以考虑使用这个功能。工具/选项/编辑/保持格式跟踪。

请试用以下代码，注意，对于长文档，尽可能分成几个小文档更好一些。

Option Explicit

Sub myReplace()
    Dim myRange As Range, lngEnd As Long
    Set myRange = ActiveDocument.Content
    On Error GoTo Exsub
    lngEnd = myRange.End - 1
    Application.ScreenUpdating = False
NF:     With myRange.Find
        .ClearFormatting
        .MatchWildcards = True
        .Text = "[!^1-^127一-龥]"
        Do While .Execute
            If myRange.Previous(wdCharacter, 1).Font.Size = 14 And myRange.Next(wdCharacter, 1).Font.Size = 14 Then myRange.Font.Size = 14
            myRange.SetRange myRange.End, lngEnd
            GoTo NF
        Loop
    End With
    Application.ScreenUpdating = True
Exsub:
End Sub

sylun

可以这样试试：

１.查找两个以上连续的小二号字符，格式设置为突出显示：

２.查找非突出显示的小二号字符，并作替换：
 

3.全选文档，取消突出显示：
 

当然，原文部分要替换的标点已标记为突出显示，我是在取消原突出显示后再进行处理的。

[此贴子已经被作者于2007-1-31 18:59:33编辑过]

c81

If myRange.Previous(wdCharacter, 1).Font.Size = 14 And myRange.Next(wdCharacter, 1).Font.Size = 14 Then myRange.Font.Size = 14守版主这句话可惜不能放在查找对话框中，它不支持多条件格式的查找，呵呵。

sylun的方法也很巧，关键找到了“连续的小二号”，剩下的二号不连续的就好办了。

其实楼主的例子还可以用替换“添加法”来查找替换，不过比sylun多几步了。

yourcells

各有各的高招啊！抓到耗子就是好猫。

no-sir

高手如林哈