Einzelnen Beitrag anzeigen
Alt 10.02.2018, 21:13   #6
Luschi
MOF Koryphäe
MOF Koryphäe
Standard

Hallo hajosch,

hier mal die Erklärung von haklesoft in die Praxis umgesetzt:
Code:

Sub test()
    Dim sDoc As Document, _
        sDatei As String, sPfad As String, sTyp As String
    
    sPfad = "H:\Daten\MeineBriefe\"
    sTyp = "*.doc?"
    sDatei = Dir(sPfad & sTyp, vbNormal)
    Do While sDatei <> ""
    Set sDoc = Documents.Open(FileName:=sPfad & sDatei, ReadOnly:=False, Format:=wdOpenFormatAuto)
    'tue irgendwas...
    sDoc.Close True
    Loop
End Sub
Gruß von Luschi
aus klein-Paris
Luschi ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten