如何替换成带角标的

longkui1990

还请高手指点

O(∩_∩)O谢谢



如何替换成带角标的.rar (10.47 KB, 下载次数: 5)

2017-8-17 15:09 上传

点击文件名下载附件

jiminyanyan

Sub 宏数字下标()
    Set fomula = Selection
    l = Len(fomula) '计算所要编排字体长度
    fomula.Font.Subscript = False '取消原有字符的下标格式
    fomula.Font.Superscript = False '取消原有字符的上标格式
'在选中的内容中进行循环，只要是数字，就变成下标
    For t = 1 To l
       If IsNumeric(fomula.Characters(t)) = True Then
        fomula.Characters(t).Font.Subscript = True
       End If
    Next t
End Sub

longkui1990

jiminyanyan 发表于 2017-8-18 21:58
Sub 宏数字下标()
    Set fomula = Selection
    l = Len(fomula) '计算所要编排字体长度

多谢老兄的大力帮助

只是为啥我这里点击运行之后除了第一个其他的都还是没变化呢。。。

jiminyanyan

longkui1990 发表于 2017-8-19 15:11
多谢老兄的大力帮助

只是为啥我这里点击运行之后除了第一个其他的都还是没变化呢。。。

这代码的功能，是先选文本…………
对选择的文本执行宏……。

jiminyanyan

longkui1990 发表于 2017-8-19 15:11
多谢老兄的大力帮助

只是为啥我这里点击运行之后除了第一个其他的都还是没变化呢。。。

Sub 宏数字下标()
    Set fomula = ActiveDocument.Content
    l = Len(fomula) '计算所要编排字体长度
    fomula.Font.Subscript = False '取消原有字符的下标格式
    fomula.Font.Superscript = False '取消原有字符的上标格式
'在选中的内容中进行循环，只要是数字，就变成下标
    For t = 1 To l
       If IsNumeric(fomula.Characters(t)) = True Then
        fomula.Characters(t).Font.Subscript = True
       End If
    Next t
End Sub

longkui1990

jiminyanyan 发表于 2017-8-19 15:55
Sub 宏数字下标()
    Set fomula = ActiveDocument.Content
    l = Len(fomula) '计算所要编排字体长 ...

老兄好，再深入一步地请教下哈



这个如何处理呢.rar (10.45 KB, 下载次数: 4)

2017-8-22 10:22 上传

点击文件名下载附件

duquancai

longkui1990 发表于 2017-8-22 10:22
老兄好，再深入一步地请教下哈

下标数字限定一下：最多“连续的”“3位数”吧？

Sub 下标()
    With ActiveDocument.Content.Find
        Do While .Execute("[a-zA-Z\)）][0-9]{1,3}[!0-9]", , , 1)
            With .Parent
                .Start = .Start + 1: .End = .End - 1
                .Font.Subscript = True
                .Collapse 0
            End With
        Loop
    End With
End Sub