Klasse PageNumber - Seitenzahl (Word VBA)

Die Klasse PageNumber stellt eine Seitenzahl in einer Kopfzeile oder Fußzeile dar. Um eine PageNumber -Klassenvariable zu verwenden, muss sie zuerst instanziert werden, beispielsweise

Dim pnr as PageNumber
Set pnr = Selection.HeaderFooter.PageNumbers(Index:=1)

For Each

Hier ist ein Beispiel für die Verarbeitung der PageNumber -Elemente in einer Sammlung

Dim pnr As PageNumber
For Each pnr In Selection.HeaderFooter.PageNumbers
	
Next pnr

Alignment

Gibt eine WdPageNumberAlignment-Konstante zurück, die die Ausrichtung der Seitenzahl darstellt, oder legt sie fest. Mögliche Rückgabewerte sind wdAlignPageNumberCenter - Zentriert, wdAlignPageNumberInside - Linksbündig direkt in der Fußzeile, wdAlignPageNumberLeft - Linksbündig, wdAlignPageNumberOutside - Rechtsbündig direkt außerhalb der Fußzeile, wdAlignPageNumberRight - Rechtsbündig.

Selection.HeaderFooter.PageNumbers(1).Alignment = wdAlignPageNumberCenter

Copy

Kopiert die angegebene Seitenzahl in die Zwischenablage.

Selection.HeaderFooter.PageNumbers(1).Copy

Cut

Entfernt das angegebene Objekt aus dem Dokument und fügt es in die Zwischenablage ein.

Wenn Expression ein Range -oder Selection -Objekt zurückgibt, werden die Inhalte des Objekts in die Zwischenablage verschoben, aber das reduzierte Objekt bleibt im Dokument.

If ActiveDocument.Fields.Count >= 1 Then 
 ActiveDocument.Fields(1).Cut 
 Selection.Collapse Direction:=wdCollapseEnd 
 Selection.Paste 
End If

Delete

Löscht die angegebene Seitenzahl.

Selection.HeaderFooter.PageNumbers(1).Delete

Index

Gibt einen Wert vom Typ Long zurück, der die Position eines Elements in einer Auflistung darstellt.

Dim lngIndex As Long
lngIndex = Selection.HeaderFooter.PageNumbers(1).Index

Select

Markiert die angegebene Seitenzahl.

Nach Verwendung dieser Methode können Sie mithilfe der Selection-Eigenschaft mit den ausgewählten Elementen arbeiten.

Selection.HeaderFooter.PageNumbers(1).Select