Создать отчет в Word из Excel

[Wine]

FileName = Application.GetOpenFilename(filefilter:="Документы MSWord (*.doc), *.doc", Title:="Выберите файл шаблона", MultiSelect:=False)
If FileName = RTrim(LTrim("False")) Then
MsgBox "Необходимо выбрать файл!"
Exit Sub
End If
WApp.Visible = True
Set ActDoc = WApp.dOCUMENTS(1).Open(FileName)

До этого места работает - а дальше начинаю манипулировать документом и все
For i = 1 To ActDoc.Table(1).Rows.Count - 3
ActDoc.Tables(1).Rows(3).Delete
Next

Документ открыла а дальше не видны методы и объекты Worda. На любые попытки обратиться к объектам документа Word Excel выдает ошибку

[bi-lya]

Для того, чтобы были видны свойства и методы, нужно использовать раннее связывание с подключением библиотеки в референсах и декларированием переменных, а так же присваивать объектные ссылки этим переменным. Кроме того, у вас ошибки в коде

Код: Выделить всё

  Dim WApp As Word.Application
  Dim ActDoc As Word.Document
  
  Filename = Application.GetOpenFilename(filefilter:="Документы MSWord (*.doc), *.doc", Title:="Выберите файл шаблона", MultiSelect:=False)
  If Filename = RTrim(LTrim("False")) Then
    MsgBox "Необходимо выбрать файл!"
    Exit Sub
  End If

  Set WApp = CreateObject("Word.Application")

  WApp.Visible = True
  
  Set ActDoc = WApp.dOCUMENTS.Open(Filename)
  
  For i = 1 To ActDoc.Tables(1).Rows.Count - 3
    ActDoc.Tables(1).Rows(3).Delete
  Next

[seergy]

Для того, чтобы были видны свойства и методы, нужно использовать раннее связывание с подключением библиотеки в референсах и декларированием переменных, а так же присваивать объектные ссылки этим переменным. Кроме того, у вас ошибки в коде

Код: Выделить всё

  Dim WApp As Word.Application
  Dim ActDoc As Word.Document
  
  Filename = Application.GetOpenFilename(filefilter:="Документы MSWord (*.doc), *.doc", Title:="Выберите файл шаблона", MultiSelect:=False)
  If Filename = RTrim(LTrim("False")) Then
    MsgBox "Необходимо выбрать файл!"
    Exit Sub
  End If

  Set WApp = CreateObject("Word.Application")

  WApp.Visible = True
  
  Set ActDoc = WApp.dOCUMENTS.Open(Filename)
  
  For i = 1 To ActDoc.Tables(1).Rows.Count - 3
    ActDoc.Tables(1).Rows(3).Delete
  Next

Не датите полный код для создаения отчёта в ВОРд из Эксель в формате RTF
C уважением..

[bi-lya]

Что вы имеете ввиду под

полный код для создаения отчёта в ВОРд из Эксель

[seergy]

Что вы имеете ввиду под

Есть иакрос котрый вставляет в ворд выдел диапозон, ячеек в эксель. Однако он вставляется как книга (типа спец вставки). Можно открыть и пересчитать мои расчёты
- это сложный расчёт . А если вставит в ворд в формате RTF, то никто ничего не изменит - останутся только принимаемые мной проектные решения...
С уважением...

[Teslenko_EA]

Здравствуйте seergy.
А еще можно создать файл в формате PDF, и тогда уж точно, сложно будет что то изменить. И надо то всего, установить виртуальный принтер (например dopdf.exe), и при отправке задания печати на него, будет создан документ PDF, изменить который сложнее чем RTF.
Евгений.

[seergy]

Знаю. Мне нужна таблица в ворде...

[zedby]

пытаюсь сделать отчет как описано в этой теме но столкнулся с такой проблемой:
из екселя запускается ворд и в нем необходимо произвести поиск и замену например текста {FIO} на "иванов иван иванович" но код както странно отрабатывает ищет текст для замены но не меняет егоб где ощибка подскажите

Sub zz()




Filename = Application.GetOpenFilename(filefilter:="Документы MSWord (*.doc), *.doc", Title:="Выберите файл шаблона", MultiSelect:=False)
If Filename = RTrim(LTrim("False")) Then
MsgBox "Необходимо выбрать файл!"
Exit Sub
End If

Set WApp = CreateObject("Word.Application")



Set ActDoc = WApp.dOCUMENTS.Open(Filename)
ActDoc.ActiveWindow.Selection.Find.Text = "{FIO}"
ActDoc.ActiveWindow.Selection.Find.Replacement.Text = "Ианов"
ActDoc.ActiveWindow.Selection.Find.Forward = True
ActDoc.ActiveWindow.Selection.Find.Wrap = wdFindAsk
ActDoc.ActiveWindow.Selection.Find.Execute Replace:=wdReplaceAll


WApp.Visible = True
End Sub

[Teslenko_EA]

Здравствуйте zedby.
Ваш код вполне работоспособный, но для его выполнения, библиотека Microsoft.Word, должна быть подключена в проекте Excel.
Евгений.

[pilligrim]

Дамы и господа.
А нельзя просто копи пастом воспользоваться?
Типа

Код: Выделить всё

Windows("Microsoft Excel").Activate
Selection.Copy
Windows("Microsoft Word").Activate
Paste