Von LN aus ein MS Word Dok. erstellen und Fußzeile befüllen - Seitenzahlen

[Milan989]

Hallo,
ich habe ein kleines Problem. Ich möchte von einem Lotus Notes Dokument (LN 7) die Daten in ein MS Word Dokument (2007) übertragen.
Alles klappt bis auf die Seitenzahlen in der Fusszeile.  Ich kann die zwar einfügen, aber leider nur im Format Nummer (also zmB. auf der ersten Seite steht unten rechts in der Fusszeile    1 , auf der zweite Seite in Nr.   2 usw. ) Ich bräuchte vor der Nummer noch Text schreiben wie zmB. "Seite 1", "Seite 2",... und dann die Grösse der Schriftart auf 8 zu ändern. (Also der Text "Seite 1",... mi Grösse

Dim wordObject as Variant
Dim r As Variant
Dim oFooter 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 = "Fußzeile text"
   
   Set oFooter = oSec.Footers(1)
   oFooter.PageNumbers.Add(2) 'add Page Numbers -  rechts unten in die Fußzeile
REM code für Formatierung der Seitenzahlen

Hätte bitte jemand eine Idee??
Besten Dank im voraus!!!
Milan

[jo@chim]

Wenn ich recht informiert bin, ist dies hier ein Lotus Notes-, kein VBA-Forum... 

Ich würde die Seitenzahl nicht per .PageNumbers.Add sondern als Feld einfügen, da kannst Du beliebig Text davor und dahinter setzen -  vielleicht hilft Dir das hier weiter:

http://searchdomino.techtarget.com/tip/0,289483,sid4_gci1145392,00.html

[Axel]

Ich würde mir für das Dokument eine Vorlage (.dot) erstellen in der ich die Seitenzahlen bereits in die Fußzeile einfüge. Von Notes kann man dann auf Basis dieser Vorlage ein neues Dokument erstellen.

Axel