[charlie6067]

1. First Method:
I have written several macros to insert autotext that has some words
bolded, some not, in the paragraphs. The macros are triggered from a
custom drop-down tool bar menu I had made. When this method runs, no
bolding displays when the autotext inserts via the macro.

2. Second method:
If I manually insert the autotext from the Tools menu, the text inserts
with appropriate words formatted in bold.

Why does the second method give the desired results and the first
doesn't?

Here's the code from method one at the end of this message. I recorded
a keystroke macro so maybe there's extra code in it that's messing up
the desired result? Any help will be appreciated.

Thanks,
Charlie
charlie6067

Sub VOL_DEN()
'
' InsertCoverage Macro
' Macro recorded 07/28/06 by Charlie Johnson
'
PasswordOff
Application.DisplayAutoCompleteTips = False
With AutoCorrect
.CorrectInitialCaps = True
.CorrectSentenceCaps = True
.CorrectDays = True
.CorrectCapsLock = True
.ReplaceText = True
End With
ActiveDocument.AttachedTemplate.AutoTextEntries("1 1. VOLUNTARY
DENTAL"). _
Insert Whe=Selection.Range
PasswordOn
End Sub

[Jay Freedman]

In the Insert method call, you need to include the optional RichText
parameter and set it to True:

ActiveDocument.AttachedTemplate.AutoTextEntries("1 1. VOLUNTARY
DENTAL"). _
Insert Whe=Selection.Range, RichText:=True

If you have other macro-related questions, please post them to one of the
microsoft.public.word.vba newsgroups. This group is high-volume and your
question might be overlooked.

--
Regards,
Jay Freedman
Microsoft Word MVP FAQ: http://word.mvps.org
Email cannot be acknowledged; please post all follow-ups to the newsgroup so
all may benefit.

charlie6067 wrote:
1. First Method:
I have written several macros to insert autotext that has some words
bolded, some not, in the paragraphs. The macros are triggered from a
custom drop-down tool bar menu I had made. When this method runs, no
bolding displays when the autotext inserts via the macro.

2. Second method:
If I manually insert the autotext from the Tools menu, the text
inserts with appropriate words formatted in bold.

Why does the second method give the desired results and the first
doesn't?

Here's the code from method one at the end of this message. I recorded
a keystroke macro so maybe there's extra code in it that's messing up
the desired result? Any help will be appreciated.

Thanks,
Charlie
charlie6067

Sub VOL_DEN()
'
' InsertCoverage Macro
' Macro recorded 07/28/06 by Charlie Johnson
'
PasswordOff
Application.DisplayAutoCompleteTips = False
With AutoCorrect
.CorrectInitialCaps = True
.CorrectSentenceCaps = True
.CorrectDays = True
.CorrectCapsLock = True
.ReplaceText = True
End With
ActiveDocument.AttachedTemplate.AutoTextEntries("1 1. VOLUNTARY
DENTAL"). _
Insert Whe=Selection.Range
PasswordOn
End Sub

[charlie6067]

Thanks Jay for the help.
Charlie
charlie6067

Jay Freedman wrote:
In the Insert method call, you need to include the optional RichText
parameter and set it to True:

ActiveDocument.AttachedTemplate.AutoTextEntries("1 1. VOLUNTARY
DENTAL"). _
Insert Whe=Selection.Range, RichText:=True

If you have other macro-related questions, please post them to one of the
microsoft.public.word.vba newsgroups. This group is high-volume and your
question might be overlooked.

--
Regards,
Jay Freedman
Microsoft Word MVP FAQ: http://word.mvps.org
Email cannot be acknowledged; please post all follow-ups to the newsgroup so
all may benefit.

charlie6067 wrote:
1. First Method:
I have written several macros to insert autotext that has some words
bolded, some not, in the paragraphs. The macros are triggered from a
custom drop-down tool bar menu I had made. When this method runs, no
bolding displays when the autotext inserts via the macro.

2. Second method:
If I manually insert the autotext from the Tools menu, the text
inserts with appropriate words formatted in bold.

Why does the second method give the desired results and the first
doesn't?

Here's the code from method one at the end of this message. I recorded
a keystroke macro so maybe there's extra code in it that's messing up
the desired result? Any help will be appreciated.

Thanks,
Charlie
charlie6067

Sub VOL_DEN()
'
' InsertCoverage Macro
' Macro recorded 07/28/06 by Charlie Johnson
'
PasswordOff
Application.DisplayAutoCompleteTips = False
With AutoCorrect
.CorrectInitialCaps = True
.CorrectSentenceCaps = True
.CorrectDays = True
.CorrectCapsLock = True
.ReplaceText = True
End With
ActiveDocument.AttachedTemplate.AutoTextEntries("1 1. VOLUNTARY
DENTAL"). _
Insert Whe=Selection.Range
PasswordOn
End Sub