autotext does not use correct fonts

[Bob]

I've recorded a macro to add a section break followed by
an autotext item. The autotext consists of a page of
formatted (by styles) text and tables. When I recorded the
macro the autoext styles displayed okay. The macro is:

Selection.InsertBreak Type:=wdSectionBreakNextPage
NormalTemplate.AutoTextEntries("Validation
Sheet").Insert Where:=Selection.Range

When I run the macro all of the the autotext text
(headings, body text, cell text) takes the style of the
paragraph where the insertion point was when the macro was
run.

Why would the macro record okay but not run okay?
What modifications do I need to do to the macro to get the
correct styles back?
I'm using Word 2000

 

[George Perchette]

Dear Bob

Just add ", RichText:=True"

NormalTemplate.AutoTextEntries("Validation
Sheet").Insert Where:=Selection.Range, RichText:=True

This should work.

Best Regards, George

 

[Bob]

Thanks George.

-----Original Message-----
Dear Bob

Just add ", RichText:=True"

NormalTemplate.AutoTextEntries("Validation
Sheet").Insert Where:=Selection.Range, RichText:=True

This should work.

Best Regards, George





.