Open Word document, modify and Save

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Dana - 24 Jan 2006 12:38 GMT

Hi All

Is there any way that I can read from a word document in a word-by-word
manner and do my own checks on each word (like a spelling checker), and
modify some words where necessary then save the document again.

Any help is highly appreciated.

Regards

Dana

Reply to this Message

Helmut Weber - 24 Jan 2006 13:40 GMT

Hi Dana,

sure.

Dim oWrd As Object
For Each oWrd In ActiveDocument.Range.Words
' what now ?
Next

--
Greetings from Bavaria, Germany
Helmut Weber, MVP WordVBA
"red.sys" & chr(64) & "t-online.de"
Word 2002, Windows 2000

Reply to this Message

Dana - 24 Jan 2006 15:15 GMT

Thanks

I think that is what I want.

Regards

> Hi Dana,
>
[quoted text clipped - 10 lines]
> "red.sys" & chr(64) & "t-online.de"
> Word 2002, Windows 2000

Reply to this Message

Greg - 24 Jan 2006 17:58 GMT

Helmut,

I would have probably started with:

Dim oWord as Word.Range

So I will ask the same question that that fellow Fred has asked. Why
did you use ... As Object?

I would also have clipped that trailing space:
Sub Test()
Dim oWord As Word.Range 'Object
For Each oWord In ActiveDocument.Range.Words
If oWord.Characters.Last = " " Then
oWord.MoveEnd wdCharacter, -1
'Do something like
MsgBox oWord
End If
Next
End Sub

Reply to this Message

Helmut Weber - 25 Jan 2006 08:52 GMT

Hi Greg,

> Why did you use ... As Object?

Because I didn't know better, but I know now.
I was always wondering about:
paragraph and paragraphs
shape and shapes
section and sections
and why there was a _word_-object missing,
when there was a _words_-object.

>I would also have clipped that trailing space

Yes.

The question was a bit too broad for me,
to put much effort into an answer.
--
Greetings from Bavaria, Germany
Helmut Weber, MVP WordVBA
"red.sys" & chr(64) & "t-online.de"
Word 2002, Windows 2000

Reply to this Message

Greg Maxey - 25 Jan 2006 11:13 GMT

Helmut,

I share your point about it being a broad question.

Cheers.

Signature

Greg Maxey/Word MVP
See:
http://gregmaxey.mvps.org/word_tips.htm
For some helpful tips using Word.

> Hi Greg,
>
[quoted text clipped - 19 lines]
> "red.sys" & chr(64) & "t-online.de"
> Word 2002, Windows 2000

Reply to this Message