Can "Comment" be added to mouse right-click menu in WORD?

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

When editing a document in WORD, rather than going to the INSERT menu to
place a COMMENT in same, it would be convenient to be able to right-click on
the mouse and have COMMENT be one of the options. Can COMMENT be added to the
right-click pull-down menu within a given document? I currently use WORD
2003.
 
Yes! It's a littlr more involved than your average customization, but yes.

Select Tools > Customize from the Menu

On the Toolbar tab, scroll down and check "Shortcut Menus" - this will add a
small toolbar to your window.

Switch to the Commands tab and select "Insert" from the categories list on
the right, then scroll down th elist on the right to find Comment

Click and drag "Comment" and hover over "Text" on the Shortcut Menu Bar you
added - a long popup will open

Still dragging go and hover over Text in the popup menu and the normal right
click menu will popup

Keep dragging and drop "Comment" where you want it in thi smenu.

Close the Customize dialog
 
Any idea how this can be done for Word 2007?




Tony Jollans said:
Yes! It's a littlr more involved than your average customization, but yes.

Select Tools > Customize from the Menu

On the Toolbar tab, scroll down and check "Shortcut Menus" - this will add a
small toolbar to your window.

Switch to the Commands tab and select "Insert" from the categories list on
the right, then scroll down th elist on the right to find Comment

Click and drag "Comment" and hover over "Text" on the Shortcut Menu Bar you
added - a long popup will open

Still dragging go and hover over Text in the popup menu and the normal right
click menu will popup

Keep dragging and drop "Comment" where you want it in thi smenu.

Close the Customize dialog
Click to expand...
 
The customization interface has been removed but it can still be done via
VBA.

Press Alt+F11 to open the VBE
Press Ctrl+G to go to the Immediate Window
Type (or cut and paste) this:
CommandBars("Text").Controls.Add Type:=msoControlButton, ID:=1589,
Before:=6

(the before:=6 is the position to put it in)
Press Enter
Press Alt+F11 to close the VBE
 
I don't know of a list but you can build your own with something like ..

On Error Resume next
For i = 1 To 1000 ' or whatever
Selection.TypeText i & vbTab &
CommandBars.FindControl(ID:=i).Caption
Selection.TypeParagraph
Next i

This should work but you will probably want to tidy it up and add better
error handling.
 
Is there a way to add "paste special" to the right-click menu as well as
comment?
The comment works great! Thanks Tony
 
I forgot to mention for Word 2007 as well.

Tony Jollans said:
I don't know of a list but you can build your own with something like ..

On Error Resume next
For i = 1 To 1000 ' or whatever
Selection.TypeText i & vbTab &
CommandBars.FindControl(ID:=i).Caption
Selection.TypeParagraph
Next i

This should work but you will probably want to tidy it up and add better
error handling.
Click to expand...
 
If you had run the code in the post to which you replied you could have
found out that the ID to use is 755
 
Thanks so much Tonny - you the man!

Tony Jollans said:
If you had run the code in the post to which you replied you could have
found out that the ID to use is 755
Click to expand...
 
I used this code to add "Underline" to the context menu:

CommandBars("Text").Controls.Add Type:=msoControlButton, ID:=115,
Before:=2

It worked a treat. Only problem: I ran it about 7 times before I realised
it was adding the control to my Normal template and not the document I had
opened.

Now I have 6 instances of the control that I'd like to get rid of. There
doesn't seem to be an equivalent "Delete" or "Remove" function, and don't
just want to hide them.

Any suggestions please.

ACR
 
Back
Top