Not able to open Word documents using a Word macro

[musicgold]

Hello,

I am trying to open certain Word documents using the macro below, but it doesn't seem to be working. When I run the macro, I am not getting any error.

In the selected area, each line has a network drive link to a word file in the following format: K:\Sales\John\Sept\Notes\J2021.docx

Why is the macro not working?

Dim openfile As Document
Dim singleLine As Paragraph
Dim lineText As String

    For Each singleLine In Selection.Paragraphs
        lineText = singleLine.Range.Text
   Set openfile = Word.Documents.Open(lineText)
     
    Next singleLine

 

[RoryA]

It should really be:

Set openfile = Application.Documents.Open(lineText)

 

[musicgold]

It should really be:

Set openfile = Application.Documents.Open(lineText)

That is also not working. As per the Watch window, value of openfile remain "nothing". No error occurs during the execution of the code.
Thanks

 

[RoryA]

Is that line actually being executed?

 

[musicgold]

Is that line actually being executed?

I single-stepped the macro on two computer. On my work computer, the control just executes the line and triggers no error. On my home computer, I get the error below. The file is there.

 

[RoryA]

The file is there

Are you sure the path is exactly correct? That message is pretty self-explanatory.

 

[musicgold]

Are you sure the path is exactly correct? That message is pretty self-explanatory.

I think so. I even tried with really simple paths, but continue to get the same message. As you can see in the second screenshot. the file exists.

 

[RoryA]

Ahh, the clue is in the fact that the closing bracket in the message is on a new line. The line text includes a carriage return at the end, so you'll need to remove that - either use Replace or take everything up to the last character of the line.

 

[musicgold]

Ahh, the clue is in the fact that the closing bracket in the message is on a new line. The line text includes a carriage return at the end, so you'll need to remove that - either use Replace or take everything up to the last character of the line.

Bingo! The line below solved the problem. Thank you very much!?

lineText = Replace(lineText, vbCr, "")