VBA пытается извлечь путь из диапазона Excel - PullRequest
0 голосов
/ 29 марта 2019

Я хочу получить ссылки на документы 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

```
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...