宏添加Superscipt /下标 [英] Macro to Add Superscipt/Subscript

问题描述

我有一个清理宏，可以帮助我使文档保持一致。它包括"是/否"。按钮，所以我可以做出选择，因为不是每个选择都需要清理。现在我希望有一个序列来搜索CO2（所有大写字母）并使
" 2"下标（以及后来将另一个将ft2中的"2"变为上标的序列）。对于我的生活，我无法弄清楚如何编写选择最后一个字符的代码并将其更改为上标/下标而不改变整行的
。

这是我已经拥有的代码块：

Dim oRngCO2 As Word.Range

  设置oRngCO2 = ActiveDocument.Range

    使用oRngCO2.Find

      .Text =" CO2"

      .MatchWildcards = True

      .Wrap = wdFindStop

      当.Execute

        oRngCO2.Select

        选择案例MSGBOX（QUOT;下标QUOT ;, vbYesNoCancel，" FOUND" + oRngCO2）

<跨度>&NBSP;&NBSP;&NBSP;&NBSP;&NBSP;&NBSP ;&NBSP;&NBSP;&NBSP; 案例vbYes

           
oRngCO2.Characters.Last = CHR（160）

<跨度>&NBSP;&NBSP;&NBSP;&NBSP;&NBSP;&NBSP;&NBSP;&NBSP;&NBSP; 案例vbCancel

           
退出子

          Case Else：'没有任何东西

      结束选择

        oRngCO2.Collapse wdCollapseEnd

      Wend

    结束

请告诉我需要进行哪些调整，以便"2"在这个例子中是下标，在其他情况下是上标。谢谢。

解决方案

试试这个：

<预类= "prettyprint郎-VB">子ApplySubscript（）
Selection.HomeKey单位：= wdStory
将Selection.Find
$ .ClearFormatting b $ b .Text =" CO2"
.MatchCase =真
.Wrap = wdFindStop
执行虽然.Execute
选择表壳MSGBOX（QUOT;下标2英寸;, vbQuestion + vbYesNoCancel？）
为例vbYes
Selection.Characters（3）.Font.Subscript = True
Case vbCancel
退出Sub
结束选择
循环
结束
结束次

I have a cleanup macro that helps me make documents consistent. It includes "yes/no" buttons so I can make a choice since not every selection needs to be cleaned up. Now I want to have a sequence where it searches for CO2 (all caps) and make the "2" subscript (and, later, another sequence that changes the "2" in ft2 into superscript). For the life of me, I can't figure out how to write the code that select that last character and change it to superscript/subscript without changing the whole line.

Here's the block of code I already have:

Dim oRngCO2 As Word.Range

  Set oRngCO2 = ActiveDocument.Range

    With oRngCO2.Find

      .Text = "CO2"

      .MatchWildcards = True

      .Wrap = wdFindStop

      While .Execute

        oRngCO2.Select

        Select Case MsgBox("Subscript?", vbYesNoCancel, "FOUND " + oRngCO2)

          Case vbYes

            oRngCO2.Characters.Last = Chr(160)

          Case vbCancel

            Exit Sub

          Case Else: 'No nothing

      End Select

        oRngCO2.Collapse wdCollapseEnd

      Wend

    End With

Please show me what tweaks I need to make so that the "2" is subscript in this instance and superscript in others. Thanks.

解决方案

Try this:

Sub ApplySubscript()
    Selection.HomeKey Unit:=wdStory
    With Selection.Find
        .ClearFormatting
        .Text = "CO2"
        .MatchCase = True
        .Wrap = wdFindStop
        Do While .Execute
            Select Case MsgBox("Subscript the 2?", vbQuestion + vbYesNoCancel)
                Case vbYes
                    Selection.Characters(3).Font.Subscript = True
                Case vbCancel
                    Exit Sub
            End Select
        Loop
    End With
End Sub

这篇关于宏添加Superscipt /下标的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！