Thema Datum  Von Nutzer Rating
Antwort
23.07.2022 18:31:13 Lucas
NotSolved
23.07.2022 23:15:15 Mackie
NotSolved
23.07.2022 23:16:46 Mackie
NotSolved
Blau VBA Word Wörter zählen
 24.07.2022 02:18:25 Gast91840
NotSolved

Ansicht des Beitrags:
Von:
Gast91840		 Datum:
24.07.2022 02:18:25		 Views:
633		 Rating:
     
Antwort:
  Ja
Thema:
VBA Word Wörter zählen

Dafür ist es notwendig den Bereich der einzelnen Seiten zu ermitteln und dann kann man sich die Anzahl der Wörte ausgeben lassen.

Option Explicit

Public Sub ShowWordsPerPage()
  
  Dim objDoc    As Word.Document
  Dim objPages  As Word.Pages
  Dim objPage   As Word.Page
  Dim rngPage   As Word.Range
  Dim i         As Long
  
  Set objDoc = ThisDocument
  
  Set objPages = objDoc.ActiveWindow.ActivePane.Pages
  For Each objPage In objPages
    
    i = i + 1
    
    If i < objPages.Count Then
      Set rngPage = objDoc.Range(objPage.Breaks(1).Range.Start, objPages(i + 1).Breaks(1).Range.Start)
    Else
      Set rngPage = objDoc.Range(objPage.Breaks(1).Range.Start)
    End If
    
    Call MsgBox( _
      rngPage.ComputeStatistics(wdStatisticWords) & " Words", _
      vbInformation, _
      "Page " & Format$(i, "00") & "/" & Format$(objPages.Count, "00"))
    
  Next
  
End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
23.07.2022 18:31:13 Lucas
NotSolved
23.07.2022 23:15:15 Mackie
NotSolved
23.07.2022 23:16:46 Mackie
NotSolved
Blau VBA Word Wörter zählen
 24.07.2022 02:18:25 Gast91840
NotSolved