Guten Morgen!
Ich habe recht umfangreichen VBA-Code übernommen, der unter anderem nach Formulareingabe in ein Dokument Inhalte einfügt (geht). Bisher soll es außerdem funktioniert haben, dass bei geöffnetem Dok. und ausführen des Makros das Formular erneut angeboten wird und dann wiederum die Inhalte an die aktuelle Einfügemarke gesetzt werden. Das funktioniert nicht mehr. Gemachte Änderungen System/Code nicht bekannt
"Fehler beim kompilieren: Variable nicht definiert"
Der Debugger springt in
Sub Neu()
Dim antwort As Integer
Dim gefunden As Boolean
Dim dokument As Document
Dim strDocName As String
strDocName = ActiveDocument.Name
MsgBox strDocName
On Error GoTo ChangeDirError
ChangeDir:
ChangeFileOpenDirectory ("C:\")
On Error GoTo 0
NfS.Init
GetDocumentName.Nr.Enabled = False
GetDocumentName.Nr.Locked = True
GetDocumentName.Nr.Value = "(auto)"
GetDocumentName.Show
For Each dokument In Documents
If dokument.Name = Dateiname Then gefunden = True
Next dokument
If gefunden Then
Documents(Dateiname).Activate
Else
On Error GoTo CreateDocument
Documents.Open(FileName:=Dateiname).Activate
On Error GoTo 0 'normal error handling
End If
Exit Sub
Dort stört ihn scheinbar
"GetDocumentName.Nr.Enabled = False"
Wenn ich das Dokument schließe und neu öffne funktioniert es (1x)...
Kann jemand helfen?
|