autotext loses formatting

[Drake]

I am having a problem with autotext that I paste into a document via VBA
dropping the underlining or hidden text.

My insert code is:

temps(testtemplate).AutoTextEntries("TestAutoText").Insert
where:=Selection.Range

It drops it in fine, but if there is text underlined or if there is hidden
text, it is dropped.

Any thoughts?

 

[Jay Freedman]

Hi Drake,

You're missing the optional second argument -- try

temps(testtemplate).AutoTextEntries("TestAutoText").Insert _
where:=Selection.Range, RichText:=True

The RichText argument defaults to False, which means "plain text".

(P.S.: This info *is* in the VBA help topic on the Insert method.)