[malagon]

Hello to all,
I want to insert a footnote using a macro/vba on the word prescription in the bookmark
paragraph below. Please note that the word prescription is used on other paragraphs in my word document which is not
part of a bookmark. This macro is not inserting the footnote correctly when I preview the document.
Can someone help me.

thanks a bunch

Dim strMedicine As String

strMedicine = "Keep track of how many tablets have been used from each new bottle" & _
" of this medicine. " & txtMedicine & " is a drug of abuse and you" & _
" should be aware if any person in the household is using this" & _
" medicine improperly or without a prescription."

UpdateBookmark "bkMedicine", strMedicine


Sub MakeFootNotes()
Selection.WholeStory
Selection.Find.ClearFormatting
With Selection.Find
.text = "prescription"
.Replacement.text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
With Selection
With .FootnoteOptions
.Location = wdBottomOfPage
.NumberingRule = wdRestartContinuous
.StartingNumber = 1
.NumberStyle = wdNoteNumberStyleArabic
.LayoutColumns = 0
End With
.Footnotes.Add Range:=Selection.Range, Reference:=""
.Font.Superscript = True
Selection.TypeText text:="Tell your doctor if this medicine seems to stop working as well in relieving your pain."
End With
End Sub