Hallo,
Über Backend fällt mir auch keine Lösung ein.
Die halbautomatische Variante könnte so aussehen:
Notes Doc ist geöffnet und im Edit-Mode !!!
Im Word File ist eine Textmarke mit bekanntem Namen !!!
Folgende Aktion:
Dim s As New NotesSession
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim db As NotesDatabase
Dim i As Integer
Dim app As Variant
Dim doc As Variant
Dim bookmark As Variant
Dim filename
On Error Goto iserror
Set uidoc = ws.CurrentDocument
If Not uidoc.EditMode Then
Exit Sub
End If
Set app = Nothing
Set doc = Nothing
' filename = "c:\notes2excel.xls"
filename = ws.OpenFileDialog( False , "please select file" , "Microsoft Word-files|*.doc" , "" , "" )
If Not(Isempty(filename)) Then
Set db = s.CurrentDatabase
On Error Resume Next
Set app = GetObject("", "Word.Application")
On Error Goto iserror
If app Is Nothing Then
On Error Resume Next
Set app = CreateObject("Word.Application")
On Error Goto iserror
If Not app Is Nothing Then
Set doc = app.Documents.Open(filename(0), False, False)
app.Visible = False
Call doc.Activate
End If
Else
Set doc = app.Documents.Open(filename(0), False, False)
app.Visible = False
Call doc.Activate
End If
If Not doc Is Nothing Then
Call uidoc.GotoField("Body")
Call uidoc.SelectAll
Call uidoc.Copy
If doc.Bookmarks.Exists("yyy") = True Then
Call doc.Bookmarks("yyy").Select
Call app.Selection.Paste
End If
app.Visible = True
End If
End If
Exit Sub
iserror:
Messagebox"Fehler", 0, "Fehler"
Resume Next
End Sub
Ich hoffe das hilft weiter.
Gruß
Andreas
