Come faccio a creare una macro Documento di Word in Visual Basic 6.0

? Una macro è uno strumento utilizzato per automatizzare compiti noiosi e ripetitivi , in modo da non dover guidare voi stessi impazzire facendo da soli. Essi sono sequenze di comandi che è possibile impostare per eseguire ogni volta che ne avete bisogno . Microsoft Office contiene molte macro che non sarà nemmeno conto ci sono , ma dal momento che ci sono per risparmiare tempo e facilitare la noia di quei lavori monotoni , si consiglia di aggiungere un paio di tuo che sono personali . Utilizzare Visual Basic ( VB) per fare una macro che può essere implementato in fase di esecuzione del computer.
Istruzioni Creazione di un file di Word contenente una macro
1

lancio di Microsoft Office Word .

2 Fare clic sul pulsante "Microsoft Office " e poi scegliere " Nuovo ".
3

Premere " Alt " e " F11 " insieme sulla tastiera per avviare Visual Basic Editor .
4

Fare clic sulla scheda "Inserisci" , poi su " . Modulo "
5

Evidenziare il seguente codice di esempio di macro e premere il tasto " Ctrl " e "C" per copiarlo :

display ' una finestra di messaggio che visualizza l'applicazione nome.

Public Sub DoKbTest ( ) per

MsgBox " Ciao da " & Application.Name

End Sub

' visualizzare una finestra di messaggio con la stringa passato dal client di automazione della

' .

pubblico DoKbTestWithParameter Sub ( sMsg As String ) per

MsgBox sMsg

End Sub
6

Fare clic nel nuovo modulo , quindi tenere premuto il tasto "Ctrl " e premere " P" per incollare il codice della macro .
7

Chiudere Visual Basic Editor .
8

Fare clic sul pulsante " Microsoft Office " e poi su "Salva ".
9

Trovare e selezionare una posizione per salvare il documento di Word , scegliere " Salva " e quindi uscire da Word .

Fai il VB client Automation
10

Esegui Microsoft Visual Studio . NET .
11

Cliccate su "File ", quindi " Nuovo ", seguito dal "Progetto ". Scegliere " Applicazione Windows " dai tipi di progetto . Questo creerà Form1 .
12

Fare clic sul menu "Progetto" , quindi scegliere " Aggiungi riferimento ".
13

Trovare e selezionare " Libreria oggetti di Microsoft Word 10.0" o " libreria di Microsoft Word 11.0 Object" da COM .
14

fare clic su " OK", quindi selezionare "Sì ", se viene richiesto di farlo .
15

Clicca su " Visualizza ", quindi su" Strumenti ", quindi inserire un pulsante e una casella combinata in Form1 . Selezionare " Button1 ".
16

Copia il seguente codice di esempio :

Select Case ComboBox1.SelectedItem

Caso "Accesso"

Dim oAccess come Access.ApplicationClass

' avviare Access e aprire il database .

oAccess = CreateObject ( " Access.Application " ) per

oAccess.Visible = True

oAccess.OpenCurrentDatabase ( "c: \\ db1.mdb " , False ) per

' eseguire le macro

oAccess.Run ( " DoKbTest " ) per

oAccess.Run . ( " DoKbTestWithParameter ", " . Ciao da VB NET client" ) per

' Clean-up : . . accesso uscire senza salvare le modifiche al database

oAccess.DoCmd ( ) Quit ( Access. AcQuitOption.acQuitSaveNone ) per

System.Runtime.InteropServices.Marshal.ReleaseComObject ( oAccess ) per

oAccess = Nothing

caso "Excel"

Dim oExcel come Excel.ApplicationClass

Dim oBook Come Excel.WorkbookClass

Dim oBooks As Excel.Workbooks

' avviare Excel e aprire la cartella di lavoro.

oExcel = CreateObject ( " Excel.Application " ) per

oExcel.Visible = true

oBooks = oExcel.Workbooks

oBook = oBooks.Open ( "c : \\ Book1.xls " )

' eseguire le macro .

oExcel.Run ( " DoKbTest " ) per

oExcel.Run ( " DoKbTestWithParameter ", " Ciao da VB . NET cliente") < br

' > Clean-up : . Chiudere la cartella di lavoro e chiudere Excel

oBook.Close ( Falso ) per

System.Runtime.InteropServices.Marshal.ReleaseComObject ( oBook ) per

oBook = Nothing

System.Runtime.InteropServices.Marshal.ReleaseComObject ( oBooks ) per

oBooks = Nothing

oExcel.Quit ( ) per

sistema . Runtime.InteropServices.Marshal.ReleaseComObject ( oExcel ) per

oExcel = Nothing

caso "PowerPoint "

Dim OPP Come PowerPoint.ApplicationClass

Dim oPresSet come PowerPoint.Presentations

Dim oPres As PowerPoint.PresentationClass

' avviare PowerPoint e aprire la presentazione .

OPP = CreateObject ( " PowerPoint.Application " ) per

oPP.Visible = True

oPresSet = oPP.Presentations

oPres = oPresSet.Open ( "c : \\ Pres1.ppt " , , , True)

' eseguire le macro .

oPP.Run ( "' Pres1.ppt ' ! DoKbTest " ) per

oPP.Run ( "' Pres1.ppt ' ! DoKbTestWithParameter ", " Ciao da VB . NET cliente " ) per

' Clean-up : . Chiudere la presentazione e uscire da PowerPoint

oPres.Close ( ) per

System.Runtime.InteropServices.Marshal.ReleaseComObject ( oPres )

oPres = Nothing

System.Runtime.InteropServices.Marshal.ReleaseComObject ( oPresSet ) per

oPresSet = Nothing

oPP.Quit ( ) per

System.Runtime.InteropServices.Marshal.ReleaseComObject ( OPP ) per

OPP = Nothing

caso " Parola"

Dim oWord Come
Word.ApplicationClass

' avviare Word e aprire il documento .

oWord = CreateObject ( " Word.Application " ) per

oWord.Visible = True

oWord.Documents.Open ( " C : \\ Doc1.doc " . ) per

' eseguire le macro

oWord.Run ( " DoKbTest " ) per

oWord.Run ( " DoKbTestWithParameter " , " Ciao da VB . NET Client " ) per

' Uscire da Word .

oWord.Quit ( ) per

System.Runtime.InteropServices.Marshal.ReleaseComObject ( oWord ) per

oWord = Nothing End

Selezionare

GC.Collect ( ) economici 17

Incollare il codice copiato nella " Button1_Click procedura. "
18

Fare clic su " Visualizza ", quindi "Designer ", e quindi selezionare
19

Copia il seguente codice " Form1 ". :

ComboBox1.DropDownStyle = ComboBoxStyle.DropDownList

Dim a As String ( ) = { "Accesso" , " Excel " , " PowerPoint " , "Parola" }

ComboBox1.Items.AddRange (a ) per

ComboBox1 . SelectedIndex = 0
20

Incollare il codice in The Sims 21

Copia il codice che segue " Form1_Load interno." :

Importazioni di accesso = Microsoft . Office.Interop.Access

Imports Excel = Microsoft.Office.Interop.Excel

Imports Word = Microsoft.Office.Interop.Word

Importazioni PowerPoint = Microsoft.Office . Interop.PowerPoint
22

incolla il codice in alto " Form1.vb ".
23

Hit " F5 " sulla tastiera per avviare l'applicazione .

• SQL VBA Tutorial 
• Come ottenere una risposta da un Messagebox