Partager via

Propriété Application.ActiveDocument (Word)

  • Article

Renvoie un objet Document qui représente le document actif (sélectionné). Si aucun document n'est ouvert, une erreur se produit. En lecture seule.

Remarque

Il est impossible d’accéder au document dans la fenêtre Mode protégé active à l’aide de cette propriété. Au lieu de cela, utilisez la propriété Document de l'objet ActiveProtectedViewWindow.

Syntaxe

expression. ActiveDocument

expressionUne variable qui représente un objetApplication.

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

Objet Application

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.