Word addin not loaded when application is started with VBA from within Excel

Anonymous
2019-05-17T11:20:39+00:00

I have an add-in (dotm template) which is stored in Word's Startup folder. Among other things it contains a customized ribbon.

This works fine, no problems when Word is started from the menu, double clicking a document etc. The add-in is loaded and the customizations in the ribbon are visible.

However if Word is started from VBA within another application (Excel or Access) the customizations in the ribbon do not show. If I check in the Developer tab the Add-in is listed and is selected as well.

Even if I unselected it (unload) and select (load) it again from the interface, the customized ribbon does not show.

This worked fine in Office 2010 with the exact same Excel VBA code and the same add-in.

Why does it not work in Office 2016? 

Version 1904

Build 11601.20178

Microsoft 365 and Office | Word | For home | Windows

Locked Question. This question was migrated from the Microsoft Support Community. You can vote on whether it's helpful, but you can't add comments or replies or follow the question.

0 comments

42 answers

Sort by: Newest
Most helpful Newest Oldest
  1. Anonymous
    2019-05-17T13:12:40+00:00

    Try my code and see what happens.

    Again, on my system, the Add-ins load and are active. The Ribbon modifications happen.

    Was this answer helpful?

    0 comments
  2. Anonymous
    2019-05-17T13:06:17+00:00

    The problem is not that the code does not run, the problem is that the add-in that is in the startup folder is not loaded.

    The interface says its loaded (in tab Developer) but the ribbon customizations are not visible.

    Was this answer helpful?

    0 comments
  3. Anonymous
    2019-05-17T13:02:00+00:00

    This is your code, patched:

    Sub StartWDFromXL()

Dim oWdApp 'As Word.Application
Dim oWdDoc 'As Word.Document
  On Error Resume Next

Set oWdApp = GetObject(, "Word.Application")
If Err Then
Set oWdApp = CreateObject("Word.Application")
Err.Clear
End If
  On Error GoTo Err_Handler

oWdApp.Visible = True
oWdApp.Activate
Set oWdDoc = oWdApp.Documents.Add
oWdDoc.Range.Text = "New Doc"

  Set oWdApp = Nothing
Set oWdDoc = Nothing

Exit Sub

Err_Handler:
MsgBox Err.Number & " " & Err.Description

End Sub

    It runs and creates the new document on my system.

    Was this answer helpful?

    0 comments
  4. Anonymous
    2019-05-17T13:01:12+00:00

    Reference to the Word library?

    Was this answer helpful?

    0 comments
  5. Anonymous
    2019-05-17T12:55:43+00:00

    Hi Astrid,

    Haven't had a chance to go through this fully. This is from a first try:

    Was this answer helpful?

    0 comments