Sub Header1()
' Creates a pair of <h1></h1> tags
' Dynamic behavior.  If something is selected, surround it with
' tags and move the cursor to the next character past the tags
' If nothing was selected, create a pair of tags and put the
' cursor between them

' If the selection was empty, move the cursor between tags
  If Selection.Type = wdSelectionIP Then

    Selection.TypeText "<h1></h1>"
    
    'This seems to be the easiest way to move the
    'selection where I want it.
    Selection.Start = Selection.End
    
    'back up five characters, so I am inside the tags
    Selection.MoveLeft wdCharacter, 5
  Else
    'these commands are handy for adding text to a selection
    Selection.InsertBefore "<h1>"
    Selection.InsertAfter "</h1>"
    
    'un-select and go to end of line
    Selection.Start = Selection.End
  End If
End Sub