Объединение файлов docx #769289

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

Наверняка

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

Как?

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

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

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

Шутка.

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

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

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

1С пойдет ;)

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

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

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

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

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

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

и не говори ))

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

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

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

ну да разрешить ))) а иначе - юзайте MS Word Merge Tool. Но он платный.

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

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

точнее

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

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

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

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

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

разрыв страницы макросом делается так: а в 1С как сделать? Пробую так: MSWord.Application.Selection.InsertBreak.Type=7; выдает ошибку "Поле объекта не обнаружено (InsertBreak)"

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

Вместо 7 это 2 .

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

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

я так делал: MSWord.Application.Selection.InsertBreak

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

+ Не помогло.

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

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

Ура заработало:

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

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

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

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

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