title image


Smiley Re: s. o. ...
Moin, Wivo,

hier das Makro. Falls es unter Word 97 nicht läuft: Ich habe auch noch ein umfangreicheres, das ursprünglich mit WordBasic geschrieben wurde und unter W97 funktionieren sollte, aber noch umgeschrieben werden müsste. Melde dich einfach.

Gruß

Hermann









Public Sub SeitenZaehlen()



    ActiveDocument.ActiveWindow.View.Type = wdPageView

    Selection.WholeStory

    a = Selection.Characters.Count

    On Error Resume Next

    ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader

    Selection.WholeStory

    b = Selection.Characters.Count

        If b = 1 Then

        b = 0

        End If

    ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter

    Selection.WholeStory

    c = Selection.Characters.Count

        If c = 1 Then

        c = 0

        End If

    ActiveWindow.ActivePane.View.SeekView = wdSeekFootnotes

    Selection.WholeStory

    d = Selection.Characters.Count

        If d = 1 Then

        d = 0

        End If

    ActiveWindow.ActivePane.View.SeekView = wdSeekEndnotes

    Selection.WholeStory

    e = Selection.Characters.Count

        If e = 1 Then

        e = 0

        End If

    ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument

    Ergebnis1 = Round(((a + b + c + d + e) / 1800), 2)

    MsgBox "Der Text umfasst " & Ergebnis1 & " Seiten zu je 1800 Zeichen.", vbOKOnly



End Sub





Code eingefügt mit Syntaxhighlighter 4.0




Gruß, Hermann

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: