Auf jeder Seite eine Textbox unterschiedlich positioniert einfügen

29/05/2011 - 21:05 von Lauter | Report spam
Hallo NG,

wie kann ich in einem Abschnitt oben auf jeder Seite eine Textbox
unterschiedlich positioniert einfügen?

Meine bisherigen Überlegungen:
Da die Textbox unterschiedlich sein soll, scheidet die Kopfzeile aus. Die
Kopfzeile wird nur den Platz für die Textbox freihalten.
Das Einfügen könnte ein VBA Makro übernehmen. (Shapes.AddTextbox)
Über die Left-Eigenschaft erreiche ich die Positionierung.
Der Wert für die Positionierung könnte aus einem Feldinhalt folgen.
({STYLEREF Info})
Um eine Aktualisierung zu ermöglichen, könnte man den Namen des Shapes
entsprechend kennzeichnen und dann zur Aktualisierung alle Shapes mit dieser
Kennung automatisiert löschen.

Mein Problem ist noch, wie spreche ich jede Seite in einem Abschnitt an, um
dort das Shape positionieren zu können?
Leider fehlt mir hier die entsprechende Kenntnis des Objektmodells und die
Hilfe führt mich nicht auf einen passenden Ansatz.

Vielen Dank im Voraus für einen guten Tipp.

Freundliche Grüße

Frank
 

Lesen sie die antworten

#1 W.Jahn
30/05/2011 - 23:44 | Warnen spam
Am 29.05.2011 21:05, schrieb Lauter:

Mein Problem ist noch, wie spreche ich jede Seite in einem Abschnitt an,
um dort das Shape positionieren zu können?
Leider fehlt mir hier die entsprechende Kenntnis des Objektmodells und
die Hilfe führt mich nicht auf einen passenden Ansatz.



Bei mir (Word 2007) steht in der Hilfe für Page:

Word-Entwicklerreferenz
Page-Objekt
Stellt eine Seite in einem Dokument dar. Mit dem Page-Objekt und den
zugehörigen Methoden und Eigenschaften können Sie das Seitenlayout in
einem Dokument programmgesteuert definieren.
Anmerkungen


Verwenden Sie die Item-Methode, um auf eine bestimmte Seite in einem
Dokument zuzugreifen. Im folgenden Beispiel wird auf die erste Seite im
aktiven Dokument zugegriffen.

Dim objPage As Page

Set objPage = ActiveDocument.ActiveWindow _
.Panes(1).Pages.Item(1)

Wenn Sie auf die Seitenzahl zugreifen möchten, verwenden Sie die
Information-Eigenschaft eines Range- oder Selection-Objekts bzw. die
PageIndex-Eigenschaft eines Break-Objekts, das zur Breaks-Auflistung des
angegebenen Page-Objekts gehört.

Die Top- und Left-Eigenschaften des Page-Objekts geben immer 0 (Null)
zurück, was die obere linke Ecke der Seite angibt. Die Height- und
Width-Eigenschaften geben die Höhe und die Breite in Punkten (72 Punkte
= 1 Zoll) des im Dialogfeld Seite einrichten oder über das
PageSetup-Objekt angegebenen Seitenformats zurück. Für eine
21,59-x-27,94-cm-Seite im Hochformat gibt die Height-Eigenschaft den
Wert 792 und die Width-Eigenschaft den Wert 612 zurück. Diese vier
Eigenschaften sind schreibgeschützt.


© 2006 Microsoft Corporation. Alle Rechte vorbehalten.


Wenn Dir das nicht weiter hilft, musst Du wohl den Ansatz neu überdenken.


Wolfram

Ähnliche fragen