M
Margaret Upton
I am using Word 2007 which I cannot put up menus to run macros as you could
in the 2003 version. As I am no programmer !! I cannot get my head around
the ribbon, I downloaded one which you could put macros on and I cannot
manage it. In the old version I used the code below for a yes no box.
Would it be possible to add something to it that would bring up a box that
would list some macros using this method. The code I used below (that
someone gave me years ago) to bring up different save options. Have tried
putting in Application.Run MacroName:="macro name" in various places and
that does not work, and of course I cannot get multiple yes/ no choices in
the same menu. If anyone can make sense of this, could they help please.
Dim intMsgBoxResult As Integer
intMsgBoxResult = MsgBox("Click Yes for town or No for Country", vbYesNo + _
vbQuestion, "Current Status")
If intMsgBoxResult = vbYes Then
With Dialogs(wdDialogFileSaveAs)
.Name = "n:\Town Details 2003\"
.Show
End With
Else
With Dialogs(wdDialogFileSaveAs)
.Name = "n:\Country Details 2003\"
.Show
End With
End If
Margaret
in the 2003 version. As I am no programmer !! I cannot get my head around
the ribbon, I downloaded one which you could put macros on and I cannot
manage it. In the old version I used the code below for a yes no box.
Would it be possible to add something to it that would bring up a box that
would list some macros using this method. The code I used below (that
someone gave me years ago) to bring up different save options. Have tried
putting in Application.Run MacroName:="macro name" in various places and
that does not work, and of course I cannot get multiple yes/ no choices in
the same menu. If anyone can make sense of this, could they help please.
Dim intMsgBoxResult As Integer
intMsgBoxResult = MsgBox("Click Yes for town or No for Country", vbYesNo + _
vbQuestion, "Current Status")
If intMsgBoxResult = vbYes Then
With Dialogs(wdDialogFileSaveAs)
.Name = "n:\Town Details 2003\"
.Show
End With
Else
With Dialogs(wdDialogFileSaveAs)
.Name = "n:\Country Details 2003\"
.Show
End With
End If
Margaret