 |
 | Home | Contact Us | FAQ | Search & Site Map | Link to Us |
 | Sign In | Join | Other 45 Sites in Network |
| HomeDiscussionsAccessExcelInfoPathOutlookPowerPointPublisherWordDirectoryUser Groups Related Topics Outlook ExpressInternet ExplorerWindowsMS Server ProductsMore Topics ... |
MS Office Forum / Word / General MS Word Questions / March 2004Autotext - loading large numbers in Word97
Hi, Can anyone help me please. I have a large number of users who need to load probably about 30 autotext entries (words will have macrons over some letters). Is there a way I can type them up (emailed them to users) and they can download them into Autotext automatically? We can load them via the server but that will overwrite all entries they already have, so it is not really an option. Thanks Yvonne If you were to create a two column table with the heading Autotext in the first column and Name in the second column with the autotext entries and their associated names in the table, and then the following macro is run when the document containing that table is active, it will add the autotext entries to the normal.dot template.  SignaturePlease post any further questions or followup to the newsgroups for the benefit of others who may be interested. Unsolicited questions forwarded directly to me will only be answered on a paid consulting basis. Hope this helps Doug Robbins - Word MVP > Hi, > [quoted text clipped - 10 lines] > Thanks > Yvonne Thnks for that Doug, but I think you forgot to add the macro which I need to run? Thanks Yvonne >-----Original Message----- >If you were to create a two column table with the heading Autotext in the [quoted text clipped - 19 lines] > >. Sorry about that. Here it is, or another recreation of it Dim atnamerange As Range, atname As String, atrange As Range, i As Long, atable As Table Set atable = ActiveDocument.Tables(1) For i = 2 To atable.Rows.Count Set atrange = atable.Cell(i, 1).Range atrange.End = atrange.End - 1 Set atnamerange = atable.Cell(i, 2).Range atnamerange.End = atnamerange.End - 1 atname = atnamerange.Text NormalTemplate.AutoTextEntries.Add Name:=atname, _ Range:=atrange Next i SignaturePlease post any further questions or followup to the newsgroups for the benefit of others who may be interested. Unsolicited questions forwarded directly to me will only be answered on a paid consulting basis. Hope this helps > Thnks for that Doug, but I think you forgot to add the > macro which I need to run? [quoted text clipped - 41 lines] >> >>. |
Reply to this Message |
 Sign In
 Join
 My Latest Posts My Monitored Threads My Blog My Photo Gallery My Profile My Homepage Start New Thread Enable EMail Alerts Rate this Thread
|
©2008 Advenet LLC Privacy Policy - Terms of Use
This website includes both content owned or controlled by Advenet as well as content owned or controlled by third parties.