Word document openen of aanmaken

[CRUZ2]

Beste forumleden

Met de volgende code wil ik op deze mooie zonnige dag in excel een word document openen of als die niet bestaat openen.

Sub ControlWord()
Dim appWD As Word.Application, wdDoc As Word.Document

On Error Resume Next
Set wdApp = GetObject(, "Word.Application")
If Err.Number <> 0 Then 'Word isn't already running
Set wdApp = CreateObject("Word.Application")
End If
On Error GoTo 0

Set wdDoc = wdApp.Documents.Open("T:\04 Storingen" & "\" & ActiveCell & "\" & ActiveCell.Offset(, 10) & ".docx")

Set appWD = CreateObject("Word.Application")

appWD.Visible = True

wdDoc.Activate
On Error Resume Next
    Sheets("blad1").Select
    ' Tell Word to create a new document
        appWD.Documents.Add
        ' Save the new document with a sequential file name
        appWD.ActiveDocument.SaveAs Filename:="T:\04 Storingen" & "\" & ActiveCell & "\" & ActiveCell.Offset(, 10)
End Sub

Hij opent het document als het document gevonden wordt maar maakt ook een nieuwe document aan die de macro niet opslaat.
Hoe zet ik in deze vba code een if functie bijv.

Wie helpt mij de code compleet te maken?

 

[gGerretje]

Hallo Cruz2,

Heb je iets aan deze verwijzing?

http://www.helpmij.nl/forum/showthread.php/535521-Koppeling-tussen-Excel-en-Word

Groetjes,
Ger

 

[Warme bakkertje]

Test

Sub ControlWord()
Dim appWD As Word.Application, wdDoc As Word.Document
On Error Resume Next
Set wdApp = GetObject(, "Word.Application")
If Err.Number <> 0 Then 'Word isn't already running
Set wdApp = CreateObject("Word.Application")
End If
On Error GoTo 0
If Dir("T:\04 Storingen" & "\" & ActiveCell & "\" & ActiveCell.Offset(, 10) & ".docx") <> "" Then
Set wdDoc = wdApp.Documents.Open("T:\04 Storingen" & "\" & ActiveCell & "\" & ActiveCell.Offset(, 10) & ".docx")
wdApp.Visible = True
wdDoc.Activate
Else
wdApp.Visible = True
On Error Resume Next
   Sheets("blad1").Select
    ' Tell Word to create a new document
        wdApp.Documents.Add
        ' Save the new document with a sequential file name
        wdApp.ActiveDocument.SaveAs Filename:="T:\04 Storingen" & "\" & ActiveCell & "\" & ActiveCell.Offset(, 10)
End If
End Sub

 

[CRUZ2]

Thnx weer iets opgelost

Thnx heren,

De code van rudi werkt perfect.

:d