Hi-

I am creating a document in word with excel VBA. I figured out how to
add a command button to word from excel VBA, but I can not figure out
how to add code to that command button for when the command button is
clicked on. I do not want to use a userform. I know how to add code
to the button i create in an excel document, but I can't seem to add
code to a button in word, using excel VBA. Here is the code I have
created so far. I wrote messages in the code to tell you what i was
doing and which part i am having problems with. I have been working on
this for several days and would appreciate any help you can give me.
THank you!


Dim Wdoc As Word.document
Dim Wapp As Word.Application
Dim rng As Word.Range
Dim shp As Word.InlineShape

'this created a word document
Set Wapp = CreateObject("Word.Application")
Wapp.Visible = True
Wapp.Documents.Add
Set Wdoc = Wapp.ActiveDocument

Set rng = Wdoc.Paragraphs.Last.Range

'this created my command button and named it
Set shp =
rng.document.InlineShapes.AddOLEControl(ClassType: ="Forms.Commandbutton.1",
_
Range:=Wdoc.Paragraphs.Last.Range)

shp.OLEFormat.Object.Caption = "Add Orbit"
shp.OLEFormat.Object.Name = "OrbitButton"

'this is the part that doesn't work. I am trying to add code for when
it is clicked on. This is one of
'the methods i tried.
With
rng.document.VBProject.VBComponents(ActiveDocument .CodeName).CodeModule
.InsertLines .CreateEventProc("Click",
shp.OLEFormat.Object.Name) + 1, _
"Msgbox ""You Clicked The Button"" "
End With


'i also tried changing the previous code to this and it still did not
work.

With
thisWorkbook.VBProject.VBComponents(ActiveSheet.Co deName).CodeModule
.InsertLines .CreateEventProc("Click",
shp.OLEFormat.Object.Name) + 1, _
"Msgbox ""You Clicked The Button"" "
End With