Объединение word файлов в один макрос

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

Selection.InsertFile FileName:=»1.doc», Range:=»», ConfirmConversions:= _

        False, Link:=False, Attachment:=False

Адаптируй в 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 = Неопределено;

(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 = Неопределено;

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

точнее

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 = Неопределено;

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

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();

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

Selection.InsertBreak Type:=wdPageBreak

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

Пробую так:

MSWord.Application.Selection.InsertBreak.Type=7;

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

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

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

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»,,, Ложь);

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

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С вот в чем вопрос.

(41) Да хз в чем там вопрос. Объктная модель у ворда такая:

Application (окно приложений с конпками меню, вобщем сам ворд)

v

ActiveDocument (текущий открытый документ ворда)

v

Range (область в документе. Свойство Selection возвращает Range, который выделил пользователь, ессно при работе с COM Selection лучше не пользоваться, а использовать непосредственно Range).

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

Еще проблема:

листы, у которых ориентация ландшафт широкие и при сохранении в ворд, получаю ошибку:

«Ошибка экспорта табличного документа: Превышена допустимая ширина документа Word 2007»

А ворде параметр — «по ширине листа не рабоает» FitToPagesWide

Сообщений [ 1 ]

Sub UniteFiles01()
    Dim path1 As String
    path1 = ActiveDocument.Path & ""

    Selection.InsertFile filename:=path1 & "File 01.doc", Range:="", ConfirmConversions:= _
        False, Link:=False, Attachment:=False
    Selection.TypeParagraph

    Selection.InsertFile filename:=path1 & "File 02.doc", Range:="", ConfirmConversions:= _
        False, Link:=False, Attachment:=False
    Selection.TypeParagraph

    Selection.InsertFile filename:=path1 & "File 03.doc", Range:="", ConfirmConversions:= _
        False, Link:=False, Attachment:=False
    Selection.TypeParagraph

    ' (Повторите нужное количество раз)
End Sub

Сообщений [ 1 ]

Объединение группы файлов Word с помощью макроса

Для всех пользователей текстового редактора Microsoft Word будет полезно познакомиться со встроенными функциями и настройками этой программы. Наш сайт о Microsoft Office Word даст ответ про: excel текст в нижний регистр.

На форуме сайта Ворд Эксперт вам предложат различные варианты настроек, в зависимости от поставленных задач. На портале о Microsoft Office Word вы узнаете про: антоним к слову звильнити.
Так существуют схемы для быстрого удаления лишних пробелов из текста, переформатирования и оформления в одном стиле различных кусков, работы с таблицами и многого другого. На портале о Microsoft Office Word вы узнаете про: рисунки для границы для word.

Здесь вы найдете шаблоны для часто повторяющихся схем оформления текста, макросы практически для любых операций, готовые решения и пошаговые инструкции для написания. Наш сайт о Microsoft Office Word даст ответ про: границы для ms office 2010.
Также вы можете оставить заявку на любую работу, связанную с Вордом.