将样式不一,带数字的下划线替换为统一下划线的代码怎么写

tangqingfu

请教如何将样式不一,带数字的下划线替换为统一下划线的代码怎么写?
要求:结果为前后各有一个半角空格带数字的下划线,如 1 , 10

[ 本帖最后由 tangqingfu 于 2008-12-24 11:28 编辑 ]

sylun

试试如下代码：
Sub test()
Dim myRange As Range, n As Integer
Application.ScreenUpdating = False
Set myRange = IIf(Selection.Type = wdSelectionIP, ActiveDocument.Content, Selection.Range)
Selection.SetRange myRange.Start, myRange.Start
With Selection.Find
    .ClearFormatting
    .Text = "^32{2,}[0-9]@^32{2,}"
    .MatchWildcards = True
    Do While .Execute
        n = n + 1
        With .Parent
            If .Start > myRange.End Then Exit Do
            .Font.Underline = wdUnderlineNone
            .SetRange .Start + 1, .End - 1
            .Text = " " & Val(.Text) & " "
            .Font.Underline = wdUnderlineSingle
            .Collapse wdCollapseEnd
        End With
    Loop
End With
Application.ScreenUpdating = True
MsgBox "共处理了" & n & "个标记。"
End Sub

程序的判断标准是需标记的数字前后均须有两个以上的空格，否则很难判断是正常内容中的数字还是标记的数字。样本中有的标记不符合该标准。

[ 本帖最后由 sylun 于 2008-12-25 00:06 编辑 ]

chenlibin5277

我在网吧经常看不到EXCLE文件,搞的我一些公司文件的话,都只有在办公室才能看~很苦恼~

tyxh0916

这个问题根本不需要用代码来解决，简单的三步查找替换就可以解决。当然，要是做为一种一劳永逸的办法也未尝不可

tangqingfu

谢谢sylun兄,收藏备用!