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
| Option Explicit
Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, _
ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Sub AutoOpen()
Dim objDoc As Document, docp As Document, Tableau() As String, i As Integer, fichier As String
Set docp = Application.ActiveDocument
Set objDoc = Application.Documents.Open("Z:\TMP\d_xxxxxx.txt")
Tableau = Split(objDoc.Sentences.Item(1), ";")
objDoc.Close
Set objDoc = Nothing
Set objDoc = Application.Documents.Open("I:\" & Tableau(0) & ".doc")
Set objDoc = Nothing
fichier = "I:\" & Tableau(0) & ".PDF"
ShellExecute 0, "open", fichier, "", "", 0
docp.Activate
End Sub |
Partager