Можно ли программно объединить несколько word'ских файла?

Наверняка

(0) Объединяйте, пожалуйста. Никто не возражает.

Как?

(3)Открой учебник по офису

(4) в учебнике по офису написано как в 1С склеить два файла ворда?

(5) Ты не поверишь )

(0) file3.doc = file1.doc + file2.doc;
Шутка.

(0) открываешь файл.
Делаешь выделить все и копируешь в новый файл.
Со вторым файлом также.

Возможно, надо посмотреть команды (выдернул из макроса):
Selection.WholeStory
Selection.Copy
Selection.PasteAndFormat (wdUseDestinationStylesRecovery)

(8) "программно объединить" - где программа?

(10) 1С пойдет ;)

(0)макросом пишется так:

Selection.InsertFile FileName:="1.doc", Range:="", ConfirmConversions:= _
        False, Link:=False, Attachment:=False

Адаптируй в 1С:-)

(12) так не интересно. Давай полное законченное решение )

(13)полное и законченное стоит полый кошелек денюх:-)

(14) ах ты жадный 1Сник )))

(15)Надо же поддерживать имидж программиста 1С!
Еще вот поднатужусь и стану тупым и ленивым!:-)

EvilMacros = "Sub SuperMacros()
|Selection.InsertFile FileName:="file1.docx", _
|Range:="", ConfirmConversions:=False, Link:=False, Attachment:=False
|Selection.InsertFile FileName:="file2.docx", _
|Range:="", ConfirmConversions:=False, Link:=False, Attachment:=False
|Selection.InsertFile FileName:="file3.docx", _
|Range:="", ConfirmConversions:=False, Link:=False, Attachment:=False
|Selection.InsertFile FileName:="file4.docx", _
|Range:="", ConfirmConversions:=False, Link:=False, Attachment:=False
|End Sub";

Word = Новый COMОбъект("Word.Application");
Word.Documents.Add();
VBComponents = Word.ActiveDocument.VBProject.VBComponents;
Count = VBComponents.Count();
VBComponents.Add(1);
VBComponents.Item(Count + 1).CodeModule.I_nsertLines(1, EvilMacros);
Word.Application.Run(SuperMacros");
Word.Quit();
Word = Неопределено;

(17)Ты все испортил!!!(С)
:-)

(18) и не говори ))

(17) спасибо. Попробую.
Хочу из 1С в один файл объединить несколько таблиц с разной ориентацией.

(17) Извращение. Мало кто программный доступ к проекту ВБА разрешает.

(21) ага.

{Форма.Форма.Форма(446)}: Ошибка при получении значения атрибута контекста (VBProject)
    VBComponents = Word.ActiveDocument.VBProject.VBComponents;
по причине:
Произошла исключительная ситуация (Microsoft Word): Отсутствует доверие к программируемому доступу к проекту Visual

(22) ну да разрешить )))

а иначе - юзайте MS Word Merge Tool. Но он платный.

(23) написать по-человечески тот же макрос не варик?


Word = Новый COMОбъект("Word.Application");
Word.Documents.Add();
Word.ActiveDocument.Selection.InsertFile FileName:="file1.docx", _
Word.ActiveDocument.Range:="", ConfirmConversions:=False, Link:=False, Attachment:=False
Word.ActiveDocument.Selection.InsertFile FileName:="file2.docx", _
Word.ActiveDocument.Range:="", ConfirmConversions:=False, Link:=False, Attachment:=False
Word.ActiveDocument.Selection.InsertFile FileName:="file3.docx", _
Word.ActiveDocument.Range:="", ConfirmConversions:=False, Link:=False, Attachment:=False
Word.ActiveDocument.Selection.InsertFile FileName:="file4.docx", _
Word.ActiveDocument.Range:="", ConfirmConversions:=False, Link:=False, Attachment:=False

Word.Quit();
Word = Неопределено;


и я даже не говорю о том, что сам по себе макрос не особо хороший, хотя рабочий.

(24) может и варик ).
Мой вариант был симбиозом двух рецептов )

точнее

Word = Новый COMОбъект("Word.Application");
Word.Documents.Add();
Word.ActiveDocument.Selection.InsertFile("file1.docx", "", False, False, False)
Word.ActiveDocument.Selection.InsertFile("file2.docx", "", False, False, False)

Word.Quit();
Word = Неопределено;

(26) то-то я думаю, что за странный синтаксис:
Word.ActiveDocument.Selection
Word.ActiveDocument.Range

(26) не работает что-то метод Selection
тут
Word.ActiveDocument.Selection.InsertFile("file1.docx", "", False, False, False):
Метод объекта не обнаружен (Selection)

Так работает:

MSWord = Новый COMОбъект("Word.Application");
    Документ = MSWord.Application.Documents.Add();
    //Документ.Activate();
    MSWord.Application.Selection.InsertFile("W:\ТабДок1.docx",,, Ложь);
    MSWord.Application.Selection.InsertFile("W:\ТабДок4.docx",,, Ложь);
    
    MSWord.Application.Visible = Истина;
    MSWord.Activate();

