|
|
|
Создание в Excel программно слияния документов в Word с данными из Excel
|
|||
|---|---|---|---|
|
#18+
Люди поммогите!!!!! Возникла проблема создания слияния документов текстовый документ слияния записан ввиде макроса и вворде макрос срабатывает нормально, но при попытке создать в экселе программно этот вордовский документ : 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:="Код" Эта процедура формировалась в ворде в виде макроса и при запуске этого макроса проблем невозникало. Кто нить знает решение этой проблемы?????? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 06.09.2006, 14:28:47 |
|
||
|
|

start [/forum/topic.php?fid=61&fpage=317&tid=2184329]: |
0ms |
get settings: |
7ms |
get forum list: |
16ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
24ms |
get topic data: |
8ms |
get forum data: |
2ms |
get page messages: |
19ms |
get tp. blocked users: |
1ms |
| others: | 197ms |
| total: | 280ms |

| 0 / 0 |
