Mes premiers pas en VBA - 06 (Travailler avec l'objet application Word et les documents)

Cette propriété en lecture seule renvoie le document actif.

Sub CheminDocumentActif()
Debug.Print Application.ActiveDocument.FullName
End Sub

Comme mentionné plus tôt, nous aurions pu écrire :

Sub CheminDocumentActif()
Debug.Print ActiveDocument.FullName
End Sub

Cette propriété renvoie le nom de l'imprimante active du système, cette propriété est en lecture/écriture.

Sub NomImprimante()
Debug.Print Application.ActivePrinter
End Sub

Ce code n'a aucun intérêt, par contre, mémoriser le nom de l'imprimante active, attribuer une nouvelle imprimante pour un travail particulier et restaurer l'imprimante par défaut ensuite peut s'avérer très interessant.

Sub ChangerImprimante()
'Déclaration des variables
Dim strOldPrinter As String
'Récupération du nom de l'imprimante active
strOldPrinter = Application.ActivePrinter
'Changement de l'imprimante
Application.ActivePrinter = "PDF Creator"
'Impression
ActiveDocument.PrintOut
'Attendre la fin de l'impression
DoEvents
'Restaurer l'imprimante de départ
ActivePrinter = strOldPrinter

End Sub

Cette propriété vous permet de modifier le titre contenu dans la barre de titre de Word. Si vous voulez donner une touche personnelle à Word, cette propriété vous aidera à y parvenir.

Sub ChangerTitreBarre()
Application.Caption = "www.developpez.com"
End Sub

Propriété en lecture/écriture autorisant ou non l'affichage des fichiers récents.

Sub AfficherFichiersRecents()
Application.DisplayRecentFiles = False
End Sub

Supprimer l'affichage et le rétablir ensuite efface le contenu de la liste.

Renvoie un objet FileDialog qui représente une instance unique d'une boîte de dialogue Fichier. Cette propriété est très utile lorsque vous devez choisir un fichier ou un répertoire.

Sub AfficherFileDialog()
Dim dlg As FileDialog
Dim strPath As String

Set dlg = Application.FileDialog(msoFileDialogFolderPicker)
With dlg
    .InitialFileName = "C:\temp\"
    .AllowMultiSelect = False
    .Title = "www.developpez.com"
    .Show
End With

strPath = dlg.SelectedItems(1)

Set dlg = Nothing

End Sub

Il existe quatre types de FileDialog :

Lorsque vous utilisez l'objet FileDialog, vous pouvez spécifier si vous pouvez sélectionner plusieurs fichiers ou un seul à la fois, vous pouvez donner un répertoire de départ.

Dans l'exemple que je viens de donner, vous aurez probablement remarqué la présence d'un With.....End With. Cette structure permet pour un même objet d'exécuter une série d'instruction.

With dlg
    .InitialFileName = "C:\temp\"
    .AllowMultiSelect = False
    .Title = "www.developpez.com"
    .Show
End With

est équivalent à :

dlg.InitialFileName = "C:\temp\"
dlg.AllowMultiSelect = False
dlg.Title = "www.developpez.com"
dlg.Show

Exercice :
Créez une fonction qui va ouvrir un objet Filedialog, vous passez en argument le titre de votre boîte de dialogue ainsi que le répertoire de départ. Cette fonction renverra le nom du fichier choisi.

Nous n'avons utilisé qu'un seul élément selectionné dans notre liste, si vous le spécifiez, vous pouvez autoriser une selection multiple. Ci-dessous, vous trouverez un exemple de code pour une sélection multiple et la façon de récupérer les différents éléments choisis.

Sub ListeSelectionMultiple()
Dim oDlg As FileDialog
Dim varSelected As Variant

Set oDlg = Application.FileDialog(msoFileDialogFilePicker)
With oDlg
    .AllowMultiSelect = True
    .Show
End With

For Each varSelected In oDlg.SelectedItems
    Debug.Print varSelected
Next varSelected

Set oDlg = Nothing

End Sub

La première partie reste la même, seule la récupération diffère. La variable qui va être utilisée pour la récupération des éléments doit être du type variant. Ensuite, on recupére chaque élément à l'aide d'une boucle.
La valeur récupérée renvoie le chemin complet des fichiers sélectionnés.

Cette propriété renvoie le modèle Normal communément appelé "Normal.dot"

Sub CheminDuNormalPointDot()
Debug.Print Application.NormalTemplate.FullName
End Sub

Ce code vous donne le chemin complet du normal.dotm.

Cette propriété donne accès aux différentes options de l'environnement de Word. Vous trouverez ci-dessous quelques options disponibles, la liste est très longue.

Sub OptionsDeWord()
With Application.Options
    .AllowDragAndDrop = False
    .AllowReadingMode = True
    .AutoFormatAsYouTypeReplaceHyperlinks = True
    .CheckGrammarAsYouType = True
    .IgnoreUppercase = True
End With
End Sub

Cette propriété permet de geler l'affichage lorsqu'on lui affecte la valeur False.

Cette propriété est particulièrement intéressante si vous travaillez avec l'objet Selection.

Application.ScreenUpdating = False
...
...
Application.ScreenUpdating = True

Si vous voulez obtenir un rafraichissement occasionnel de l'affichage utilisez :

Application.ScreenRefresh

Cette propriété permet de récupérer quelques informations sur le système, le type d'OS, l'espace disque disponible, ...

Sub ProprietesSystem()
With Application.System
    Debug.Print .OperatingSystem 'Version OS installée
    Debug.Print .HorizontalResolution 'Résolution verticale
    Debug.Print .VerticalResolution 'Résolution horizontale
End With
End Sub

Vous remarquerez que l'on peut dans une structure With ... End With ajouter des fonctions comme un Debug.Print dans l'exemple ou une affectation à une variable.

Cette propriété permet détermine si l'objet application est visible ou pas. Elle principalement utilisée lorsque l'on utilise Word au départ d'une autre application.

Par défaut, si vous ne spécifiez pas de répertoire lorsque vous tentez d'ouvrir un fichier, c'est l'endroit où Word va chercher. Il est possible de modifier ce répertoire.

Sub ModifierCheminParDefaut()
Application.ChangeFileOpenDirectory "C:\temp\"
End Sub

Exercice :
Avec ce que nous avons vu précédemment, changez le répertoire par défaut et ensuite, restaurez le.

Ne pas confondre ChangeFileOpenDirectory et DefaultFilePath l'un est volatile alors que le second est permanent. Le changement produit par le premier s'estompe lorsque Word est fermé.

Si vous craignez de rester trop longtemps au boulot, cette propriété est pour vous.
Pour son utilisation, vous avez deux possibilités, soit vous utilisez une heure précise soit vous spécifiez un délai.

La méthode OnTime permet de lancer une routine à un moment prédéterminé.

Application.Ontime When:="16:00:00", Name:="MaProcedure"

Application.Ontime When:=Now + TimeValue("00:10:00"), Name:="MaProcédure"

L'argument temps est passé en format texte.

C'est la méthode qui possède le nom le plus clair. Cette méthode ferme l'application, n'oubliez pas de libérer l'instance de votre objet une fois que vous avez quitté l'application.

Application.Quit

Exercice :
En vous basant sur les fonctions VBA pour la création d'un objet, déclarez un objet Word, affectez lui une valeur et fermez le tout.

2-C-1-a. Module de classe▲

Pour la gestion des évènements, nous devons créer un module de classe pour y déclarer un objet application pour la gestion des évènements.

Vous aller renommer ce module en EventClassModule.

Nous allons déclarer notre application

Déclaration de notre objet application

Sélectionnez

Public WithEvents appWord As Word.Application

Mot clé indiquant que l'argument varname est une variable objet utilisée pour répondre aux événements déclenchés par un objet ActiveX. Valide uniquement dans des modules de classe.

Dès que votre objet Application est déclaré, les évènements sont disponibles dans la liste.

Si vous choisissez l'objet Application, vous pouvez choisir un évènement qui lui est associé.

Les évènements liés à l'application doivent se trouver dans le module de classe.

2-C-1-b. Initialisation du module de classe▲

Dim MyApp As New EventsClassModule
Sub Document_New()
Set MyApp.appWord = Word.Application
End Sub

Cet évènement se produit juste avant la fermeture d'un document.

Private Sub appWord_DocumentBeforeClose(ByVal Doc As Document, Cancel As Boolean)
...
End Sub

Se produit lors du changement de document actif.

Private Sub appWord_DocumentChange()
	MsgBox "Doc Changé"
End Sub

Cette propriété permet de connaître le nombre de documents ouverts. Elle est très simple d'utilisation.

Sub NombreDeDocuments()
	Debug.Print Documents.Count
End Sub

La propriété Count peut être appliquée sur toutes les collections, elle renvoie le nombre d'éléments ouverts composant cette collection.

Cette méthode va ouvrir un document pour l'ajouter à la collection "Documents".

Sub OuvrirDocument()
	Documents.Open "C:\Temp\mondocument.dotx"
end Sub

Si vous désirez créer un nouveau document, vous devez ajouter un document à la collection et utiliser la méthode Add.

Sub AjouterDocument()
	Documents.Add
End Sub

Si vous ne passez pas d'argument à la méthode, c'est un nouveau document basé sur le normal template qui sera créé. Vous pouvez spécifier un modèle de document pour votre méthode en passant son chemin en argument.

Sub AjouterDocument()
Documents.Add "C:\Temp\DVP.Dotm"

End Sub

Comme elle s'applique à la collection, cette méthode permet de sauvegarder tous les documents ouverts.

Sub SauvegarderDocuments()
	Documents.Save
End Sub

Tous les documents.

Appliquée à la collection, cette méthode ferme tous les documents ouverts.

Sub DocumentsClose()
Documents.Close
End Sub

Les méthodes les plus importantes sont utilisées au niveau de la collection, Open et Add qui renvoient toutes deux un document.

Set objDoc1 = Documents.Open ("C:\Temp\MonDoc1.docm")

3-C-1-a. Save▲

Sub SauvegarderDoc()
'Sauvegarde du document actif
ActiveDocument.Save

End Sub

3-C-1-b. SaveAs▲

Sub SauverAvecNom()
ActiveDocument.SaveAs

End Sub

Sub SauverAvecNom()
ActiveDocument.SaveAs FileName:="C:\temp\MonDocument.docm"

End Sub

3-C-1-c. Goto▲

Sub Atteindre()
ActiveDocument.Goto What:=wdGotoPage, Which:=wdGoToAbsolute, Count:=5
End Sub

3-C-1-d. PrintOut▲

Sub ImprimerDocument()
ActiveDocument.PrintOut
End Sub

3-C-1-e. Convert▲

Sub DocumentUpgrade()
ActiveDocument.Convert

End Sub

3-C-2-a. Saved▲

Sub PasDeMessage()
ActiveDocument.Saved = True

End sub

3-C-2-b. Content▲

Sub ContenuDuDocument()
Debug.Print ActiveDocument.Content
End Sub

3-C-2-c. FullName, Name, Path▲

Sub CheminEtNom()
With ActiveDocument
    Debug.Print .Name
    Debug.Print .Path
    Debug.Print .FullName
End With
End Sub

3-C-2-d. AttachedTemplate▲

Sub ModeleAttache()
	Debug.Print ActiveDocument.AttachedTemplate
End Sub

3-C-2-e. Paragraphs▲

Sub NombreDeParagraphes()
	Debug.Print ActiveDocument.Paragraphs.Count
End Sub

3-C-2-f. Sentences▲

Sub NombreDeParagraphes()
	Debug.Print ActiveDocument.Sentences.Count
End Sub

3-C-2-g. Sections▲

Sub NombreDeParagraphes()
	Debug.Print ActiveDocument.Sections.Count
End Sub

3-C-2-h. Shapes▲

Sub NombreDeParagraphes()
	Debug.Print ActiveDocument.Shapes.Count
End Sub

3-C-2-i. InlineShapes▲

Sub NombreDeParagraphes()
	Debug.Print ActiveDocument.InlineShapes.Count
End Sub

Les évènements liés aux documents sont plus facile à mettre en oeuvre que pour l'application.

Nous n'allons en citer que quelques uns et juste donner un exemple.

• Close - Se produit à la fermeture d'un document
• Open - Se produit sur l'ouverture d'un document
• New - Se produit lors de la création d'un nouveau document

Sub Document_Open()
...
...
End Sub

Ce code sera exécuté lors de chaque ouverture de votre document.