Я хочу получить ссылки на документы Word из диапазона Excel, но получаю ошибку времени выполнения 13 в "doc.Documents.Open Path".
```
Sub wordsexcel()
Set doc = GetObject(, "Word.Application")
If Err.Number = 429 Then
Err.Clear
Set doc = CreateObject("Word.Appliction")
End If
doc.Visible = True
For Each Path In Range("Documents")
doc.Documents.Open Path
Set txt = doc.Words
For Each word In Range("Words")
If txt.InRange(word) Then txt.Select
Next word
doc.Save
doc.Close
Next Path
Set doc = Nothing
End Sub
```