Retain Format when calling Autotext

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Mickey - 29 Oct 2007 21:45 GMT

Hi,
I have written a macro that calls an autotext. Works fine except I lose the
formatting, i.e, tabs, font size, bold, ect. Is there a way around this.

Thanks,
Mickey
Word 2000

Reply to this Message

Jean-Guy Marcil - 29 Oct 2007 21:55 GMT

Mickey was telling us:
Mickey nous racontait que :

> Hi,
> I have written a macro that calls an autotext. Works fine except I
[quoted text clipped - 4 lines]
> Mickey
> Word 2000

What code are you using to insert the Autotext entries?

Signature

Salut!
_______________________________________
Jean-Guy Marcil - Word MVP
jmarcilREMOVE@CAPSsympatico.caTHISTOO
Word MVP site: http://www.word.mvps.org

Reply to this Message

Mickey - 29 Oct 2007 22:07 GMT

I'm using the following code:

Selection.Paragraphs.TabStops.ClearAll
Selection.ParagraphFormat.TabStops.ClearAll
Selection.Paragraphs.TabStops(InchesToPoints(1.25)) _
.Alignment = wdAlignTabLeft
Selection.Paragraphs.TabStops(InchesToPoints(6.5)) _
.Alignment = wdAlignTabRight

Selection.Collapse Direction:=wdCollapseEnd
NormalTemplate.AutoTextEntries("QPace").Insert _
Where:=Selection.Range

> Mickey was telling us:
> Mickey nous racontait que :
[quoted text clipped - 9 lines]
>
> What code are you using to insert the Autotext entries?

Reply to this Message

Jay Freedman - 30 Oct 2007 01:27 GMT

NormalTemplate.AutoTextEntries("QPace").Insert _
Where:=Selection.Range, RichText:=True

If you put the cursor on the method name (.Insert) and press F1, you
get the Help topic about that method, which explains the optional
RichText argument.

>I'm using the following code:
>
[quoted text clipped - 23 lines]
>>
>> What code are you using to insert the Autotext entries?

--
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.

Reply to this Message