Hallo ihr fleißigen Helfer,
ich denke nicht, dass mein Problem sehr kompliziert ist, dennoch stehe ich momentan auf dem Schlauch.
Es geht um Folgendes:
Ich möchte ein anderes Word-Dokument mithilfe des Filedialogs öffnen und in diesem neu geöffneten Dokument etwas hinein kopieren.
With Application.FileDialog(FileDialogType:=msoFileDialogOpen)
.Title = "Wähle Word-Datei aus"
.InitialFileName = "*.doc"
'"Öffnen" wird gedrückt
If .Show = -1 Then
ReDim selectedPaths(.SelectedItems.Count - 1)
'Dateipfad für späteren gebrauch speichern
For i = 0 To .SelectedItems.Count - 1
selectedPaths(i) = .SelectedItems(i + 1)
Next
'Ausgewähltes Dokument öffnen
.Execute
'--> Hier fehlt der Verweis auf das geöffnete Dokument
'--> Copy, Paste etc. hier
Else
MsgBox "Vorgang abgebrochen"
End If
End With
Der Code zeigt meinen Ansatz (hoffe ich). Ich habe den Pfad des gewählten Dokuments mir als String geben lassen, aber irgendwie hat mir das auch nicht geholfen. Ich bin für jede Hilfe dankbar!
Mit freundlichen Grüßen
Ben
|