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

Sub ChemPwrFmt()
Application.ScreenUpdating = False
Dim oRng As Range, fRng As Range, bState As Boolean 
Select Case MsgBox("Do you want to process the whole document?", _
    vbYesNoCancel + vbQuestion, "Chemical/Power Formatter")
  Case vbYes
    bState = True
  Case vbNo
    bState = False
  Case vbCancel
    End
End Select
With Selection
  Set oRng = .Range
  With .Find
    .ClearFormatting
    .Text = "[A-Za-z)][0-9]{1,}"
    .MatchWildcards = True
    .Wrap = wdFindContinue
    .Forward = True
    Do While .Execute = True
      Set fRng = ActiveDocument.Range(Start:=Selection.Start + 1, End:=Selection.End)
      If bState = False Then
        If fRng.Start >= oRng.End Then Exit Do
        If fRng.End >= oRng.End Then fRng.End = oRng.End
      End If
      If fRng.Font.Superscript = False Then fRng.Font.Subscript = True
      fRng.Collapse Direction:=wdCollapseEnd
    Loop
  End With
End With
oRng.Select
Set fRng = Nothing: Set oRng = Nothing
Application.ScreenUpdating = True
End Sub

Sub Demo()
Application.ScreenUpdating = False
With ActiveDocument.Range
  With .Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Text = "([0-9])-([0-9])"
    .Replacement.Text = "\1^0150\2"
    .Forward = True
    .Wrap = wdFindContinue
    .Format = False
    .MatchWildcards = True
    .Execute Replace:=wdReplaceAll
  End With
End With
Application.ScreenUpdating = True
End Sub

Sub Demo()
Application.ScreenUpdating = False
With ActiveDocument.Range
  With .Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Text = "([0-9])-([0-9])"
    .Replacement.Text = ""
    .Forward = True
    .Wrap = wdFindStop
    .Format = False
    .MatchWildcards = True
    .Execute
  End With
  Do While .Find.Found = True
    .Characters(2).Text = Chr(150)
    .Collapse wdCollapseEnd
    .Find.Execute
  Loop
End With
Application.ScreenUpdating = True
End Sub

Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
'For replacing hyphens in numerical ranges with an en dash
Dim oRNg As Word.Range
  Set oRNg = ActiveDocument.Range
  With oRNg.Find
    .ClearFormatting
    .Replacement.ClearFormatting
    'Note using 1-{Quote "1"} toggled to display 1-1
    .Text = "[0-9]-[0-9]" 'Wasn't found
    .Text = "[0-9]" & Chr(45) & "[0-9]" 'Wasn't found
    .Text = "[0-9]-" 'Found
    'Remove "-" between displayed numbers
    .Text = "[0-9][0-9]" 'Found
    'Put dash back between numbers
    .Text = "[0-9]*[0-9]" 'Found
    .Forward = True
    .Wrap = wdFindStop
    .Format = False
    .MatchWildcards = True
    While .Execute
      If oRNg.Characters(2) = Chr(45) Then
        If oRNg.Fields.Count = 0 Then
          If oRNg.Characters(3).Font.Superscript = False Then
            oRNg.Characters(2).Text = Chr(150)
            oRNg.Collapse wdCollapseEnd
            oRNg.Find.Execute
          End If
        End If
      End If
    Wend
  End With
lbl_Exit:
  Exit Sub
End Sub