Dator
 |  Startsida |  Hårdvara |  Nätverk |  Programmering |  Programvara |  Felsökning |  System |   
Programmering
  • C /C + + -programmering
  • Computer Programspråk
  • Delphi Programmering
  • Java Programming
  • JavaScript programmering
  • PHP /MySQL Programmering
  • perl Programmering
  • python Programming
  • Ruby programmering
  • Visual Basics Programmering
  • * Dator Kunskap >> Programmering >> Visual Basics Programmering >> Content

    Hur skapar jag en Macro Word-dokument i VB 6.0

    ? Ett makro är ett verktyg som används för att automatisera tråkiga och repetitiva uppgifter , så du behöver inte köra själv galen gör dem själv . De är sekvenser av kommandon som du kan ställa in att köra när du behöver dem . Microsoft Office innehåller många makron som du inte ens kommer att inse är där , men eftersom de är där för att spara värdefull tid och lindra tristess av dessa monotona jobb , kanske du vill lägga till några av dina egna som är personliga för dig . Använd Visual Basic ( VB ) för att göra ett makro som kan genomföras på datorns körtid . Instruktioner Review, Skapa en Word- fil som innehåller en Makro
    1

    Launch Microsoft Office Word .
    2

    Klicka på " Microsoft Office " -knappen och välj sedan " Ny ". Addera 3

    Tryck " Alt " och " F11 " tillsammans på tangentbordet för att starta Visual Basic Editor .
    4

    Klicka på " Infoga "-fliken , därefter på " . Module "
    5

    Markera följande kod makro provet och tryck på " Ctrl " och " C " för att kopiera den :

    'Visa en meddelanderuta som visar programmet namn .

    Public Sub DoKbTest ( ) katalog

    MsgBox " Hello from " & Application.Name

    End Sub

    'Visa en meddelanderuta med strängen gått från

    " Automation klient .

    Public Sub DoKbTestWithParameter ( SMSG As String ) katalog

    MsgBox SMSG

    End Sub
    6

    Klicka på den nya modulen , och sedan hålla ned " Ctrl " och tryck på " P " för att klistra makrokoden .
    7

    Avsluta Visual Basic Editor .
    8

    Klicka på " Microsoft Office " -knappen , och sedan på " Spara ".
    9

    Hitta och välja en plats att spara Word- dokumentet , välj " Spara " och sedan avsluta Word .

    Gör VB Automation klient
    10

    Run Microsoft Visual Studio . NET .
    11

    Klicka på " File" och sedan " Ny ", följt med " Projekt . " Välj " Windows Application " från projekttyper . Detta kommer att skapa Form1 .
    12

    Klicka på " Project " -menyn , välj sedan " Add Reference ".
    13

    Hitta och välj " Microsoft Word 10.0 Object Library " eller " Microsoft Word 11.0 Object Library " från COM .
    14

    Klicka på " OK " och sedan välja "Ja " om du uppmanas att göra så .
    15

    Klicka på " Visa "och sedan på " Toolbox " och sedan infoga en knapp och en kombinationsruta i Form1 . Välj " Button1 . "
    16

    Kopiera följande exempelkod :

    Select Case ComboBox1.SelectedItem

    Case " Åtkomst "

    Dim oAccess som Access.ApplicationClass

    " Starta Access och öppna databasen .

    oAccess = CreateObject ( " Access.Application " ) katalog

    oAccess.Visible = Sant

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

    " Kör makron

    oAccess.Run ( " DoKbTest " ) katalog

    oAccess.Run . ( " DoKbTestWithParameter " , " . Hej från VB NET klient " ) katalog

    " Clean - up : . . avsluta Access utan att spara ändringarna i databasen

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

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

    oAccess = Nothing

    Case " Excel "

    Dim oExcel Som Excel.ApplicationClass

    Dim oBook Som Excel.WorkbookClass

    Dim oBooks As Excel.Workbooks

    " Starta Excel och öppna arbetsboken .

    oExcel = CreateObject ( " Excel.Application " ) katalog

    oExcel.Visible = true

    oBooks = oExcel.Workbooks

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

    " Kör makron .

    oExcel.Run ( " DoKbTest " ) katalog

    oExcel.Run ( " DoKbTestWithParameter " , " Hej från VB . NET klient " )

    " Clean - up : . Stäng arbetsboken och avsluta Excel Review

    oBook.Close ( False ) katalog

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

    oBook = Nothing

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

    oBooks = Nothing

    oExcel.Quit ( ) katalog

    System . Runtime.InteropServices.Marshal.ReleaseComObject ( oExcel ) katalog

    oExcel = Nothing

    Case " PowerPoint "

    Dim OPP Som PowerPoint.ApplicationClass

    Dim oPresSet som PowerPoint.Presentations

    Dim oPres som PowerPoint.PresentationClass

    " Starta PowerPoint och öppna presentationen .

    opp = CreateObject ( " PowerPoint.Application " ) katalog

    oPP.Visible = Sant

    oPresSet = oPP.Presentations

    oPres = oPresSet.Open ( " c : \\ pres1.ppt " , , , Sant ) katalog

    " kör makron .

    oPP.Run ( " ' pres1.ppt ' ! DoKbTest " ) katalog

    oPP.Run ( " ' pres1.ppt ' ! DoKbTestWithParameter " , " Hej från VB . NET klient " ) katalog

    " Clean - up : . Stäng presentationen och avsluta PowerPoint

    oPres.Close ( ) katalog

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

    oPres = Nothing

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

    oPresSet = Nothing

    oPP.Quit ( ) katalog

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

    opp = Nothing

    Case " Word "

    Dim oWord Som Word.ApplicationClass

    ' Starta Word och öppna dokumentet .

    oWord = CreateObject ( " Word.Application " ) katalog

    oWord.Visible = Sant

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

    " Kör makron

    oWord.Run ( " DoKbTest " ) katalog

    oWord.Run ( " DoKbTestWithParameter " , " Hej från VB . NET klient " ) katalog

    " Avsluta Word .

    oWord.Quit ( ) katalog

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

    oWord = Nothing

    End Välj

    GC.Collect ( )
    17

    Klistra in den kopierade koden i " Button1_Click Procedure . "
    18

    Klicka på " Visa " och sedan " Designer ", och välj sedan
    19

    Kopiera följande kod " Form1 . " :

    ComboBox1.DropDownStyle = ComboBoxStyle.DropDownList

    Dim a As String ( ) = { " Åtkomst " , " Excel " , " PowerPoint " , " Word " }

    ComboBox1.Items.AddRange ( a ) katalog

    ComboBox1 . SelectedIndex = 0
    20

    Klistra in koden i
    21

    Kopiera koden som följer " Form1_Load arbetsordning. " :

    Imports Access = Microsoft . Office.Interop.Access

    Import Excel = Microsoft.Office.Interop.Excel

    Import Word = Microsoft.Office.Interop.Word

    Import PowerPoint = Microsoft.Office . Interop.PowerPoint
    22

    Klistra in koden på toppen av " Form1.vb . "
    23

    Hit " F5 " på tangentbordet för att starta programmet .
    Addera ditt

    Tidigare:

    nästa:
    relaterade artiklar
    ·Introduktion till Visual Basic 6.0
    ·Hur vill kolla efter en tom GridView Med några rader
    ·Hur man flyttar en PictureBox i VB
    ·Hur man skriver en funktion för att infoga objekt i Dr…
    ·Hur man använder Visual Basic kodning
    ·Hur man skapar en dekoder
    ·Hur man återställer Trymedia Trial
    ·Konvertera Bits till byte i VB.Net
    ·Hur man läser Visual Basic
    ·Hur Extrahera grafik från en URL med VBA
    Utvalda artiklarna
    ·Hur man skriver ett Tangent Kod för en kalkylator i VB…
    ·Hur Navigera tvådimensionella arrayer i Java
    ·Konvertera Lång till heltal i Visual Basic
    ·Hur du ändrar Element Marginaler Använda HTML Program…
    ·Grafik Tutorial för Visual Basic 6
    ·Python Lambda Lista Förståelse
    ·Hur man lagrar en sträng variabel i heltalstyp
    ·Hur man skickar ett HTML-mail med VB
    ·Hur man skapar Alert Lådor i Windows
    ·Hur man hittar ett primtal Använda Javascript
    Copyright © Dator Kunskap http://www.dator.xyz