有没有哪个宏可以实现WORD选定的文字段落m3、m2集体上标？

413191246se

楼主朋友，代码第二行后半段，你重新读一下好吗？（如果未选定区域，则选择全文----这说明，你可以选定某个段落）。

lhw721

413191246se 发表于 2014-11-23 19:43
楼主朋友，代码第二行后半段，你重新读一下好吗？（如果未选定区域，则选择全文----这说明，你可以选定某个 ...

我在OFFICE2007和OFFICE2013的WORD里都测试过了，即使我只选定了某一段落，它还是会把我整个文档都替换一遍。
我上传其中几个段落，烦请您测试一下。

XX流域水文站点布设较齐全，测验工作有一定基础。以设立时间最早，分别于1944年9月和1946年6月开始设站观测，控制流域面积4940km2，是X溪上游的主要控制站；XX站控制流域面积8490km2，是XX溪下游的主要控制站。X溪以XX站设立时间最早，设立于1945年11月，是X溪下游的控制站。
X溪流域主要水文站有XXX。xx站位于xx游干流上，控制流域面积3419 km2，约占xx溪全流域面积的86.8%，为xx下游主要控制站；xx站最早设立于1936年10月，1945年11月设立为水文站，观测项目有水位，流量、降雨、蒸发、水温、悬移质泥沙等，1948年12月停测，1950年3月恢复为水文站，继续进行测验至今。站位于溪流域上游，控制流域面积790km2，站设立于1957年4月，观测水位，流量、泥沙、雨量、水温、蒸发等资料至今。水文站位于溪干流，控制流域面积31.5km2，为小流域水文站，设立于1956年4月，观测项目有降雨、水位、流量等，1985年起停测。控制流域面积484km2，龙山站设立于1954年4月，观测水位、流量、泥沙、雨量、水温等资料。
2）水库库容：电站水库总库容仅15.0万m3，电站水库仅42.9万m3，这两个水库均没有设立调节库容，为无调节水库。水库总库容308.0万m3，正常库容236万m3，死库容6.0万m3，调节库容230万m3，为不完全年调节水库。

413191246se

针对楼上代码，一测试马上出错，的确如楼主所说！遂经过F8逐语句反复测试（从没这么认真过），发现查找范围跑出所选，最后灵机一动，巧妙地把m2、m3替换为m2`、m3`，终于测试成功（并观察总字数没有变化，说明宏是安全的）！但也建议，楼主在应用我的宏（包括任何宏）时，要备份原文件后再应用。这回可以全选，也可以选定任意文字（不必是段落）后应用此宏，并且查找语句也精简为一条，添加了查找m2/m3的次数统计。
Sub 设置上标()
    Dim myRange As Range, i As Long, j As Long
    If Selection.Type = wdSelectionIP Then Selection.WholeStory
    Set myRange = Selection.Range
    myRange.Find.Execute FindText:="^", ReplaceWith:="", Replace:=wdReplaceAll
    myRange.Find.Execute FindText:="m2", ReplaceWith:="m2`", Replace:=wdReplaceAll
    myRange.Find.Execute FindText:="m3", ReplaceWith:="m3`", Replace:=wdReplaceAll
    Do
        Selection.Find.Execute FindText:="m2`", Forward:=True
        If Selection.Find.Found = False Then Exit Do
        If Selection.Find.Found = True Then i = i + 1
        Selection.MoveStart Unit:=wdCharacter, Count:=1
        Selection.Font.Color = wdColorRed
        Selection.Font.Superscript = True
        Selection.MoveRight Unit:=wdCharacter, Count:=1
    Loop
    myRange.Select
    Do
        Selection.Find.Execute FindText:="m3`", Forward:=True
        If Selection.Find.Found = False Then Exit Do
        If Selection.Find.Found = True Then j = j + 1
        Selection.MoveStart Unit:=wdCharacter, Count:=1
        Selection.Font.Color = wdColorRed
        Selection.Font.Superscript = True
        Selection.MoveRight Unit:=wdCharacter, Count:=1
    Loop
    myRange.Find.Execute FindText:="`", ReplaceWith:="", Replace:=wdReplaceAll
    myRange.Select
    MsgBox "处理完毕！（共处理" & i & "个m2，" & j & "个m3）", vbOKOnly + vbExclamation, "设置上标"
End Sub

lhw721

413191246se 发表于 2014-11-24 09:41
针对楼上代码，一测试马上出错，的确如楼主所说！遂经过F8逐语句反复测试（从没这么认真过），发现查找范围 ...

完美解决问题，万分感谢413191246se的帮助，谢谢！

zaojiashi75

Sub m2m3上标()

'
    Selection.Find.ClearFormatting
    With Selection.Find.Font
        .Superscript = False
        .Subscript = False
    End With
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find.Replacement.Font
        .Superscript = True
        .Subscript = False
    End With
    With Selection.Find
        .Text = "[mM][23]"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    With Selection.Find.Font
        .Superscript = True
        .Subscript = False
    End With
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find.Replacement.Font
        .Superscript = False
        .Subscript = False
    End With
    With Selection.Find
        .Text = "[mM]"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

问题又来了，这个代码会把“M222”或“M2X”也替换。。。。。。

zaojiashi75

目测，关于上下标，WORD中替换的通配符无法实现。
求高手发招。

zaojiashi75

3楼的动画，查找所有的M[23]，由于没有替换，WORD好象不能生成宏。

kill110

我之前用过 Word文档自动排版软件（排版大师）
里面的上下标字符就特别适合，www.wordpb.com

kill110

我之前用了一个软件，Word文档自动排版软件（排版大师）
里面的上下标工具就可以wordpb.com

413191246se

见我最新帖！！！