Aprire l'applicazione Microsoft Word e creare un nuovo documento utilizzando il modello vuoto .
2
Aprire l'editor di Visual Basic utilizzando i tasti "F11 ", "Alt" e .
3
Seleziona "Strumenti" nella barra dei menu , quindi fare clic sul voce "Riferimento" . Scorrere i riferimenti disponibili alla voce "Microsoft Visual Basic, Applications estensibilità . " Dopo aver selezionato la voce , fare clic sul pulsante "OK" .
4
Selezionare " Inserisci" dalla barra dei menu e fare clic sull'opzione "Modulo" .
5
inserire il seguente codice per creare un pulsante che se cliccato verrà visualizzato un messaggio di testo :
Sub Test ( ) per
'Aggiungi un pulsante di comando per un nuovo documentDim doc Come Word.DocumentDim shp come Word . InlineShapeSet doc = Documents.Add
shp = = "Clicca qui "
'Aggiungi un procedimento per l'evento click del InlineShape ' ** Nota : L' evento click risiede in questo documento moduleDim SCODE Come StringsCode = " Private Sub " & shp.OLEFormat . Object.Name & " _CLICK ( ) " & vbCrLf & _ " MsgBox " " Hai fatto clic sul pulsante di comando " " " & vbCrLf & _ "" doc.VBProject.VBComponents End Sub ( " ThisDocument " ) . CodeModule . AddFromString SCODE
End Sub
6
eseguire il codice con il tasto "F5" . Selezionare la macro "Test" dalla lista del menu e fare clic su "Esegui".
7
Fare clic sul pulsante " Clicca qui " nel nuovo documento di Word visualizzato sullo schermo . Una finestra di messaggio viene visualizzato con il testo " Hai fatto clic sul pulsante di comando ".
software © www.354353.com