Word.Application Object

[brynrogers]

Hello,

I'm new to this forum, and this isnt strictly a VBA question more a VBS one but it is relevant so please hear me out.

Im trying to run this piece of code..

Set oWord = CreateObject("Word.Application")

oWord.AddIns.Add FileName:="C:\Program Files (x86)\Labelling Tool v.2.0\LabelingData\Labeling.dotm", Install=True


oWord.AddIns ("Labeling.dotm").Installed = True

oWord.Quit

Set oWord = Nothing

However it stop at this line..

oWord.AddIns.Add FileName:="C:\Program Files (x86)\Labelling Tool v.2.0\LabelingData\Labeling.dotm", Install=True


With this error..
Microsoft VBScript compilation error: Expected statement

The file does exist in this location.

If I comment this line out, (the addon is already installed), I get an error on the next line...

'The requested member of the collection does not exist'
Its referring to 'Labeling.dotm'

I have followed the API info for these methods and properties, and yet they just dont work?

Can anyone help please?

Thanks, brynrogers

[brynrogers]

OK I see the errors of my ways now... this works without error.. but the AddIn is still not enabled?

Set oWord = CreateObject("Word.Application")
Set oAddins = oWord.AddIns

oAddIns.Add "C:\Program Files (x86)\Labelling Tool v.2.0\LabelingData\Labeling.dotm", True
oAddIns ("C:\Program Files (x86)\Labelling Tool v.2.0\LabelingData\Labeling.dotm").Installed = True

Set oAddins = Nothing
oWord.Quit
Set oWord = Nothing

[Guessed]

Your code is doing as you expect but you are not making use of the loaded addin before quitting Word. If Word is subsequently re-opened, you will discover the addin is now in your list of addins but its status is not turned on.

You can either choose to turn this on every time you open Word by using just your .Installed line but if you want it ALWAYS turned on, it is easier to simply copy the template to the Addins folder.

By default the Addins folder is in %appdata%\Microsoft\Addins OR %appdata%\Microsoft\Word\STARTUP but it could have been changed by the user so this following code would perform the task of installing the template in a location so that whenever Word is opened, the addin is installed and active.

Set oWord = CreateObject("Word.Application")
  Dim sAddins As String
  sAddins = oWord.Options.DefaultFilePath(8) 'where 8 = wdStartupPath
  FileCopy "C:\Program Files (x86)\Labelling Tool v.2.0\LabelingData\Labeling.dotm"", sAddins & "\Labeling.dotm"
  oWord.Quit
Set oWord = Nothing