Spisie treści
Policz słowa w zaznaczeniu
To makro Word VBA zliczy liczbę słów w zaznaczeniu. Jeśli nie zostanie dokonany żaden wybór, policzy liczbę słów w całym dokumencie.
Sub WordCount() 'zlicza cały dokument, a następnie liczbę słów do zaznaczenia (jeśli coś jest zaznaczone) Dim nWordsCount As Long Dim nCharCount As Long nWordsCount = ActiveDocument.Range.ComputeStatistics(wdStatisticWords) nCharCount = ActiveDocument.Range.ComputeStatistics(wd) Cały dokument zawiera: " & vbCrLf & nWordsCount & " słowa i" & vbCrLf & _ nCharCount & " znaki bez spacji", , "Liczba słów" 'teraz pokaż liczbę słów dla zaznaczonego tekstu Jeśli Selection.Words.Count >= 1 And Selection.Type wdSelectionIP Then nWordsCount = Selection.Range.ComputeStatistics(wdStatisticWords) nCharCount = Selection.Range.ComputeStatistics(wdStatisticCharacters) MsgBox "Wybrany tekst zawiera: " & vbCrLf & nWordsCount & "b_rLf & "znaki C i " spacje", , "Liczba słów (wybór)" End If End Sub
