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
End If
Exit Sub
Dort stört ihn scheinbar
<em>"GetDocumentName.Nr.Enabled = False"</em>
Wenn ich das Dokument schließe und neu öffne funktioniert es (1x)...