Только при объединении двух вордовских файлов не сохраняется их ориентация:
1-й стоит Портрет,
2-й - Ландшафт.
Выводит все листы в портретной ориентации.

(30) Разрыв раздела вставляй.

(31) разрыв страницы макросом делается так:

Selection.InsertBreak Type:=wdPageBreak

а в 1С как сделать?

Пробую так:
MSWord.Application.Selection.InsertBreak.Type=7;

выдает ошибку "Поле объекта не обнаружено (InsertBreak)"

(32) А так? MSWord.Application.Selection.InsertBreak(7)

Только 7 - это вроде разрыв страницы, а тебе нужен разрыв раздела wdSectionBreakNextPage.

(33) Вместо 7 это 2 .

(33) (34) да так работает, спасибо. Но ориентацию ставит всё равно одну, первую (портрет).

(35) Потому что надо разрыв раздела ставить (может я с номером параметра ошибся). В ворде в разных разделах может быть разная ориентация, а на разных страницах одного раздела - нет.

(36) я так делал:
MSWord.Application.Selection.InsertBreak(2)

MSWord = Новый COMОбъект("Word.Application");
    Документ = MSWord.Application.Documents.Add();

    MSWord.Application.Selection.InsertFile("W:\ТабДок1.docx",,, Ложь);
    MSWord.Application.Selection.InsertBreak(2);
    MSWord.Application.Selection.InsertFile("W:\ТабДок5.docx",,, Ложь);

(38) Да, проверил. InsertFile - просто вставляет текст из файла без сохранения ориентации. Может там параметры какие есть, навскидку попробовал параметры ConfirmConversions.

+(39) Не помогло.

Сделал так: нажал запись макроса, выделил раздел, нажал кнопку параметры и установил ориентацию, получил такой макрос:

Sub Макрос1()
'
' Макрос1 Макрос
'
'
    With Selection.PageSetup
        .LineNumbering.Active = False
        .Orientation = wdOrientLandscape
        .TopMargin = CentimetersToPoints(3)
        .BottomMargin = CentimetersToPoints(1.5)
        .LeftMargin = CentimetersToPoints(2)
        .RightMargin = CentimetersToPoints(2)
        .Gutter = CentimetersToPoints(0)
        .HeaderDistance = CentimetersToPoints(1.25)
        .FooterDistance = CentimetersToPoints(1.25)
        .PageWidth = CentimetersToPoints(29.7)
        .PageHeight = CentimetersToPoints(21)
        .FirstPageTray = wdPrinterDefaultBin
        .OtherPagesTray = wdPrinterDefaultBin
        .SectionStart = wdSectionNewPage
        .OddAndEvenPagesHeaderFooter = False
        .DifferentFirstPageHeaderFooter = False
        .VerticalAlignment = wdAlignVerticalTop
        .SuppressEndnotes = False
        .MirrorMargins = False
        .TwoPagesOnOne = False
        .BookFoldPrinting = False
        .BookFoldRevPrinting = False
        .BookFoldPrintingSheets = 1
        .GutterPos = wdGutterPosLeft
    End With
End Sub

Как вот его переделать для 1С вот в чем вопрос.

(40) А вот если из файла 2 копипастить (Ctrl+A, Сtrl+С) и вставлять в новый раздел файла 1, то ориентация тоже копируется :)

Ура заработало:
MSWord.Application.Selection.PageSetup.Orientation = 1;

(43) Ну если ты заранее знаешь, в каком файле какая ориентация - то пойдёт. А иначе придётся извращаться. Или если в добавляемом файле будет несколько разделов с разной ориентацией.

(41) Да хз в чем там вопрос. Объктная модель у ворда такая:
Application (окно приложений с конпками меню, вобщем сам ворд)
v
ActiveDocument (текущий открытый документ ворда)
v
Range (область в документе. Свойство Selection возвращает Range, который выделил пользователь, ессно при работе с COM Selection лучше не пользоваться, а использовать непосредственно Range).

Еще у Document есть коллекции Paragraphs (абзацы) и Words (отдельные слова). Элементы этих коллекций тоже имеют свойство Range.

(44) да это известно.

Еще проблема:
листы, у которых ориентация ландшафт широкие и при сохранении в ворд, получаю ошибку:
"Ошибка экспорта табличного документа: Превышена допустимая ширина документа Word 2007"

А ворде параметр - "по ширине листа не рабоает" FitToPagesWide

В экселе это не сделаешь, нет метода InsertFile.
Остается выравнивать по вертикале, если не влазит, то ставить верикальный разделитель.
Всё это делать с помощью методов ПроверитьПрисоединение() и ВывестиВертикальныйРазделительСтраниц().