Lotus Notes / Domino Sonstiges > OLE/COM-Programmierung

Mal wieder das Thema Export nach WORD

<< < (8/12) > >>

klaussal:
Dann bitte mal den ganzen Code posten.

ata:
... das hört sich mehr als dubios an - was heist:


--- Zitat ---So ich habe die Textbox eingefügt und diese wird laut debugger zwar ausgeführt, jedoch nicht angezeigt
--- Ende Zitat ---

Wenn sie ausgeführt wird, dann wird sie auch angezeigt - oder läuft das ganze als Background-Server-Agent - dann stehen die Namen im Log des Servers...

Toni

klaussal:

--- Zitat ---dann stehen die Namen im Log des Servers...
--- Ende Zitat ---

... und dort würde man dann auch die Dateien finden...

C_T:
Hier ein Code Ausschnitt


--- Code: ---Sub Click(Source As Button)
Dim workspace As New NotesUIWorkspace
Dim session As New NotesSession
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Dim db As NotesDatabase
Dim col As NotesDocumentCollection

Dim Ins As Variant

Set db = session.CurrentDatabase

On Error Resume Next

Const wdStyleNormal = -1
Const wdStyleHeading3 = -4


Set WordApp = CreateObject("Word.Application") 
Call WordApp.documents.add("c:\TEST.dot")
Set WordDoc = WordApp.activedocument

Set Ins =  WordApp.Selection

Dim view As NotesView
Set view = db.GetView("aView")
Set doc = view.GetFirstDocument

Do Until doc Is Nothing
                Set uidoc = workspace.EditDocument(True, doc)
uidoc.EditMode = True
uidoc.AutoReload = False

With Ins
                .Style = wdStyleHeading3
.TypeText "TEST1: "
.TypeText doc.TEST1(0) + Chr$(10)
.Style = wdStyleNormal
End With


Dim rtitem As NotesRichTextItem
'...set value of doc...
Set rtitem = doc.GetFirstItem( "FELD" )
If ( rtitem.Type = RICHTEXT ) Then
Forall obj In rtitem.EmbeddedObjects
Messagebox(Cstr(obj.Name))
Call obj.ExtractFile( "c:\test\" & obj.Name )
End Forall
End If

Err = 0
Call uidoc.GotoField("FELD")
Call uidoc.SelectAll
Call uidoc.Copy
If Not Err = 4407 Then
With Ins
.Font.Bold = True
.TypeText "FELD: "+ Chr$(10)
.Font.Bold = False
.Paste
.TypeText Chr$(10) + Chr$(10)
End With
End If
Ins.TypeText Chr$(12)

uidoc.Close(True)
Set doc = view.GetNextDocument(doc)


Loop



WordApp.Documents(1).saveas(flag3)

End Sub
--- Ende Code ---


also im debugger geht die "Aktive Zeile" auf die Messagebox, jedoch wird diese nicht angezeigt....

Axel:

--- Zitat von: C_T am 27.03.08 - 11:57:27 ---also im debugger geht die "Aktive Zeile" auf die Messagebox, jedoch wird diese nicht angezeigt....

--- Ende Zitat ---

Was heisst das? Hast du dann auch noch mal einen Schritt ausgeführt?


Axel

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete