View Single Post
 
Old 12-27-2015, 04:38 AM
gmaxey gmaxey is offline Windows 7 32bit Office 2010 (Version 14.0)
Expert
 
Join Date: May 2010
Location: Brasstown, NC
Posts: 1,621
gmaxey is just really nicegmaxey is just really nicegmaxey is just really nicegmaxey is just really nicegmaxey is just really nice
Default

1. Yes. There are undoubtedly hundreds of macros scattered about which are designed to perform these types of operations. Whether anyone as combined those into a ready made tool (add-in) to meet your exact requirements is unlikely.

2. Designing the macro would be a matter (degree of difficulty depends on the designer's skill level) of creating the individual parts.

Here is a start:

Code:
Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim oRng As Word.Range
Dim lngIndex As Long
  ActiveDocument.TrackRevisions = True
  Set oRng = ActiveDocument.Range
  With oRng.Find
    .Text = "CO2"
    .MatchWholeWord = True
    While .Execute
      If Not oRng.Characters(2).Font.Superscript = True Then
       oRng.Characters(2).Font.Superscript = True
      End If
      oRng.Collapse wdCollapseEnd
    Wend
    Set oRng = ActiveDocument.Range
    lngIndex = 0
      With oRng.Find
        .Text = "<*> <*>"
        .Font.Italic = True
        .MatchWildcards = True
        While .Execute
          lngIndex = lngIndex + 1
          If Not lngIndex = 1 Then
            oRng.Words(1) = oRng.Words(1).Characters(1) & ". "
          End If
          oRng.Collapse wdCollapseEnd
        Wend
      End With
  End With
lbl_Exit:
  Exit Sub
End Sub
__________________
Greg Maxey
Please visit my web site at http://www.gregmaxey.com/
Reply With Quote