Excel VBA coding open Winword file and get value

[justuptou]

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

 

[NdNoviceHlp]

Hi justuptou. You can either set a reference to the Word object model in the VBE or replace Word specific terms with enumerated constants. Also, I think you need to reference the document in the "With". You could use "With objdoc" or...

With objWord.ActiveDocument
.Selection.MoveDown unit:=4, Count:=1, Extend:=1 'wdExtend ' <---

HTH. Dave