|
? Une macro est un outil utilisé pour automatiser les tâches fastidieuses et répétitives , de sorte que vous ne devez pas conduire vous-même fou de les faire vous-même. Ils sont des séquences de commandes que vous pouvez mettre en place pour exécuter chaque fois que vous en avez besoin . Microsoft Office contient de nombreuses macros que vous n'aurez même pas réaliser êtes là, mais depuis qu'ils sont là pour gagner un temps précieux et de faciliter l'ennui de ces emplois monotones , vous voudrez peut-être ajouter un peu de votre propre qui vous sont personnels . Utilisez Visual Basic (VB ) pour faire une macro qui peut être mis en œuvre au moment de l'exécution de votre ordinateur. Instructions
Créer un fichier Word contenant une macro
1 lancement de Microsoft Office Word.
2 Cliquez sur le bouton " Microsoft Office " , puis choisissez "Nouveau".
3 Appuyez sur " Alt" et "F11" ensemble de votre clavier pour démarrer Visual Basic Editor.
4 Cliquez sur l' onglet "Insertion " , puis sur " . Module "
5 Mettez en surbrillance l'exemple de code de macro suivant et appuyez sur " Ctrl" et "C" pour le copier :
Display ' une boîte de message qui affiche l'application nom.
public Sub DoKbTest ()
MsgBox " Bonjour de " & Application.Name
End Sub
' afficher une boîte de message avec la chaîne passé de client Automation le
.
DoKbTestWithParameter public Sub ( sMsg As String )
MsgBox sMsg
End Sub
6 Cliquez dans le nouveau module, puis maintenez la touche "Ctrl " et appuyez sur "P" pour coller le code macro.
7 Quittez Visual Basic Editor.
8 Cliquez sur le bouton " Microsoft Office " , puis sur "Enregistrer".
9 Recherchez et sélectionnez un emplacement pour stocker le document Word , choisissez "Enregistrer" puis quittez Word.
Faire le VB client Automation
10 Run Microsoft Visual studio. NET .
11 Cliquez sur " fichier", puis "Nouveau", puis par «projet ». Choisissez " Application Windows " dans les types de projets. Cela va créer Form1.
12 Cliquez sur le menu " Projet", puis choisissez " Ajouter une référence . "
13 Recherchez et sélectionnez " Word 10.0 Object Library " ou " Microsoft Word 11.0 Object Library" de COM .
14 Cliquez sur «OK», puis sélectionnez «Oui» si vous êtes invité à le faire.
15 Cliquez sur " voir ", puis sur" boîte à outils ", puis insérer un bouton et une zone de liste déroulante dans Form1. Sélectionnez " Button1 ".
16 Copiez le code exemple suivant :
Select Case ComboBox1.SelectedItem
Case "Accès"
oAccess Dim comme Access.ApplicationClass
« Démarrez Access et ouvrez la base de données.
oAccess = CreateObject (" Access.Application " )
oAccess.Visible = True
oAccess.OpenCurrentDatabase ( "c: \\ db1.mdb ", false )
' exécuter les macros
oAccess.Run ( " DoKbTest " )
oAccess.Run . ( " DoKbTestWithParameter ", " . Bonjour de VB NET Client " )
'Clean -up : . . accès Quitter sans enregistrer les modifications à la base de données
oAccess.DoCmd () Quit ( Access. AcQuitOption.acQuitSaveNone )
System.Runtime.InteropServices.Marshal.ReleaseComObject ( oAccess )
oAccess = Nothing
Case "Excel"
oExcel As Excel.ApplicationClass
oBook As Excel.WorkbookClass
oBooks As Excel.Workbooks
« Démarrez Excel et ouvrez le classeur.
oExcel = CreateObject ( " Excel.Application " )
oExcel.Visible = true
oBooks = oExcel.Workbooks
oBook = oBooks.Open ( "c: \\ Book1.xls " ) Photos ' exécuter les macros .
oExcel.Run ( " DoKbTest " )
oExcel.Run ( " DoKbTestWithParameter ", " Bonjour de VB . NET Client " ) < br > 'Clean -up : . Fermer le classeur et quitter Excel
oBook.Close (Faux)
System.Runtime.InteropServices.Marshal.ReleaseComObject ( oBook )
< p> oBook = Nothing
System.Runtime.InteropServices.Marshal.ReleaseComObject ( oBooks )
oBooks = Nothing
oExcel.Quit ()
système . Runtime.InteropServices.Marshal.ReleaseComObject ( oExcel )
oExcel = Nothing
Case "PowerPoint"
de oPP As PowerPoint.ApplicationClass
Dim oPresSet comme PowerPoint.Presentations
OPRES As PowerPoint.PresentationClass
« Démarrez PowerPoint et ouvrez la présentation .
oPP = CreateObject (" PowerPoint.Application " )
< p> oPP.Visible = True
oPresSet = oPP.Presentations
OPRES = oPresSet.Open ( "c: \\ Pres1.ppt ", , True)
' exécuter les macros .
oPP.Run ( « Pres1.ppt ' ! DoKbTest " )
oPP.Run ( « Pres1.ppt ' ! DoKbTestWithParameter ", " Bonjour de VB . NET client " )
'Clean -up : . Fermer la présentation et quitter PowerPoint
oPres.Close ()
System.Runtime.InteropServices.Marshal.ReleaseComObject ( OPRES ) Photos OPRES = Nothing
System.Runtime.InteropServices.Marshal.ReleaseComObject ( oPresSet )
oPresSet = Nothing
oPP.Quit ()
System.Runtime.InteropServices.Marshal.ReleaseComObject (OPP)
oPP = Nothing
Case " Parole "
oWord As Word.ApplicationClass
< p> ' Démarrer Word et ouvrez le document.
oWord = CreateObject (" Word.Application " )
oWord.Visible = True
oWord.Documents.Open ( " C: \\ Doc1.doc " . )
' exécuter les macros
oWord.Run ( " DoKbTest " )
oWord.Run ( " DoKbTestWithParameter "," Bonjour de VB . NET Client " ) Parole Quitter
.
oWord.Quit ()
System.Runtime.InteropServices.Marshal.ReleaseComObject ( oWord )
oWord = Nothing
End Select
GC.Collect ()
17 copier le code dans la " procédure Button1_Click . "
18 Cliquez sur "Voir ", puis " designer ", puis sélectionnez
19 Copiez le code suivant " Form1. ":
ComboBox1.DropDownStyle = ComboBoxStyle.DropDownList
Dim a As String ( ) = {" accès ", " Excel ", " PowerPoint ", " Parole "}
ComboBox1.Items.AddRange ( a)
ComboBox1 . SelectedIndex = 0
20 Collez le code dans la
21 Copiez le code qui suit " la procédure Form1_Load . ":
importations accès = Microsoft . Office.Interop.Access
Imports Excel = Microsoft.Office.Interop.Excel
importations mot = Microsoft.Office.Interop.Word
importations PowerPoint = Microsoft.Office . Interop.PowerPoint
22 coller ce code dans le haut de " Form1.vb ".
23 Hit "F5" de votre clavier pour démarrer votre application .
|
