VBA script to open file from Word.

Forums › Microsoft Windows › VBA script to open file from Word.

stevenz

2802 posts

Uber Geek

#104707 20-Jun-2012 17:20

I'm trying to put together a template file that when loaded into Word (2010) via startup, will add a custom tab to the ribbon with some shortcuts to open a selection of templates at a fixed location. I can't for the life of me work out how to get Word to actually open a file via a macro command.

The VBA script I'm trying to use is:

Sub OpenFile1()
Dim wdApp as Object
Set wdApp = CreateObject("Word.Application") - Probably redundant, makes no difference
wdApp.Visible = True
wdApp.Documents.Open Filename:="Filepath+name"
End Sub

The CustomUI.xml code that I'm trying to call it with is:

<button id="button1" label="Open File" size="normal" imageMso="Image" onAction="OpenFile1" />

Any ideas what I'm doing wrong?

I'm trying to make this fairly portable so we can give it to a few people so they've got a quick & simple way of getting at the right set of templates. It looks like it should be fairly easy, but I just get an "invalid property assignment" error.

@KnightNZ

gzt

17104 posts

Uber Geek

Lifetime subscriber

#644056 20-Jun-2012 22:34

does your vba script work by itself?

stevenz

2802 posts

Uber Geek

#644159 21-Jun-2012 10:28

It works by itself, so I must be calling it incorrectly in the CustomUI code.

@KnightNZ

stevenz

2802 posts

Uber Geek

#644178 21-Jun-2012 11:14

It worked when I added a separate function as a "control" and called the actual open function from that:

Sub OpenFile2()
Dim wdApp As Object
Dim wdDoc As Object
Dim sFname As String
sFname = "C:\Templates\Doc1.docx"
Set wdApp = CreateObject("Word.Application")
wdApp.Visible = True
Set wdDoc = wdApp.Documents.Add(sFname)
End Sub

Sub BtnPress(control As IRibbonControl)
Call OpenFile2
End Sub

Now I just need to tidy things up and I should be able to get a nice tidy menu system going.

@KnightNZ