The error messages is displayed, when the coding goes to Blue statement and Purple Statement.
Sub Sample2()
Set objWord = CreateObject("word.Application")
objWord.Visible = True
objWord.Activate
Set objDoc = objWord.Documents.Open("C:\Log.doc")
With objWord
.Selection.MoveDown unit:=wdParagraph, Count:=1, Extend:=wdExtend ' <---
MsgBox "Page " & (CStr(.Selection.Information(wdActiveEndPageNumber)) & " / " & .Selection.Text)
End With
End Sub
Sub Sample2()
Set objWord = CreateObject("word.Application")
objWord.Visible = True
objWord.Activate
Set objDoc = objWord.Documents.Open("C:\Log.doc")
With objWord
.Selection.MoveDown unit:=wdParagraph, Count:=1, Extend:=wdExtend ' <---
MsgBox "Page " & (CStr(.Selection.Information(wdActiveEndPageNumber)) & " / " & .Selection.Text)
End With
End Sub