Domino 9 und frühere Versionen > ND9: Entwicklung

MS Word-Automation (Schnellbausteine aus MS Word) FEHLENDE Formatierung

(1/1)

Caleb666:
Hallo zusammen,

ich möchte gerne aus Lotus Notes heraus Schnellbausteine in einer Word-Vorlage ansprechen.

Ich habe dazu innerhalb dieser Word-Vorlage Schnellbausteine erstellt, welche ich später aus Notes heraus in ein Word-Dokument einfüge . Dies funktioniert auch  (Dank der Klasse von Axel ) sehr gut.

Die Schnellbausteine werden innerhalb der Word-Vorlage MIT Formatierung (z.B. Aufzählungszeichen) im Schnellbaustein-Katalog gespeichert.

Über folgende Methode werden die Schnellbausteine später angesprochen

--- Code: ---Sub InsertAutoTextAtBM(strMarke As String, strTextbaustein As String)

'objWord.Selection.Select ' Zu aktueller Cursorpoistion springen
objWord.ActiveDocument.Bookmarks(strMarke).Select   ' Zu Textmarke springen
objWord.ActiveDocument.AttachedTemplate.AutoTextEntries(CStr(strTextbaustein)).Insert(objWord.Selection.Range)
objWord.ActiveDocument.AttachedTemplate.AutoTextEntries(CStr(strTextbaustein))
End Sub

--- Ende Code ---

Methodenaufruf:

--- Code: ---Call cWord.InsertAutoTextAtBM("WS", doc.FB_WS1Angabe(0))
--- Ende Code ---


PROBLEM:
Werden die Schnellbausteinen direkt über Word aufgerufen (Einfügen --> Organizer für Schnellbausteine) so werden die Schnellbausteinen korrekt (inkl. Aufzählungszeichen, Formatierung) in das Word-Dokument eingefügt.

Rufe ich die Schnellbausteine über Lotus Notes (Methode: InsertAutoTextAtBM)auf, so werden die Schnellbausteine auch eingefügt, JEDOCH ohne jegliche Formatierung, Aufzählungszeichen, etc..

Wie schaffe ich es, dass die Formatierung aus dem Schnellbaustein trotzdem beibehalten wird?

Notes Version: Release 9.0.1 FP4
Word-Version: 2007 sowie 2010

In einem Word-VBA-Forum habe ich gelesen, dass um die Formatierung beizubehalten "Richtext:=True" mit übergeben werden muss:

Auszug aus dem Word-VBA-Code:

--- Code: ---wddoc.AttachedTemplate.AutoTextEntries _
'            (" test").Insert _
'            Where:=tmRange, RichText:=True
--- Ende Code ---

Doch wie mache ich das in Notes?


Hat hier jemand eine Idee?

Vielen Dank.

jBubbleBoy:
der Parameter in Word: RichText:=True
wird in Notes zu: True

Den Key "RichText:=" weglassen, dieser wird schon über die Parameterposition festgelegt.

Caleb666:
Vielen Dank für die schnelle Antwort.

Und wo, bzw. in welcher Form wird der Parameter in der Methode bzw. beim Aufruf angegeben?

jBubbleBoy:
Damit wollte ich beschreiben wie man einen Word-Befehl in Notes aufruft, also:

--- Code: ---call wddoc.AttachedTemplate.AutoTextEntries(tmRange, true)

--- Ende Code ---

Caleb666:
Vielen Dank, für die Hilfe.
Nun werden Formatierungen aus dem Schnellbaustein beim einfügen mit übernommen.

Methode:

--- Code: ---Sub InsertAutoTextAtBM(strMarke As String, strTextbaustein As String, strFormatierung As String)

'objWord.Selection.Select ' Zu aktueller Cursorpoistion springen
objWord.ActiveDocument.Bookmarks(strMarke).Select   ' Zu Textmarke springen
objWord.ActiveDocument.AttachedTemplate.AutoTextEntries(CStr(strTextbaustein)).Insert(objWord.Selection.Range), strFormatierung

End Sub
--- Ende Code ---

Aufruf:

--- Code: ---Call cWord.InsertAutoTextAtBM("WS", doc.FB_WS1Angabe(0)+Chr(13), True)
--- Ende Code ---

Navigation

[0] Themen-Index