Innehållsförteckning
Räkna ord i urval
Detta Word VBA -makro räknar antalet ord i valet. Om inget val görs kommer det att räkna antalet ord i hela dokumentet.
Sub WordCount () 'räknar hela dokument, sedan ordräkning för val (om något väljs) Dim nWordsCount As Long Dim nCharCount As Long nWordsCount = ActiveDocument.Range.ComputeStatistics (wdStatisticWords) nCharCount = ActiveDocument.Range.ComputeStatistics (wdStatisticCharacters) Hela dokumentet innehåller: "& vbCrLf & nWordsCount &" ord och "& vbCrLf & _ nCharCount &" tecken utan mellanslag "," Word Count "'visar nu ordräkning för markerad text If Selection.Words.Count> = 1 And Selection.Type wdSelectionIP Sedan nWordsCount = Selection.Range.ComputeStatistics (wdStatisticWords) nCharCount = Selection.Range.ComputeStatistics (wdStatisticCharacters) MsgBox "Vald text innehåller:" & vbCrLf & nWordsCount & "ord &" ord & "ord &" ord & "ord &" ochC "och" ord "och" ord & " mellanslag ",," Word Count (urval) "End If End Sub
