I've finally been able to create a useful macro or two in FrontPage. It has been ugly though - has anyone dug up a useful VBA reference book for FP?

This first one is for pasting in special characters instead of using the insert symbol. I can visualize a specialty toolbar with all the characters attached. I just don't know how I'll distribute the macro and toolbar.
---------------------------------------------------------------------------------------
Public Sub aAcute()
'Set up variables
Dim myTextRange As IHTMLTxtRange
Dim myHTML As String

'Create a text range from the current selection
Set myTextRange = ActiveDocument.selection.createRange

'Ask for the HTML and assign it to myHTML
myHTML = ""

'Add the HTML entered at the current selection
myTextRange.pasteHTML (myHTML)

End
--------------------------------------------------------------------------------------------
These next two are to add the STRONG and EM text. I have no idea why there isn't a simpler way to automate using those tags in FP. One weird thing:: when using the macro it appears to remove any trailing spaces at the end of the selection. However, if you refresh the view, the space reappears.

Public Sub MakeStrong()
'Set up variables
Dim myStrongTextRange As IHTMLTxtRange
Dim MkStrongOn, MkStrongOff, rngContent As String

'Create a text range from the current selection
Set myStrongTextRange = ActiveDocument.selection.createRange
rngContent = myStrongTextRange.Text

'Ask for the HTML and assign it to myHTML
MkStrongOn = "strong"
MkStrongOff = "/strong"
'Add the HTML entered at the current selection

myStrongTextRange.pasteHTML ("<" & MkStrongOn & ">" & _
rngContent & "<" & MkStrongOff & ">")

myStrongTextRange.Select
End Sub

Public Sub MakeEm()
'Set up variables
Dim myEmTextRange As IHTMLTxtRange
Dim MkEmOn, MkEmOff, rngContent As String

'Create a text range from the current selection
Set myEmTextRange = ActiveDocument.selection.createRange
rngContent = myEmTextRange.Text

'Ask for the HTML and assign it to myHTML
MkEmOn = "EM"
MkEmOff = "/EM"
'Add the HTML entered at the current selection

myEmTextRange.pasteHTML ("<" & MkEmOn & ">" & _
rngContent & "<" & MkEmOff & "> ")

myEmTextRange.Select
End Sub

Next a toggling macro to combine STRONG and EM?

Cheers