Word文档中批量设置上下标

loquat

1. Public Sub 设置上下标(ByVal 查找字串$, ByVal 修改字串$, Optional ByVal 模式 As String = "上标")
   
2. '调用方式：例如，要将全文的m3/s中的3设置为上标
   
3. 'Call 设置上下标("m3/s","3","上标")
   
4. Application.ScreenUpdating = False
   
5.     Dim aDoc As Document: Set aDoc = ActiveDocument
   
6.     Dim aRange As Range, a%, b%
   
7.     a = InStr(1, 查找字串, 修改字串)
   
8.     b = Len(修改字串)
   
9.     With Selection
   
10.         .HomeKey wdStory
    
11.         .Find.Text = 查找字串
    
12.         Do While .Find.Execute
    
13.             Set aRange = Selection.Range
    
14.             aRange.SetRange aRange.Start + a - 1, aRange.Start + a + b - 1
    
15.             aRange.Editors.Add wdEditorEveryone
    
16.         Loop
    
17.     End With
    
18.     aDoc.SelectAllEditableRanges wdEditorEveryone
    
19.     aDoc.DeleteAllEditableRanges wdEditorEveryone
    
20.     If 模式 = "上标" Then
    
21.         Selection.Font.Superscript = True
    
22.     ElseIf 模式 = "下标" Then
    
23.         Selection.Font.Subscript = True
    
24.     End If
    
25. Application.ScreenUpdating = True
    
26. End Sub
    

复制代码

TODO:
1.支持页眉页脚检索
2.支持文本框中检索
3.支持正则表达式
   用处例如：要将全文的[1][2]……[11]改为上标，这就需要正则。

luckfish45

厉害，vba一直想学：）

najagay

不错的代码，如果遇到化学符号，如果有两个数字都得设置时怎么弄？比如Fe2O3，H2SO4等

loquat

sub test()
Call 设置上下标("Fe2O3","2","下标")
Call 设置上下标("Fe2O3","3","下标")
end sub

hacker1211

你好，请问这个代码怎么使用呢，比如我想把字母后面的数字改为下标，写成[A-Z][2-9],[2-9],下标，这样运行没反应呢

heartsoar

楼主你好，代码相当好用，但是还想请教一下是否有可以忽略空格（中英文）的代码可以加入进来？ 例如 104 m3 /d和104m3/d都替换为4、3上标。 谢谢

heartsoar

帮忙举个正则表达式调用的例子吧，谢谢楼主