powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Создание в Excel программно слияния документов в Word с данными из Excel
1 сообщений из 1, страница 1 из 1
Создание в Excel программно слияния документов в Word с данными из Excel
    #33968116
Helga_x52
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Люди поммогите!!!!!
Возникла проблема создания слияния документов
текстовый документ слияния записан ввиде макроса и вворде макрос срабатывает нормально, но при попытке создать в экселе программно этот вордовский документ :

Sub MakeMemos()
Dim WordApp As Object

Set WordApp = CreateObject("word.application")

With WordApp
'.Visible = True
.Documents.Add

'Создание документа слияния
.ActiveDocument.MailMerge.MainDocumentType = wdFormLetters
.ActiveDocument.MailMerge.OpenDataSource Name:= _
"C:\Documents and Settings\Ольга\My Documents\Sotrudnik\Trud.xls", _
ConfirmConversions:=False, ReadOnly:=False, LinkToSource:=True, _
AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", _
WritePasswordDocument:="", WritePasswordTemplate:="", Revert:=False, _
Format:=wdOpenFormatAuto, Connection:="Весь лист", SQLStatement:="", _
SQLStatement1:=""
.ActiveDocument.MailMerge.EditMainDocument
.Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
.Selection.TypeText Text:="Сотрудник "
.ActiveDocument.MailMerge.Fields.Add Range:=Selection.Range, Name:="Код"

With ActiveDocument.MailMerge
.Destination = wdSendToNewDocument
.MailAsAttachment = False
.MailAddressFieldName = ""
.MailSubject = ""
.SuppressBlankLines = True
With .DataSource
.FirstRecord = wdDefaultFirstRecord
.LastRecord = wdDefaultLastRecord
End With
.Execute Pause:=True
End With
End With
WordApp.Quit.SaveChanges = wdDoNotSaveChanges
Set WordApp = Nothing

End Sub

эксель материться и грит

"Wrong number of arguments or invalid property assignment"

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

и указатель становица на строчку
.ActiveDocument.MailMerge.Fields.Add Range:=Selection.Range, Name:="Код"

Эта процедура формировалась в ворде в виде макроса и при запуске этого макроса проблем невозникало.

Кто нить знает решение этой проблемы??????
...
Рейтинг: 0 / 0
1 сообщений из 1, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Создание в Excel программно слияния документов в Word с данными из Excel
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]