Сап двач. Есть ли тут VBA-боги? Есть макрос, который копирует выделенный(походу) текст из Ворда в первую ячейку Экселя в скрытом режиме. Как сделать чтобы работало, когда оба открыты? Хелп пасаны

Sub qqq()
Dim objExcel As Object
Dim FileName$
FileName = "G:\Documents and Settings\vasyan\kniga1.xlsx"
Set objExcel = CreateObject("Excel.Application")
DoEvents
With objExcel
.DisplayAlerts = False
With .Workbooks.Open(FileName)
DoEvents
.sheets(1).Paste
.Save
.Close
End With
.DisplayAlerts = False
End With
Set objExcel = Nothing
End Sub