VBScript - Amend Word Autocomplete list

Good afternoon,

How can I amend the Microsoft Word 2003 Autocomplete list using a VBScript? I want to remove an existing entry and replace.

Michael
LVL 1
Barnardos_2LSAsked:
Who is Participating?
 
Barnardos_2LSConnect With a Mentor Author Commented:
I resolved the issue with the attached code.


'Function to replace a Microsoft Word autotext entry
'Takes the template location, old and new entries as parameters
Function AutoTextReplace(strTemplate, strOldEntry, strNewEntry)
 
Dim i
Set objWord = CreateObject("Word.Application") 
Set objDoc = objWord.Documents.Open(strTemplate, False) 
Set objTxtEntry = objWord.NormalTemplate.AutoTextEntries.Add(strNewEntry, objWord.Selection.Range) 
objWord.NormalTemplate.AutoTextEntries(strNewEntry).Value = strNewEntry 
For Each i In objWord.NormalTemplate.AutoTextEntries 
   If i.Name = strOldEntry Then
	objWord.NormalTemplate.AutoTextEntries(strOldEntry).Delete
   End If
Next 
objWord.Quit 
 
End Function

Open in new window

0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.