Hi ,
I'm trying to add a custom tab in the ribbon using the below code (which i've also used for Excel with little modifications and it worked) and it doesn't work. the problem is that it runs and doesn't give any error but the ribbon is not in the document. I've also tried to put the file in the "\AppData\Local\Microsoft\Office\" folder but doesn't do anything. Could you kindly help me, please?
Thanks!
Code:
Sub test()
Dim wd As word.Application
Dim Doc As word.Document
Dim VBP As Object, VBC As Object, CM As Object, FM As Object
Dim strProcName As String
Set wd = CreateObject("Word.Application")
wd.Visible = True
Set Doc = wd.Documents.Add
Dim hFile As Long
Dim path As String, fileName As String, ribbonXml As String, User As String
hFile = FreeFile
User = Environ("HomePath")
path = "C:" & User & "\AppData\Local\Microsoft\Office\"
fileName = "Word Customizations.officeUI"
ribbonXml = "<mso:customUI xmlns:mso='http://schemas.microsoft.com/office/2009/07/customui'>" & vbNewLine
ribbonXml = ribbonXml + " <mso:ribbon>" & vbNewLine
ribbonXml = ribbonXml + " <mso:qat/>" & vbNewLine
ribbonXml = ribbonXml + " <mso:tabs>" & vbNewLine
ribbonXml = ribbonXml + " <mso:tab id='mso_c1.109B239D' label='Formatting' insertBeforeQ='mso:TabDeveloper'>" & vbNewLine
ribbonXml = ribbonXml + " <mso:group id='mso_c2.109B239D' label='Export' imageMso='ViewFullScreenView' autoScale='true'>" & vbNewLine
ribbonXml = ribbonXml + " <mso:button id='x1:startExport_0_109F2716' " & vbNewLine
ribbonXml = ribbonXml + "imageMso='ViewFullScreenView'onAction='startExport' visible='true'/>" & vbNewLine
ribbonXml = ribbonXml + " </mso:group>"
ribbonXml = ribbonXml + " </mso:tab>" & vbNewLine
ribbonXml = ribbonXml + " </mso:tabs>" & vbNewLine
ribbonXml = ribbonXml + " </mso:ribbon>" & vbNewLine
ribbonXml = ribbonXml + "</mso:customUI>"
Open path & fileName For Output Access Write As hFile
Print #hFile, ribbonXml
Close hFile