Getting a Microsoft Word icon in Excel custom toolbar

B

bartmv

For ease of switching between the two applications, I have inserted the
Microsoft Excel icon onto my MS Word toolbar (using View / Toolbars /
Customize Toolbars / Menus).

I can not seem to locate the same functionality in MS Excel -- I can
not find a Microsft Word icon anywhere in the list of commands.

Is it missing?
 
J

JE McGimpsey

bartmv said:
For ease of switching between the two applications, I have inserted the
Microsoft Excel icon onto my MS Word toolbar (using View / Toolbars /
Customize Toolbars / Menus).

I can not seem to locate the same functionality in MS Excel -- I can
not find a Microsft Word icon anywhere in the list of commands.

Is it missing?

There's no comparable built-in command in XL. However, it's very easy to
implement.

Put this macro in your Personal Macro Workbook (or another add-in),


Public Sub SwitchToWord()
Dim oWordApp As Object
On Error Resume Next
Set oWordApp = GetObject(, "Word.Application")
If oWordApp Is Nothing Then
Set oWordApp = CreateObject("Word.Application")
oWordApp.Documents.Add
End If
On Error GoTo 0
AppActivate "Microsoft Word"
Set oWordApp = Nothing
End Sub


Now insert a Custom Button on your desired toolbar, and attach the macro
to the button.
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top