Einzelnen Beitrag anzeigen
Alt 11.02.2018, 16:10   #15
Gerhard H
MOF Guru
MOF Guru
Standard

Hallo hajosch,

wenn ich das Makro von Luschi hernehme und es so erweitere, dass es deinem Wunsch nach Auslagerung eines Teiles des Codes entspricht, und du auch kontrollieren kannst, was geschieht, dann läuft das in meinem Word 2010 anstandslos durch:
Code:

Option Explicit
Dim sdoc As Document

Sub test()
Dim sDatei As String, sPfad As String, sTyp As String
    
    sPfad = "H:\Temp1\"
    sTyp = "*.doc?"
    sDatei = Dir(sPfad & sTyp, vbNormal)
    
    Do While sDatei <> ""
        
        Set sdoc = Documents.Open(FileName:=sPfad & sDatei, ReadOnly:=False, Format:=wdOpenFormatAuto)
        zeigsher
        sdoc.Close True
        sDatei = Dir
    Loop
    
End Sub

Sub zeigsher()
MsgBox sdoc.Paragraphs(1).Range.Text
End Sub
Wenn es bei dir diesen Laufzeitfehler 5981 gibt, dann ist wohl was an deiner Installation faul. Ich seh jedenfalls keinen Grund, warum das in Word 2007 nicht laufen sollte.

Dazu gibt es hier https://support.microsoft.com/de-de/...utomating-word einen Hinweis drauf, dass deine normal.dotm kaputt sein könnte. Also mal umbenennen und dann Word neu starten.

__________________

Gruß
Gerhard
Gerhard H ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten