title image


Smiley Re: VBA: Fusszeile?
Hi,



das geht in etwa so (Word XP):

Sub TestFZ()

'Ansicht Fusszeile, aktuelle Seite ohne erste Seite anders

ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter

'

'Bereich löschen

Selection.WholeStory

Selection.Cut

'

'Tabelle einfügen

ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=1, NumColumns:= _

2, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _

wdAutoFitWindow

'

With Selection.Tables(1)

.Style = "Normale Tabelle"

'Spalte 1, Zelle 1

.Cell(1, 1).Select

Selection.TypeText Text:="Name: "

Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _

"USERNAME ", PreserveFormatting:=True

'

'Spalte 2, Zelle 2

.Cell(1, 2).Select

Selection.TypeText Text:="Seite "

Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldPage

Selection.TypeText Text:=" von "

Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldNumPages

Selection.ParagraphFormat.Alignment = wdAlignParagraphRight

End With

'

'Felder aktualisieren

ActiveDocument.Fields.Update

ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument

End Sub      Hubert

Jedes Betriebsystem hat sein allgegenwärtiges Maskottchen:

Unix den Dämon,

MacOS den Apfel,

Linux den Pinguin,

Windows die allgemeinen Schutzverletzungen.





geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: