☰

Cuente palabras distintas (no el recuento total de palabras)

tag-icon • tag-icon microsoft-word
Cuente palabras distintas (no el recuento total de palabras)

Microsoft Word podría contar las palabras de un archivo, pero ¿hay alguna forma de contar las distintas palabras? Aún mejor si es posible generar una lista de palabras tan distintas.

Respuesta1

Lo que desea es un índice completo de todas las palabras en un documento de Microsoft Word, y eso se puede hacer con una macro, como estas dedevblogs.Microsoft.comy deRespuestas.Microsoft.com. Tenga en cuenta que algunos caracteres, por ejemplo el punto (fin y punto), se cuentan como palabras.

El código de los devblogs se cita a continuación.

Set objDictionary = CreateObject(“Scripting.Dictionary”)


Set objWord = CreateObject(“Word.Application”)
objWord.Visible = True

Set objDoc = objWord.Documents.Open(“C:\Scripts\Sample.doc”)

Set colWords = objDoc.Words

For Each strWord in colWords
    strWord = LCase(strWord)
    strLetter = Left(strWord, 1)
    If ASC(strLetter) < 97 OR ASC(strLetter) > 122 Then
    Else
        If objDictionary.Exists(strWord) Then
            Else
            objDictionary.Add strWord, StrWord
       End If
    End If
Next

Set objDoc2 = objWord.Documents.Add()
Set objSelection = objWord.Selection

For Each strItem in objDictionary.Items
    objSelection.TypeText strItem & vbCrLf
Next

Set objRange = objDoc2.Range
objRange.Sort

información relacionada