? 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 < p > 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
< p > 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 )
< p > 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 .