| Home  | Casa  | Hardware  | Networking  | Programmazione  | Software  | Domanda  | Sistemi  |   
Programmazione  
  • C /C + + Programming

  • Computer Programming Languages

  • Delphi Programming

  • Java Programming

  • Programmazione Javascript

  • PHP /MySQL Programmazione

  • Perl Programming

  • Python Programming

  • rubino Programmazione

  • Nozioni di base di Visual Programming
  •  
    Conoscenza Informatica >> Programmazione >> Nozioni di base di Visual Programming >> Content
    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 < p > 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
    < p > 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 < p > 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 < p > 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 < p > ' 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 < p > 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 .

    Previous :

    next :
      Articoli Correlati
    ·Come leggere file xls Vb 
    ·Come utilizzare un insieme di stringhe in VB.NET 
    ·Come leggere file di testo con Visual Basic 
    ·Come cercare Records in VB6 
    ·Come copiare stringhe in VBA 
    ·Come vedere le forme di lavoro in VB6 
    ·Come utilizzare MSFlexGrid in VB6 
    ·DirectX di Visual Basic Tutorial 
    ·Come esecuzione di codice VB6 
    ·Come calcolare una percentuale in VBScript 
      Articoli in evidenza
    ·Come accedere a una griglia di dati 
    ·Che cosa è una conversione Maildir 
    ·Quarta generazione Strumenti per le lingue 
    ·Introduzione alla programmazione con Java 
    ·Come caricare immagine PHP & Make Inserti Miniatura MyS…
    ·Come rimuovere le stringhe numeriche in Perl 
    ·Come rimuovere le barre di scorrimento utilizzando Java…
    ·Come rendere il contenuto scorrevole in jQuery 
    ·Come aggiungere una barra di avanzamento per Wizard 
    ·Il MySQL Collegamento di base in script PHP con control…
    Copyright © Conoscenza Informatica http://it.wingwit.com