Hallo Zusammen,
Ich habe in Word per VBA einen Button der das Word-Dokument in eine SQL Datenbank zurückspeichert.
Hier die bisherige Button-Definition:
Set oCommandBar = CommandBars.Add(Name:="Exp", Position:=msoBarTop)
oCommandBar.Visible = True
Set oMenue = oCommandBar.Controls.Add(Type:=msoControlButton)
With oMenue
.Caption = "Speichern nach Exp ..."
.Style = msoButtonCaption
.OnAction = "SendToExp"
.Visible = True
End With
OnAction ruft dann die Function
Public Function SendToExp() As String
Dim httpreq As MSXML2.XMLHTTP30
Dim Data As String
Dim prop As DocumentProperty
Dim url As String
........
End Function
Das funktioniert auch seit Jahren fehlerfrei. Jetzt wollte ich einen zweiten Button hinzufügen, der zusätzlich ein PDF zurückspeichert.
Da ich eh schon an das Makro ran musste, wollte ich die Buttons auf ein modernes Ribbon UI umstellen.
Neues Ribbon UI XML
<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui">
<ribbon startFromScratch="false">
<tabs>
<tab id="customTab" label="Justus Tab">
<group id="customGroup" label="Justus Group">
<button id="customButton" label="Exp1" imageMso="FileSave" size="normal" onAction="Messagebox" />
<button id="customButton2" label="Exp2" imageMso="FileSave" size="normal" onAction="SendToExp" />
</group>
</tab>
</tabs>
</ribbon>
</customUI>
Der Button für die Messagebox funktioniert:
Sub Messagebox(control As IRibbonControl)
MsgBox("Hallo")
End Sub
Beim Button SendToExp kommt Fehler:
"Falsche Anzahl an Argumenten oder ungültige Zuweisung einer Eigenschaft".
Public Function SendToExp(control As IRibbonControl) As String
......
End Function
Kann mir jemand sagen wie der Aufruf richten lauten muss?
Besten Dank und viele Grüße
Markus
|