Domino 9 und frühere Versionen > ND7: Entwicklung

Von Notes aus ein Word Object ansprechen und Kopf und Fußzeile befüllen

<< < (2/3) > >>

ascabg:
Gibt es auch nicht in Notes.

Du sprichts ueber das Word-Objekt in VBA-Sprache mit der Anwendung.


Andreas

Kadlec:
Nun das Du zu Kopf Fusszeile nichts gefunden hast..naja das wäre ja wie ein sechser im Lotto.
Wenn Du aber einfach z.B. nach MS Word suchen würdest und dann diese Beiträge mal genauer unter die Lupe nimmst, bin ich sicher das Du dort etwas findest.

Boris

P.S Ein entsprechender Beitrag..da gibt es irgendwas mit Word lib..

Milan989:
Hallo,
leider habe ich festgestellt, dass was in MS Word richtig funktioniert, funktioniert nicht von Lotus Notes (auch wenn man den Word-Oject hat und könnte teoreitsch machen das gleiche was in MS Word).

Ich habe es getest mit folgendem Code:

Dim wordObject as Variant, actDoc as Variant
Dim oSec as Variant

Set wordObject = CreateObject ("Word.Application")
wordObject.Documents.Add
wordObject.Visible = True
Set actDoc = wordObject.ActiveDocument
Set oSec =actDoc.Sections(1)
oSec.PageSetup.DifferentFirstPageHeaderFooter = False
oSec.Range.InsertAfter "Text on Page 1 (Section 1)"
'bis hier funktioniert es OK. Aber folgende Zeile generiert einen Fehler
oSec.Footers(wdHeaderFooterFirstPage).Range.Text  "Confidential"
'dies geht auch nicht
'oSec.Footers(Word.WdHeaderFooterIndex.wdHeaderFooterFirstPage).Range.Text  "Confidential"'

Es sollte in die Fusszeile das wort "confidential" schreiben. Macht aber leider nicht.
Milan

Glombi:
Notes kennt die Word-Konstanten nicht, daher musst Du die entsprechende Zahl verwenden:

statt
oSec.Footers(wdHeaderFooterFirstPage).Range.Text  "Confidential"
also
oSec.Footers(2).Range.Text  "Confidential"


Dann kommt bei mir allerdings die Meldung "Text ist keine Methode"...

Glombi:
So gehts

Dim r As Variant
   
   Set wordObject = CreateObject ("Word.Application")
   wordObject.Documents.Add
   wordObject.Visible = True
   Set actDoc = wordObject.ActiveDocument
   Set oSec =actDoc.Sections(1)
   oSec.PageSetup.DifferentFirstPageHeaderFooter = False
   oSec.Range.InsertAfter "Text on Page 1 (Section 1)"
   Set r = oSec.Footers(1).Range
   r.Text = "test test"


Schreibt "test test" in den Footer der ersten Seite.

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete