Remarque
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de vous connecter ou de modifier des répertoires.
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de modifier des répertoires.
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.