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

lhw721

因为本人行业报告里要用到大量的m^3（立方米）和m^2（平方米），报告常常要摘抄别的报告某些章节。现在我都是摘好一段，就一个个的改m3、m2上标，还有一种方法就是先不处理，等报告都编写好了之后再用替换来上标。这两种方法第一个费时、费工，后面那个方法会对报告排版有影响。
请问哪位大侠有宏可以处理这个上标问题，最好是针对我选定的段落来上标。

wudixin96

直接替换即可

wudixin96

这样就OK了

lhw721

我现在就是直接替换，因为常年要写报告，我是希望有个宏可以直接实现m3、m2集体上标

413191246se

请楼主提供具体示例文档。。。

lhw721

谢谢wudixin96的操作过程，我自己录制了一个平方米、立方米上标的宏

Sub m2及m3上标()
'
' 平方米、立方米上标 宏
'
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find.Replacement.Font
        .Superscript = True
        .Subscript = False
    End With
    With Selection.Find
        .Text = "^#"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindAsk
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

loquat

http://club.excelhome.net/thread-1117431-1-1.html

lhw721

我上传的那个宏有问题，它会把字母m后所有的2、3都上标，比如下面这句话：“200m2的都要20块”，用这个宏会把那20块的2给上标了。哪位可以帮助优化一下。

413191246se

楼主，由于搞不清你到底是将m2/m3还是m^2/m^3变为上标，所以，我综合考虑了这种情况，由于水平有限，宏代码不够精简、高级，但似乎测试通过，你试试吧（操作前请备份原文件）：

1. Sub 设置上标()
   
2. '功能：将 m2/m3 或 m^2/m^3 设置为上标；如果未选定区域则选择全文。
   
3.     Dim myRange As Range
   
4.     If Selection.Type = wdSelectionIP Then Selection.WholeStory '如果未选则全选
   
5.     Set myRange = Selection.Range
   
6.     myRange.Find.Execute FindText:="^", ReplaceWith:="", Replace:=wdReplaceAll '删除选定区域^字符（全部替换为无）
   
7.     myRange.Select
   
8. '
   
9. '设置m2为上标
   
10.     Do
    
11.         Selection.Find.ClearFormatting
    
12.         With Selection.Find
    
13.             .Text = "m2"
    
14.             .Replacement.Text = ""
    
15.             .Forward = True
    
16.             .Wrap = wdFindStop
    
17.             .Format = False
    
18.             .MatchCase = False
    
19.             .MatchWholeWord = False
    
20.             .MatchByte = True
    
21.             .MatchWildcards = False
    
22.             .MatchSoundsLike = False
    
23.             .MatchAllWordForms = False
    
24.         End With
    
25.         Selection.Find.Execute
    
26.         Selection.MoveStart Unit:=wdCharacter, Count:=1
    
27.         Selection.Font.Color = wdColorRed '此语句设置上标为红色，也可以不要！
    
28.         Selection.Font.Superscript = True
    
29.         Selection.MoveRight Unit:=wdCharacter, Count:=1
    
30.     Loop Until Selection.Find.Found = False
    
31. '
    
32. '设置m3为上标（与上段代码相同）
    
33.     myRange.Select
    
34.     Do
    
35.         Selection.Find.ClearFormatting
    
36.         With Selection.Find
    
37.             .Text = "m3"
    
38.             .Replacement.Text = ""
    
39.             .Forward = True
    
40.             .Wrap = wdFindStop
    
41.             .Format = False
    
42.             .MatchCase = False
    
43.             .MatchWholeWord = False
    
44.             .MatchByte = True
    
45.             .MatchWildcards = False
    
46.             .MatchSoundsLike = False
    
47.             .MatchAllWordForms = False
    
48.         End With
    
49.         Selection.Find.Execute
    
50.         Selection.MoveStart Unit:=wdCharacter, Count:=1
    
51.         Selection.Font.Color = wdColorRed '此语句设置上标为红色，也可以不要！
    
52.         Selection.Font.Superscript = True
    
53.         Selection.MoveRight Unit:=wdCharacter, Count:=1
    
54.     Loop Until Selection.Find.Found = False
    
55. End Sub

复制代码

lhw721

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

413191246se提供的代码可以达到我所说的要求，不过这个代码是针对整个文档来的，我是希望可以针对我选定的段落来集体上标。