MS Word: Auto Reading

[Legacy 65404]

Hi, I'm trying to make a macro in MSWord to "Auto Read" a document, I use a code to page down once, and a delay. I've put it on a while, but I can't check if the cursor is at the end of the file, does anybody know how to verify if the cursor is in the last line?

or, if doesn't, do you guys know a forum as good as this one for MSWord (I don't think that it exists, but at least a good forum.. :wink: )

Thanks,
Guilherme

 

[Oorang]

Please explain what you mean by "Auto-Read".

 

[Legacy 65404]

I want the document to roll down automatically in a cartain delay, so you can read it without pressing any key, I already have this code, what I need is to check if it's on the end of the document, so I can stop my code.

 

[Oorang]

OIC
I am sure there are better solutions, but until I look at your code, here is a quick and dirty work-around. Just nest your code in On Error Resume/Go statment and then handle the Error generated by hitting the end of the document. Here is an example:

Sub Example()
Dim lngErrNum As Long
On Error GoTo Err_Hnd
lngErrNum = 1234 'Change this to the correct error number.

'***************
'Your Code Here*
'***************

Exit Sub
Err_Hnd:
If Err.Number = lngErrNum Then
    'Do Whatever
    Else
    MsgBox Err.Description, vbCritical, "Error: " & Err.Number
    End If
End Sub

 

[Legacy 65404]

well, let me see if I can explain with the code...

Sub Test()
    Do While   'Here I want to know when the file ends
        Selection.MoveDown Unit:=wdScreen, Count:=1
        Call subDelay(20)
    Loop
End Sub

I used a function to delay:

Public Sub subDelay(sngDelay As Single)
    Const cSecondsInDay = 86400

    Dim sngStart As Single 
    Dim sngStop  As Single 
    Dim sngNow   As Single 

    sngStart = Timer 
    sngStop = sngStart + sngDelay 
    Do
        sngNow = Timer 
        If sngNow < sngStart Then 
            sngStop = sngStart - cSecondsInDay
        End If
        DoEvents
    Loop While sngNow < sngStop
End Sub

This is what I need: On the while of the first code (sub test()) I have to check if the cursor is at the last line of the document... so I can stop the code.

Was I clear? I'm sorry if I wasn't, explaining something in english is not very easy to me...

Thanks for the help until now,
Guilherme