Word OLE automation..!!

[subash jayan]

Hi ...


I am using MS Word OLE object for developing one software. But in some
case Word shows some warnings like 'MS Word finished searching...' etc
etc.... Is there any function available to hide the messages or
warnings ???

Thanx in advance...

Subash

 

[Perry]

Hi subash,

Try raising DisplayAlerts and set it too false

Example:
oWord is a valid Word application object

=begin example
oWord.DisplayAlerts = False
On Error GoTo ReturnToWord
'<the rest of your actions go here
ExitHere:
oWord.DisplayAlerts = True
Exit Sub
ReturnToWord:
Resume ExitHere
=end example

More info on Application.DisplayAlerts
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/vbawd10/htm
l/woprodisplayalerts.asp

Krgrds,
Perry

 

[subash jayan]

Hi..

In my case i am getting each revision objects from the senetence of
words. But in some strange situations, word doest not returns the
Revision object instead of it shows the message like 'word finished
the searching'...

As ur idea, i have added , i did set Displayalert as false but its
still showing the message....

i am pasting the code here...

Dim oComments As Comments
Dim oComment As Comment
Dim oView As View

Application.DisplayAlerts = wdAlertsNone

Set oComments = ActiveDocument.Comments

lC = oComments.Count

For ind = 1 To oComments.Count
Dim oDoc As Document
Set oComment = oComments.Item(ind)
Dim oRange As Range
Dim oSenRange As Range
Set oRange = oComment.Scope
Set oDoc = oRange.Document

Dim oSens As Sentences
Set oSens = oRange.Sentences

Dim oSenRevisions As Revisions
Set oSenRange = oSens.Item(1) // Here am getting the error and
word shows the message
Set oSenRevisions = oSenRange.Revisions
nRevCnt = oSenRevisions.Count
oDoc.Activate
For ind2 = 1 To nRevCnt
Dim oRev2 As Revision
Set oRev2 = oSenRevisions.Item(ind2)
Next


Next

thanx

subash