We had a low priority request for this at a client. The two attached scripts were as far as I got with it (just initial testing of listing and deleting autotext entries).
Please do share if you are able to find a way to do this as I've heard of at least one other request for this functionality. -Phil _________________________________________________________________ Phil Schwan | Technical Architect, Enterprise Windows Services Project Leadership Associates | 2000 Town Center, Suite 1900, Southfield, MI 48075 Lync: 312.756.1626 Mobile: 419.262.5133 www.projectleadership.net<http://www.projectleadership.net/> [Description: Description: Description: Arrow email]Lead with Strategy. Leverage Technology. Deliver Results. [linkedin_logo-19x20]<http://www.linkedin.com/in/philschwan>[Twitter-Logo1-20x20]<https://twitter.com/philschwan> [wordpress-logo3] <http://myitforum.com/myitforumwp/author/philschwan> From: [email protected] [mailto:[email protected]] On Behalf Of Marcum, John Sent: Thursday, February 20, 2014 9:11 AM To: [email protected] Subject: [mssms] RE: OT: Deploy Office dictionary/autocorrect I "think" those are stored in Exchange in Office 2010 and up. I know something changed about them for sure. ________________________________ John Marcum Lead Desktop Engineer Bradley Arant Boult Cummings LLP ________________________________ From: [email protected]<mailto:[email protected]> [mailto:[email protected]] On Behalf Of Beardsley, James Sent: Wednesday, February 19, 2014 5:16 PM To: [email protected]<mailto:[email protected]> Subject: [mssms] OT: Deploy Office dictionary/autocorrect Our CIO wants to see if we can add custom entries to both the custom dictionary and to the autocorrect on everyone's computer. Anyone ever tried that before? I think I found a way to do the custom dictionary but from what I've found so far, the auto-correct entries are saved in a MSO1033.acl file within %APPDATA% and it doesn't look like that's editable with a text editor. I guess we could look at setting up the auto-correct like we wanted on a machine and then deploy that .acl file out to all computers but then of course, that would overwrite any custom additions the user had added themselves. Any ideas? Thanks, James Beardsley | Firm Technology Group Dixon Hughes Goodman LLP [Description: Description: Description: cid:[email protected]] ________________________________ IRS Compliance: Any tax advice contained in this communication (including any attachments) is not intended or written to be used, and cannot be used, for the purpose of (i) avoiding penalties imposed under the Internal Revenue Code or applicable state or local tax law or (ii) promoting, marketing, or recommending to another party any transaction or matter addressed herein. ________________________________ Confidentiality Notice: This e-mail is intended only for the addressee named above. It contains information that is privileged, confidential or otherwise protected from use and disclosure. If you are not the intended recipient, you are hereby notified that any review, disclosure, copying, or dissemination of this transmission, or taking of any action in reliance on its contents, or other use is strictly prohibited. If you have received this transmission in error, please reply to the sender listed above immediately and permanently delete this message from your inbox. Thank you for your cooperation. ________________________________ Confidentiality Notice: This e-mail is from a law firm and may be protected by the attorney-client or work product privileges. If you have received this message in error, please notify the sender by replying to this e-mail and then delete it from your computer. ________________________________ Confidentiality Notice: This e-mail is from a law firm and may be protected by the attorney-client or work product privileges. If you have received this message in error, please notify the sender by replying to this e-mail and then delete it from your computer. ________________________________ PRIVILEGED AND CONFIDENTIAL. This email and any files transmitted with it are privileged and confidential and intended solely for the use of the individual or entity to whom they are addressed. If you have received this email in error please notify the sender. If you are not the named addressee you should not disseminate, distribute or copy this e-mail or any of its attachments.
<<inline: image002.jpg>>
<<inline: image003.jpg>>
<<inline: image004.jpg>>
<<inline: image005.jpg>>
<<inline: image006.jpg>>
On Error Resume Next
Set objWord = CreateObject("Word.Application")
Set objOptions = objWord.Options
Set objDoc = objWord.Documents.Add()
Wscript.Echo"Show AutoComplete suggestions: " & _
objWord.DisplayAutoCompleteTips
For Each strEntry in objWord.NormalTemplate.AutoTextEntries
Wscript.Echo "AutoText entry: " & strEntry.Name
Next
objWord.Quit
'On Error Resume Next
Set objWord = CreateObject("Word.Application")
Set objDoc = objWord.Documents.Add()
' List current AutoText entries
For Each i in objWord.NormalTemplate.AutoTextEntries
wscript.echo "AutoTextName: " & i.Name
Next
' Delete specific AutoText entry by name
For Each i in objWord.NormalTemplate.AutoTextEntries
If i.Name = "Some Auto-correct Entry" Then
wscript.echo "Deleting " & i.Name
i.Delete
End If
Next
objWord.Quit
