1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29
|
Dim doc As Word.Document
Dim alreadyOpenedDoc as boolean: alreadyOpenedDoc = False
' On crée un objet Word si on n'en a pas déjà un
If (objWordClient Is Nothing) Then
On Error GoTo NoAutoFill
Set objWordClient = CreateObject("Word.Application")
On Error GoTo 0
End If
' On vérifie si le document est déjà ouvert dans Word, si oui on passe à son traitement
Set doc = objWordClient.Documents(DocFichier)
If (Err = 0) Then
alreadyOpenedDoc = True
GoTo ok
End If
Err.Clear
' Si le document n'est pas déjà ouvert, on l'ouvre
Set doc = objWordClient.Documents.Open(FileName:=pathToDoc, _
ReadOnly:=True, Addtorecentfiles:=False)
If (Err <> 0) Then GoTo NoAutoFill
ok: ' OK, on a un document Word
On Error GoTo AutoFillError |
Partager