Propriété Global.ActiveDocument (Word)
Renvoie un objet Document qui représente le document actif (celui qui est sélectionné). En lecture seule.
Syntaxe
expression. ActiveDocument
Expression Variable qui représente un objet « Global ».
Remarques
Si vous utilisez cette propriété alors qu’il n’y a aucun document ouvert, une erreur se produit.
Exemple
Cet exemple affiche le nom du document actif ou, si aucun document n’est ouvert, affiche un message.
If Application.Documents.Count >= 1 Then
MsgBox ActiveDocument.Name
Else
MsgBox "No documents are open"
End If
Cet exemple réduit la sélection à un point d'insertion, puis crée une plage pour étendre la sélection aux cinq caractères suivants.
Dim rngTemp As Range
Selection.Collapse Direction:=wdCollapseStart
Set rngTemp = ActiveDocument.Range(Start:=Selection.Start, _
End:=Selection.Start + 5)
Cet exemple insère du texte au début du document actif, puis imprime celui-ci.
Dim rngTemp As Range
Set rngTemp = ActiveDocument.Range(Start:=0, End:=0)
With rngTemp
.InsertBefore "Company Report"
.Font.Name = "Arial"
.Font.Size = 24
.InsertParagraphAfter
End With
ActiveDocument.PrintOut
Voir aussi
Assistance et commentaires
Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.