print autotext in microsoft word 97

[dk medical]

i store all my addresses in autotext, and now i want to print the information stored in autotext...but i can't figure out how to do this...PLEASE HEL

Thanks
Dagmar

 

[Reg]

There's a 'support.dot' template with 2002 which allows you to backup autocorrect and the backup seems to be a standard doc. Don't know if it will work with 97 th

Reg

 

[dk medical]

there is no such luck with the 97 version...i know this can be done, as i did it a couple of years ago. i called microsoft, and they no longer offer support for '97. :

----- Reg wrote: ----

There's a 'support.dot' template with 2002 which allows you to backup autocorrect and the backup seems to be a standard doc. Don't know if it will work with 97 th

Reg

 

[dk medical]

Reg

thank you so much for trying to help me!! i'm not a computer novice, so forgive me for asking....load it where?? run it how?? i need english here

 

[dk medical]

reg

i just figured it out...if you could see me now i'm jumping for joy it's quite easy actually..

open a word document...then file, print....then print what in the pull down box??....autotext entries

thanks again for your help!!

dags

 

[Reg]

Ok, here goes - but bear in mind i'm using a later version of word so can't be sure the prompts will work the same. What we are trying to do is insert a visual basic function into a macro.

open a blank document - this should be based on the template you want the entries from - in most cases this would be Normal.dot

Click Tools, Macro, Macros, put in a 'macro name' eg: GetCorrect (avoid using 'auto' in the name), in the 'macros in' box choose 'This document

Click Creat

NB: - I'm working on word 2002 so the following may be entirely different for you

Complicated Visual Basic screen appears which you can mostly ignor

the window you do care about should look something like this

Sub acorrect(

' acorrect Macr
' Macro created 26/02/2004 by yo


End Su


Click AFTER the End Su

Past the code in (whilst silently acknowledging the lord Bills copyright and accepting the EULA

'>>>>>>>>>>>> start of cod
'****** GetAutoCorrectEntries() *****

' Inserts each AutoCorrect entry into a Word document including the Value and whethe
' or not it is to include formatting. Name is the current name of the entry
' Value is the text value of the entry, and RTF is a Boolean that is True if the entr
' has "formatted text" checked. Then converts the text into a table and adds a heading row to the table

' x is used to loop through the AutoCorrect entries
' TotalACEntries is the number of AC entries

Private Function GetAutoCorrectEntries(
Dim x As Intege
Dim TotalACEntries As Intege

TotalACEntries = Application.AutoCorrect.Entries.Coun
For x = 1 To TotalACEntrie
With Selectio
.TypeText Text:=Application.AutoCorrect.Entries.Item(x).Nam
.TypeText vbTa

'check for formatting and insert RTF text if necessar
If Application.AutoCorrect.Entries.Item(x).RichText = True The
Application.AutoCorrect.Entries(x).Apply Range:=Selection.Rang
Els
.TypeText Text:=Application.AutoCorrect.Entries.Item(x).Valu
End I

.TypeText vbTa
.TypeText Text:=Application.AutoCorrect.Entries.Item(x).RichTex
.TypeParagrap
End Wit

'update status ba
Application.StatusBar = StatMsg1 & x & StatMsg2 & TotalACEntrie
Next

' convert to tabl
Application.StatusBar = StatMsg
Selection.HomeKey Unit:=wdStory, Extend:=wdExten

Selection.ConvertToTable Separator:=wdSeparateByTabs, NumColumns:=

' add row headin
With Selectio
.MoveUp Unit:=wdLine, Count:=
.InsertRows
.TypeText Text:="Name
.MoveRight Unit:=wdCel
.TypeText Text:="Value
.MoveRight Unit:=wdCel
.TypeText Text:="RTF
.HomeKey Unit:=wdStor
End Wit

'Selection.GoTo What:=wdGoToPage, Which:=wdGoToNex
'Selection.InsertBreak Type:=wdPageBrea

End Functio

'>>>>>>>>> end of cod


Press Run - Button on the menu bar like a VCR playe
Word should hum for a while and then you can close visual basic and, assuming no errors, you will have a document containing all your auto-correct

Re

 

[Reg]

D

D'oh, I thought you wanted them in a document not just hard copy. Sorry to have wasted your time but glad it worked out

Reg

 

[Beth Melton]

FWIW, if you had posted this to one of the 15 available Word
newsgroups you would have found the answer sooner.

--
Please post all follow-up questions to the newsgroup. Requests for
assistance by email can not be acknowledged.

~~~~~~~~~~~~~~~
Beth Melton
Microsoft Office MVP

Word FAQ: http://mvps.org/word
TechTrax eZine: http://mousetrax.com/techtrax/
MVP FAQ site: http://mvps.org/

reg,

i just figured it out...if you could see me now i'm jumping for joy

it's quite easy actually...

open a word document...then file, print....then print what in the

pull down box??....autotext entries.