Hallo Thorsten,
besten Dank für Deine Hilfe.
Leider kann ich es nicht umsetzten auf meine Bedürfnisse.
Die Anweisung zum Öffnen meiner Worddatei anbei:
'gewählte Worddatei öffnen
<pre>Private Sub CommandButton4_Click()
Dim DieDatei As Boolean
Dim DeinDateiname As String
Dim wordObj As Word.Application
If Me.TextBox2 = "" Then
Label7.Caption = "Bitte Worddatei auswählen"
Exit Sub
Else
DieDatei = IstDateiOffen2(Me.TextBox2.Value)
If DieDatei = True Then
' MsgBox "Datei ist schon geöffnet"
Label7.Caption = "Datei ist schon geöffnet" & vbLf & "Vorgang beendet"
CommandButton6.Visible = True
Exit Sub
Else
' MsgBox "Datei ist noch nicht geöffnet"
Label7.Caption = "Datei ist noch nicht geöffnet" & vbLf & "wird geöffnet"
DeinDateiname = Me.TextBox2.Value
Set wordObj = CreateObject("Word.Application")
wordObj.Visible = True
wordObj.Documents.Open DeinDateiname
Set wordObj = Nothing
''' Me.TextBox2 = "" 'nicht leeren da für Übertragung in Worddatei erforderlich
''' Me.ComboBox1 = "" 'nicht leeren da für Übertragung in Worddatei erforderlich
CommandButton6.Visible = True
End If
End If
End Sub</pre>
'eingebaut in o. a. Code: CommandButton4_Click
Function IstDateiOffen2(Dateiname As String) As Boolean
Dim DateiNr As Long
Dim FehlerNr As Long
On Error Resume Next
DateiNr = FreeFile()
Open Dateiname For Input Lock Read As #DateiNr
Close DateiNr
FehlerNr = Err
On Error GoTo 0
Select Case FehlerNr
Case 0
IstDateiOffen2 = False
Case 70
IstDateiOffen2 = True
Case Else
Error FehlerNr
End Select
End Function</pre>
Kannst Du mir bitte das Speichern, schliessen und beenden von Word mittels den o.a. Daten erstellen?
Besten Dank.
Gruss
Peter