Word VBA - Macro pour ouvrir un document Word

Ouvrir un document Word

Cette macro Word VBA ouvrira un document Word à partir du répertoire spécifié :

Sub OpenDoc() Dim strFile As String strFile = "c:\Users\Nenad\Desktop\Test PM.docm" 'changez le chemin de votre fichier If Dir(strFile) "" Then 'D'abord, nous vérifions si le document existe à emplacement donné Documents.Open strFile End If End Sub

Vous pouvez maintenant interagir avec le document nouvellement ouvert avec l'objet ActiveDocument. Ce code ajoutera du texte au document.

ActiveDocument.Range(0, 0).Text = "Ajouter du texte"

Ouvrir le document dans la variable

Vous pouvez également ouvrir un document Word en l'affectant immédiatement à une variable :

Sub OpenDoc() Dim strFile As String Dim oDoc as Document strFile = "c:\Users\Nenad\Desktop\Test PM.docm" 'changer le chemin de votre fichier If Dir(strFile) "" Then 'D'abord, nous vérifions si le document existe du tout à un emplacement donné Set oDoc = Documents.Open strFile End If End Sub

Vous permettant d'interagir avec le document via la variable oDoc. :

oDoc.Range(0, 0).Text = "Ajouter du texte"

En règle générale, il est préférable d'ouvrir une variable, ce qui vous permet de référencer facilement le document à tout moment.

Ouvrir un document Word à partir d'Excel

Cette procédure VBA ouvrira un document Word à partir d'un autre programme MS Office (ex. Excel) :

Sub OpenDocFromExcel() Dim wordapp Dim strFile As String strFile = "c:\Users\Nenad\Desktop\Test PM.docm" Set wordapp = CreateObject("word.Application") wordapp.Documents.Open strFile wordapp.Visible = True End Sous