Automation word2013 - vb2013
BOnjour a tous
Je fais un petit test d'automation avec word 2013 et VB 2013
lorsque je cliques sur le OK du msgbox puis sur fermer Word, il me demande pour enregistrer le document . Je dis NON et a ce moment apparaît une fenêtre
"Fichier utilisé par un autre utilisateur ou une autre application ( c:\users\....\normal.dom )"
voici le petit bout de code
si quelqu'un a une suggestion (correction ), elle sera la bien venue
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
| Dim oWord As Word.Application
Dim oDoc As Word.Document
oWord = CreateObject("Word.Application")
oDoc = oWord.Documents.Open(PathDoc & "\test.docx")
oWord.Visible = True
oDoc.Bookmarks.Item("MonSigneTest").Range.Text = "test"
oWord.PrintOut()
MsgBox("ici")
oWord.Quit() |
