Обращение из Excel 2003 к открытому документу Word по названию

[xamillion]

Пытал Гугл, не признается...
Пытаюсь вставить в таблицу уже открытого документа Word 2003 из Excel данные. Не получается обратится к документу по его названию без указания полного пути.

Sub ZapTabl()
    Stroka = ActiveCell.row
        
Set WA = CreateObject("Word.Application")
Set WD = WA.Documents.Add(Filename:="spr_20052015.doc")

WD.Tables(1).Cell(1, 1).Range = "!!!"
WD.Tables(5).Cell(3, 2).Range =  ThisWorkbook.Sheets("DATA").Cells(Stroka, "F")
End Sub

В отчаянии

[IgorGO]

а указать полный путь Вам не позволяют религиозные убеждения?

и вообще...
в теме написано "обратиться к открытому документу"
судя по коду - Вы пытаетесь открыть документ в новом экземпляре Word
а что нужно-то???

если обратиться к уже открытому документу то ищите "поиск окна по имени" примеры были и на форуме
если открыть документ - то укажите-таки полный путь к нему, а не только название.

[27102014]

А в чем проблема указать путь документа word?
Как понял Ваш код, Вы создаете документ word из Excel - можно задать переменную с указанием пути

  'место сохранения документа 
Папка = ActiveWorkbook.Path

'имя документа word
Filename = Папка & "\" & "документ" & ".doc"

[Hugo121]

Sub ZapTabl()
    Dim WA As Object
    Stroka = ActiveCell.Row

    ActivateWord WA

    WA.Visible = True
    Set WD = WA.Documents("test.doc")

    WD.Tables(1).Cell(1, 1).Range = "!!!"
    WD.Tables(5).Cell(3, 2).Range = ThisWorkbook.Sheets("DATA").Cells(Stroka, "F")
End Sub


Private Function ActivateWord(WA)
    On Error Resume Next
    Set WA = GetObject(, "Word.Application")
    If WA Is Nothing Then
        Set WA = CreateObject("Word.Application")
    End If
End Function

[xamillion]

Сообщение от IgorGO

а указать полный путь Вам не позволяют религиозные убеждения?

В том то и дело, что файл уже открыт и путь к нему проблематично каждый раз искать. Зато точно знаю название файла...

Сообщение от IgorGO

и вообще...
в теме написано "обратиться к открытому документу"
судя по коду - Вы пытаетесь открыть документ в новом экземпляре Word
а что нужно-то???

тут не пинайте валенка... так и есть... нужно обратиться к открытому документу

Сообщение от IgorGO

если обратиться к уже открытому документу то ищите "поиск окна по имени" примеры были и на форуме

спасибо... направили ... на форуме подобного не нашел...

Сообщение от Hugo121

Sub ZapTabl()
    Dim WA As Object
    Stroka = ActiveCell.Row

    ActivateWord WA

    WA.Visible = True
    Set WD = WA.Documents("test.doc")

    WD.Tables(1).Cell(1, 1).Range = "!!!"
    WD.Tables(5).Cell(3, 2).Range = ThisWorkbook.Sheets("DATA").Cells(Stroka, "F")
End Sub


Private Function ActivateWord(WA)
    On Error Resume Next
    Set WA = GetObject(, "Word.Application")
    If WA Is Nothing Then
        Set WA = CreateObject("Word.Application")
    End If
End Function

Просто в яблочко...
спасибо. и не ругайте бездарей ))) сам такой... и ругаюсь бывает, но в других вопросах... спасибо за понимание!

[Hugo121]

Ну там ещё нужно проверку навесить - есть ли такой документ, что делать если его нет или Ворд создали сами (тогда вероятно нужно этот документ открывать) и т.д.