Geekzone: technology news, blogs, forums
Guest
Welcome Guest.
You haven't logged in yet. If you don't have an account you can register now.




2785 posts

Uber Geek
+1 received by user: 122


# 104707 20-Jun-2012 17:20
Send private message

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.





Create new topic

gzt

10810 posts

Uber Geek
+1 received by user: 1810


  # 644056 20-Jun-2012 22:34
Send private message

does your vba script work by itself?



2785 posts

Uber Geek
+1 received by user: 122


  # 644159 21-Jun-2012 10:28
Send private message

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




 
 
 
 




2785 posts

Uber Geek
+1 received by user: 122


  # 644178 21-Jun-2012 11:14
Send private message

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.




Create new topic



Twitter and LinkedIn »



Follow us to receive Twitter updates when new discussions are posted in our forums:



Follow us to receive Twitter updates when news items and blogs are posted in our frontpage:



Follow us to receive Twitter updates when tech item prices are listed in our price comparison site:





News »

New Zealand government unveils new digital service to make business easier
Posted 16-Jul-2019 17:35


Scientists unveil image of quantum entanglement
Posted 13-Jul-2019 06:00


Hackers to be challenged at University of Waikato
Posted 12-Jul-2019 21:34


OPPO Reno Z now available in New Zealand
Posted 12-Jul-2019 21:28


Sony introduces WF-1000XM3 wireless headphones with noise cancellation
Posted 8-Jul-2019 16:56


Xero announces new smarter tools, push into the North American market
Posted 19-Jun-2019 17:20


New report by Unisys shows New Zealanders want action by social platform companies and police to monitor social media sites
Posted 19-Jun-2019 17:09


ASB adds Google Pay option to contactless payments
Posted 19-Jun-2019 17:05


New Zealand PC Market declines on the back of high channel inventory, IDC reports
Posted 18-Jun-2019 17:35


Air New Zealand uses drones to inspect aircraft
Posted 17-Jun-2019 15:39


TCL Electronics launches its first-ever 8K TV
Posted 17-Jun-2019 15:18


E-scooter share scheme launches in Wellington
Posted 17-Jun-2019 12:34


Anyone can broadcast with Kordia Pop Up TV
Posted 13-Jun-2019 10:51


Volvo and Uber present production vehicle ready for self-driving
Posted 13-Jun-2019 10:47


100,000 customers connected to fibre broadband network through Enable
Posted 13-Jun-2019 10:35



Geekzone Live »

Try automatic live updates from Geekzone directly in your browser, without refreshing the page, with Geekzone Live now.


Support Geekzone »

Our community of supporters help make Geekzone possible. Click the button below to join them.

Support Geezone on PressPatron



Are you subscribed to our RSS feed? You can download the latest headlines and summaries from our stories directly to your computer or smartphone by using a feed reader.

Alternatively, you can receive a daily email with Geekzone updates.