Sub Demo() Dim Rng As Range With ActiveDocument Set Rng = .Range(0, 0) Rng.End = Selection.Paragraphs.First.Range.End MsgBox Rng.ComputeStatistics(wdStatisticParagraphs) End With End Sub