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

heefg1001

请问如果要增加若M为大写自动转换为小写m，再实现操作，怎么实现？

jianglibao999

413191246se 发表于 2014-11-23 00:27
楼主，由于搞不清你到底是将m2/m3还是m^2/m^3变为上标，所以，我综合考虑了这种情况，由于水平有限，宏代码 ...

楼主，在测试有的文档的时候把正文都上标了，麻烦楼主修改一下。再次感谢您的付出。感谢大神

wcm_xp

本人实际工作使用。分享
Sub Word版面调整()
    Selection.WholeStory
' 查找m2 m3做出上标的字符ChrW(178)ChrW(179)
On Error Resume Next
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "m2"
        .Replacement.Text = "m" & ChrW(178)
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
   
    With Selection.Find
        .Text = "m3"
        .Replacement.Text = "m" & ChrW(179)
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

413191246se

利用楼上代码，重新归并了一下，以第2页例文为例，请大家试试：
Sub m2m3变上标()
    If Selection.Type = wdSelectionIP Then Selection.HomeKey Unit:=wdStory
    Selection.Find.ClearFormatting
    Selection.Find.Execute "m2", , , 1, , , , , , "m" & ChrW(178), 2
    Selection.Find.Execute "m3", , , 1, , , , , , "m" & ChrW(179), 2
End Sub