Code funktioniert Unter Word2007 nicht mehr

16/09/2007 - 13:52 von Kowalski | Report spam
Hi,

der folgende Codeausschnitt funktioniert unter Word 2000-2003 aber nicht
mehr unter Word2007.
Ich habe mir ein eigenes Durckmenü gebaut. Dort kann ich auf Wunsch das
Dokument, bzw. Teile davon mit einem "Duplikat"-Stempel ausdrucken, der sich
dann rechts obern auf der Seite befindet. Dieser "Duplikat"-Stempel wird
zuerst auf jeder Seite im Dokument erzeugt und nach dem Drucken dann wieder
gelöscht (Code dafür ist hier nicht enthalten).
Bei Word2007 wird der "Duplikat"-Stempel nicht auf jeder Seite erzeugt
sondern auf der ersten Seite sooft übereinander, wie das Dokument Seiten
enthàlt.

Was hat sich ab Word2007 geàndert ?

Gruß und vielen Dank schon mal !

Kowalski !

Dim mR as Range
Dim mRo as Range
Dim objStempel () as Shape

Set mR = ActiveDocument.Range(0, 0)
Set mRo = mR

'Stempel auf der ersten Seite erzeugen
iAb = 1
ReDim Preserve objStempel(iAb)
Set objStempel(1) = ActiveDocument.Shapes.AddTextEffect(msoTextEffect1,
Text$, "Arial", 24, False, False, 0, 0, mR)
objStempel(1).Rotation = Winkel$
objStempel(1).Name = "RP20040205" & iAb
objStempel(1).ZOrder msoBringToFront
objStempel(1).RelativeVerticalPosition = wdRelativeVerticalPositionPage
objStempel(1).RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
objStempel(1).Left = PosLinks$
objStempel(1).Top = PosOben$
objStempel(1).Fill.Transparency = 1
objStempel(1).Line.ForeColor.RGB = RGB(Rot$, Grün$, Blau$)

Application.ScreenUpdating = False
'Stempel auf allen Folgeseiten erzeugen
Do
Set mR = mR.GoTo(wdGoToPage, wdGoToNext)
If mR.IsEqual(mRo) Then Exit Do
iAb = iAb + 1
ReDim Preserve objStempel(iAb)
Set mRo = mR
mR.Select
Set objStempel(iAb) = objStempel(1).Duplicate
objStempel(iAb).Name = "RP20040205" & iAb
Loop
Application.ScreenUpdating = True
 

Lesen sie die antworten

#1 Thomas Gahler
17/09/2007 - 09:43 | Warnen spam
Hallo Kowalski


Wasserzeichen werden normalerweise in der Kopfzeile erzeugt...

Schau mal den Code in dieser Thread an.
http://groups.google.ch/group/micro...c0d3cb27a8




Thomas Gahler
MVP für WordVBA
Co-Autor von »Microsoft Word-Programmierung.
Das Handbuch« (MS Press)


- Windows XP (SP2), Office XP (SP3)

Ähnliche fragen