title image


Smiley Re: s. o. zum Dritten
Moin (Nordlicht, leider z.Z. im Westen) nochmal,

hier auch noch das Word97-Makro, damit du das auch gleich testen kannst.

Gruß

Hermann









Public Sub SeitenZaehlenWW97()

Dim tzz

Dim Antwort

Dim kzz

Dim fzz

Dim x

Dim fnz

Dim enz



On Error Resume Next

WordBasic.ViewPage



'Zeichenzahl des Textes ermitteln

WordBasic.EditSelectAll

tzz = WordBasic.GetSelEndPos()

WordBasic.CharRight



'Zeichenzahl in Kopfzeilen u.ä. ermitteln

WordBasic.BeginDialog 382, 244, "Bitte anklicken"

    WordBasic.CheckBox 71, 72, 202, 16, "Kopfzeilen", "CheckBox1"

    WordBasic.CheckBox 71, 96, 201, 16, "Fußzeilen", "CheckBox2"

    WordBasic.CheckBox 71, 122, 198, 16, "Fußnoten", "CheckBox3"

    WordBasic.CheckBox 71, 148, 199, 16, "Endnoten", "CheckBox4"

    WordBasic.OKButton 178, 213, 109, 21

    WordBasic.Text 5, 54, 197, 13, "Das Dokument beinhaltet:", "Text1"

    WordBasic.CancelButton 28, 213, 109, 21

    WordBasic.CheckBox 71, 175, 201, 16, "Ich bin mir nicht sicher", "CheckBox5"

    WordBasic.Text 6, 11, 239, 13, "ACHTUNG: Falsches Anklicken", "Text2"

    WordBasic.Text 101, 25, 207, 13, "bedeutet falsches Ergebnis", "Text3"

WordBasic.EndDialog

  'Vorgabewerte in Dialogfeld

  Dim dlg As Object: Set dlg = WordBasic.CurValues.UserDialog

  Antwort = WordBasic.Dialog.UserDialog(dlg)

If dlg.CheckBox1 = 1 Then

    WordBasic.ViewHeader

    WordBasic.EditSelectAll

    kzz = WordBasic.GetSelEndPos()

    WordBasic.CloseViewHeaderFooter

    WordBasic.EndOfDocument

Else

End If

If dlg.CheckBox2 = 1 Then

    WordBasic.ViewFooter

    WordBasic.EditSelectAll

    fzz = WordBasic.GetSelEndPos()

    WordBasic.CloseViewHeaderFooter

    WordBasic.EndOfDocument

Else

End If

If dlg.CheckBox3 = 1 Then

    WordBasic.ViewNormal

    WordBasic.ViewFootnotes

    x = WordBasic.ViewFootnotes()

    If x = -1 Then

    WordBasic.EditSelectAll

    fnz = WordBasic.GetSelEndPos()

    WordBasic.ViewPage

    WordBasic.EndOfDocument

    Else

    WordBasic.ViewPage

    End If

Else

End If

If dlg.CheckBox4 = 1 Then

    WordBasic.ViewEndnoteArea

    WordBasic.EditSelectAll

    enz = WordBasic.GetSelEndPos()

    WordBasic.EndOfDocument

Else

End If

If dlg.CheckBox5 = 1 Then

    WordBasic.EndOfDocument

    WordBasic.MsgBox "Bitte nachsehen und Abrechnung erneut starten", "Hinweis", 16

    Exit Sub

End If

'Zeichenzahl in Textfeldern ermitteln

WordBasic.EndOfDocument

'Gesamtseitenzahl berechnen

WordBasic.MsgBox "Der Text umfasst " & Round(((tzz + kzz + fzz + fnz + enz) / 1800), 2) & " Seiten zu je 1800 Zeichen."



End Sub







Code eingefügt mit Syntaxhighlighter 4.0






Gruß, Hermann

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: