用分配的宏添加一個命令按鈕

Question

在毫秒Word中如何使用VBA添加CommandButton併爲其分配宏（仍然使用VBA）？

我有代碼來添加命令按鈕。如何在每次運行第一個宏時添加一個宏而不添加私人子？

Sub CompareCase() 

Dim testname As String 
Dim test1, test2, test3 

test1 = "" 
test2 = "" 
test3 = "" 

testname = LCase(InputBox("Enter name of test.") 

Call SelectAndProcess 

Select Case testname 

Case "string1" 
    ActiveDocument.compare Name:=test1, DetectFormatChanges:=False, CompareTarget:=wdCompareTargetOriginal 

Case "string2" 
    ActiveDocument.compare Name:=test2, DetectFormatChanges:=False, CompareTarget:=wdCompareTargetOriginal 

Case "string3" 
    ActiveDocument.compare Name:=test3, DetectFormatChanges:=False, CompareTarget:=wdCompareTargetOriginal 

Case Else 
    MsgBox "Test not found" 

End Select 

Call Macro_Add_Button 

End Sub 

我想在創建時爲CommandButton分配一個宏。

Sub Macro_Add_Button() 

Dim oCtl 
Dim oCmd 

ActiveDocument.Content.InsertParagraphAfter 

Set oCtl = ActiveDocument.InlineShapes.AddOLEControl(ClassType:="Forms.CommandButton.1", Range:=ActiveDocument.Paragraphs.Last.Range) 

Set oCmd = oCtl.OLEFormat.Object 

oCmd.Caption = "Score" 

End Sub 

Answer 1

你的想法的問題是，證件表面上的MSForms控制被認爲屬於文檔的對象。因此，它鏈接的代碼必須位於ThisDocument模塊中，並且其名稱必須是控件的名稱，後跟下劃線並單擊：CommandButton1_Click。

如果您需要更多的靈活性，那麼請考慮使用MacroButton字段。您可以將看起來像按鈕的（內嵌）圖形指定爲「顯示文本」。並且您的代碼可以將ButtonFieldClicks屬性（Application.Options.ButtonFieldClicks）更改爲一（1），以便它可以在單個而不是默認雙擊上觸發。 MacroButton字段可以分配給任何「Public Sub」過程。