Using Document.Words Object in VBA Word

[talhamoin]

Hello

I have written the below code to write all words from MainDocument.doc to ChangeLog.txt. It should bypass the punctuation marks. But it isn't working. I don't know why. Any idea?

Sub DictionaryCompare()
    Dim docCurrent As Document
    Dim LookupWord As Object
        
    sMainDoc = "C:\Dictionary\MainDocument.doc"
    Set docCurrent = Documents.Open(sMainDoc)
    docCurrent.Activate

	For Each LookupWord In docCurrent.Words
		If LookupWord <> vbCr And LookupWord <> "." And LookupWord <> "," And LookupWord <> ";" And LookupWord <> "?" And LookupWord <> "'" Then
			Open "C:\Dictionary\ChangeLog.txt" For Append As #2
			Write #2, Trim(LookupWord) & "," & FontColor & "," & PartOfSpeech
			Close #2
		End If
	Next
End Sub

 

[SkipVought]

Hi,

Where does FontColor & PartOfSpeech get defined and assigned?


Skip,
[sub]
Just traded in my old subtlety...
for a NUANCE![/sub]

 

[SkipVought]

This seems to 'work' (without the file logging)

    For Each LookupWord In docCurrent.Words
        Select Case Trim(LookupWord)
            Case vbCr, ".", ",", ";", "?", "'", Chr(34), Chr(148)
            Case Else
                Debug.Print Trim(LookupWord)
'                Write #2, Trim(LookupWord) & "," & FontColor & "," & PartOfSpeech
        End Select
    Next

Skip,
[sub]
Just traded in my old subtlety...
for a NUANCE![/sub]

 

[Markus4]

Hi,

at first it seemed to me that you want to make some sort of dictionary. But the output file is called "ChangeLog". Your code and the output file's folder name again let me assume that you want to make a dictionary.

IMO two kinds of what Word regards as a word do not go into a dictionary: numbers and punctuation marks. Furthermore I assume that only the words of the main text will go into a dictionary, as headers and footers are most likely already checked.

With these assumptions I would change the loop like this:

Dim x As Object
For Each x In ActiveDocument.StoryRanges(wdMainTextStory).Words
  If Len(Trim(x)) > 1 Then
    If Not IsNumeric(x) Then
      ...
    End If [COLOR=gray]'IsNumeric[/color]
  End If [COLOR=gray]'Len>1[/color]
Next x

I'm just guessing that your code didn't work because an IF does not "like" so many ANDs.

HTH anyway.

Markus

 

[talhamoin]

Thank you all. The Select Case worked.

 

[talhamoin]

Hi thank you all especially SkipVought. Using Case statement really helped.