Lotus Notes / Domino Sonstiges > OLE/COM-Programmierung

Mal wieder das Thema Export nach WORD

<< < (4/12) > >>

Axel:
Was nutzt du denn für eine Schriftart?


Axel

C_T:
Arial

und ja habe auch schon versucht die kann Fett darstellen...

C_T:
So Ich habe den Code mehr oder weniger nochmals komplett über den Haufen geworfen. Anbei findet Ihr meinen neuen Code der bis jetzt auch super läuft.



--- 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 asVariant

Set db = session.CurrentDatabase
Set col = db.UnprocessedDocuments

On Error Resume Next

Const wdStyleNormal = -1
Const wdStyleHeading3 = -4

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

Set Ins =  WordApp.Selection

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

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

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

Ins.TypeText Chr$(12)

uidoc.Close(True)
Set doc = col.GetNextDocument(doc)
Loop



Set WordDoc = WordApp.activedocument
End Sub
--- Ende Code ---


Jetzt bleiben mir immernoch fragen über bzw. aufgaben die ich erledigen möchte.

1. Weiß jemand von euch wie an den Anfang des Dokumentes springen kann mit dem Cursor????

2. Inhaltsverzeichnis erstellen (Krieg ich schon irgendwie selbst hin)

3. Wieder an den anfange des Dokuments springen (siehe 1)



Vielen Dank schonmal


P.S.

Nimmt das Forum noch spenden an? Ihr habt mir schon so oft geholfen, ich will mich revanchieren.
Schreibt mir einfach dazu ne PN

CU

klaussal:

--- Zitat ---Nimmt das Forum noch spenden an?
--- Ende Zitat ---

JA:


http://atnotes.de/index.php?topic=20132.0

 :) :) :)

C_T:
@Klaus(s)

Natürlich liest du nur das wichtigeste was????  ;D ;D ;D


Naj wie dem auch sei  Hier die Lösung auf meine eigene Frage


--- Code: ---
Set Ins =  WordApp.Selection
With Ins
  .StartOf(wdStory)
  .TypeText "Dies ist ein TEst auf der 1. Seite...." + Chr$(12)
End With
--- Ende Code ---

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete