Word8 (Office97) - Felder fixieren

Dieses Thema im Forum "Office-Programme" wurde erstellt von 1995, 21. März 2001.

Status des Themas:
Es sind keine weiteren Antworten möglich.
  1. 1995

    1995 Kbyte

    Registriert seit:
    20. November 2000
    Beiträge:
    128
    Wechsel zur ersten Fußzeile
    If Selection.HeaderFooter.IsHeader = True Then
    ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter
    Else
    ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
    End If
    Selection.WholeStory
    Selection.Fields.Update
    Selection.Fields.Unlink

    Resume Next
    On Error GoTo Err2

    For i = 1 To 2 * Scnt
    ActiveWindow.ActivePane.View.NextHeaderFooter
    Selection.WholeStory
    Selection.Fields.Update
    Selection.Fields.Unlink
    Next

    Err2:
    \'zurück zum Hauptdokument
    ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
    Selection.HomeKey Unit:=wdStory

    End Sub
    ***********************************************************************
     
Status des Themas:
Es sind keine weiteren Antworten möglich.

Diese Seite empfehlen