title image


Smiley Re: Formularfeldinhalt in Kopfzeile anzeigen lassen
Hallo Tine,



bei mir in Word XP funktioniert es so:

Sub mEinfügenQuerverweis()

'erste Seite anders

With ActiveDocument.PageSetup

.DifferentFirstPageHeaderFooter = True

End With

'

'gehe zu Seite

Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:="2"

'

'Ansicht Kopfzeile

ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader

'

'Dokument geschützt?

If ActiveDocument.ProtectionType wdNoProtection Then

ActiveDocument.Unprotect

End If

'

'Kopfzeile löschen

Selection.WholeStory

Selection.Cut

'

'Querverweis auf Textmarken-Inhalt

'Feldnamen ["Text1"] entsprechend anpassen

Selection.InsertCrossReference ReferenceType:="Textmarke", ReferenceKind:= _

wdContentText, ReferenceItem:="Text1", InsertAsHyperlink:=True, _

IncludePosition:=False

'

'Ansicht Kopfzeile schliessen

ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument

'

'Felder aktualisieren

ActiveDocument.Fields.Update

'

'Dokument schützen

If ActiveDocument.ProtectionType = wdNoProtection Then

ActiveDocument.Protect Type:=wdAllowOnlyFormFields, NoReset:=True

End If

End Sub      Hubert



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: