Ok, also wenn ich ehrlich bin, habe ich keine Ahnung, was in deinem Code passiert. Ich habe ihn jetzt in meinen Code kopiert, da wird mir hier ein Fehler angezeigt
Function SearchContentControl(Doc As Word.Document, Tag As String) As Word.ContentControl
"Fehler beim Kompilieren: Benutzerdefinierter Typ nicht definiert"
ich verstehe nicht wieso, da der Typ ja definiert ist.
Aber ich verstehe allgemein ganz und gar nicht , was in dieser Function passiert.
Wenn ich die Function komplett auskommentiere (also mit Hochkomma), dann kommt der selber Fehler an dieser Stelle:
Private Sub cmdtest_Click()
Dim wrdApp As Word.Application
Auch hier erschließt sich mir der Grund nicht.
Ein weiteres, allgemeines Problem: Wenn ich über Excel versuche, ein Word-Dokument zu öffnen, wird dieses immer als schreibgeschützt geöffnet. Somit kann das Programm gar nicht arbeiten, wie es soll. Ich habe auch schon alle mir bekannten Möglichkeiten versucht, den Schreibschutz zu deaktivieren. Hast du dafür vielleicht noch eine Lösung?
|