Přidání tlačítka do wordového dokumentu a přiřazení jeho události Click za běhu

Souhrn

Tento článek ukazuje, jak lze pomocí makra Microsoft Visual Basic for Applications programově přidat ovládací prvek do dokumentu aplikace Microsoft Word a přidat Click obslužnou rutinu události pro tento ovládací prvek.

Další informace

Následující kroky ukazují, jak můžete vytvořit wordové makro, které přidá ovládací prvek do dokumentu a přiřadí událost Click daného ovládacího prvku za běhu. Postup je pro Word. Stejné koncepty však můžete použít k programové manipulaci s ovládacími prvky v sešitech aplikace Microsoft Excel.

Postup vytvoření ukázky

1. Vytvořte nový dokument ve Wordu.

2. Stisknutím kombinace kláves Alt+F11 přejděte do editoru jazyka Visual Basic.

3. V nabídce Nástroje klikněte na Odkazy.

4. Vyberte odkaz na rozšiřitelnost jazyka Microsoft Visual Basic for Applications.

5. Vložte nový modul a potom přidejte následující příklad kódu.

   Sub Test()
   
   'Add a command button to a new document
   Dim doc As Word.Document
   Dim shp As Word.InlineShape
   Set doc = Documents.Add
   
   Set shp = doc.Content.InlineShapes.AddOLEControl(ClassType:="Forms.CommandButton.1")
   shp.OLEFormat.Object.Caption = "Click Here"
   
   'Add a procedure for the click event of the inlineshape
   '**Note: The click event resides in the This Document module
   Dim sCode As String
   sCode = "Private Sub " & shp.OLEFormat.Object.Name & "_Click()" & vbCrLf & _
           "   MsgBox ""You Clicked the CommandButton""" & vbCrLf & _
           "End Sub"
   doc.VBProject.VBComponents("ThisDocument").CodeModule.AddFromString sCode
   
   End Sub
   

6. Spusťte makro Test.

7. Po dokončení spuštění makra Test se v novém dokumentu zobrazí nový ovládací prvek CommandButton . Po kliknutí CommandButton řízení, Click událost ovládacího prvku se aktivuje.

Další poznámky pro Word 2002 a Word 2003

Ve výchozím nastavení je přístup k projektu VBA ve Wordu zakázaný. Pokud je zakázaný, výše uvedený kód může vygenerovat chybu za běhu 6068, že programový přístup k projektu jazyka Visual Basic není důvěryhodný. Další informace o této chybě a o tom, jak ji můžete opravit, získáte v následujícím článku znalostní báze Microsoft Knowledge Base:

282830 Programový přístup k projektu Office VBA byl odepřen