Word Template : Executing VBA macro on a graphical button click

Question

I've created a VBA Macro for word template and I want to associate it to a button(Graphics button, Not keyboard buttons).There are basically two ways to create a macro :

1) Using macro recorder

2) Using VBA for application to write macro from scratch

But I found several issues with these ways :

I tried First one, What I want is to execute a macro on a button onclick event. but in that I am not getting how to assign that macro to that button.

For second option I tried following procedure :

Goto VB by pressing Alt + F11. On the Tools menu, click References. Select the reference for Microsoft Visual Basic for Applications Extensibility. Insert a new module, and then add the following code example.

 Sub Test()

'Add a command button to a new document
Dim doc As Word.Document
Dim shp As Word.InlineShape
Set doc = Documents.Add

Set shp = doc.Content.InlineShapes.AddOLEControl(ClassType:="Forms.CommandButton.1")
shp.OLEFormat.Object.Caption = "Click Here"

'Add a procedure for the click event of the inlineshape
'**Note: The click event resides in the This Document module
Dim sCode As String
sCode = "Private Sub " & shp.OLEFormat.Object.Name & "_Click()" & vbCrLf & _
        "   MsgBox ""You Clicked the CommandButton""" & vbCrLf & _
        "End Sub"
doc.VBProject.VBComponents("ThisDocument").CodeModule.AddFromString sCode

End Sub

This is the code for macro creation through Vb.But here error is coming in secondlast line of code.

Can anyone suggest me how to get an executable macro on a button click? Am I doing any mistakes in above code?

What is the error that you are seeing? Is it related to security of VBA project model? I am able to run this code from word vba and the button gets associated with the code. — shahkalpesh
The Error related to above code is solved now.Actually we need to enable Vb application and extensibility through Tools -> References -> Microsoft Visual basic Apllication and extensibility. This is because by default the VBA macro thing is disabled in Microsoft word. — MankitaP
U can find more help from this link to enable your VBA support to MS- word support.microsoft.com/kb/282830 — MankitaP
Nope.I am still not getting how to execute a macro on button click. — MankitaP

n00b n00b · Accepted Answer · 2013-08-12T05:53:56

For office 2010 that I have:

1.Macros can be assigned to buttons that will show up in top-left corner of your window (Quick Access Toolbar) When you create a macro, it asks if you want to assign it to keyboard or Button where you can select button

2.You can add a command button or any other control that will run a code when you click it. To do so first you have to add 'Command Button' to your ribbon so that you can create button in your page. To add it you can click on Office button, go to Options, then go to Customize Ribbon and then select All commands from Choose commands from drop down list. find the Command Button and add it somewhere to you ribbon. You may have to create a custom tab in your ribbon. When you have the button in your ribbon, then you can add button to your page and after adding the ribbon double-click on it, and you can write code in button's event handler. You can copy & paste your Macro code there or call the macro using call command How to add a button and call a Macro

Word Template : Executing VBA macro on a graphical button click

2 Answers