Hi,
hier ist ein Script mit dem ich ein Worddokument aufrufe.
Ich habe bisher halt nur auf Word zugegriffen,
in dem WordDokument waren Felder eingefügt (hier: IDENTNUMMER)
Vielleicht kannst Du das Script ja umstricken
Don Pasquale
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = workspace.CurrentDocument
Dim object As NotesEmbeddedObject
Dim s As New notessession
Dim heute As New notesdatetime("heute")
Dim word As Variant
Dim wordoc As Variant
Dim Worddokumentname As String
Dim Identnummer As String
'Predefined values: (replace with field values from uidoc)
Worddokumentname = uidoc.FieldGetText("subject")
'Create the Word object:
Set word = CreateObject("Word.Application") 'Create Word object
'Create a new document based on the template "TESTVORLAGE01.DOT"
Call word.documents.add("C:\Vorlagen\Vorlage01.dot")
Set worddoc = word.activedocument 'Get a handle for the active document
'Assign the field values:
worddoc.FormFields("IDENTNUMMER").result = uidoc.FieldGetText("Identnummer")
worddoc.saveas(Worddokumentname) 'save the document with the filename of "user"
word.visible = True 'Comment this line if you don't want to show Word.
'word.quit 'remove comment if you want to close rather than show Word.
Dim objExcel As CExcel
Dim doc As NotesDocument
' Erstellen eines OLE-Objects
Set objExcel = New CExcel
' Erstellt neue Arbeitsmappe
Call objExcel.NewWorkbook
' Ziel, Feldinhalt
Call objExcel.SetCellValue("A1", doc.Feldname(0))
' Excel in den Vordergrund
Call objExcel.ActivateExcel
Delete objExcel
Das habe ich und deine Scriptbibliothek.
Gruß
Darkface
Das mit der Fetten Schrift geht so:
m_oSheet.Range("A1 : H1").Font.Bold = True
Aber das Speichern, das macht Probleme.
Danke schon mal.
Gruß
Darkface