Статьи из блога

Вставка документа с книжной ориентацией в документ с альбомной ориентацией

Сергей интересуется:

Имеется 2 документа word 2007. В первом документе имеется только один лист с текстом. Формат этого листа - книжный. Этот лист является 1-м листом 2го докумнета.

Второй документ - основной. В нем имеется несколько страниц с разлиным форматированием листа, т. е. есть листы книжной раскладки, есть листы альбомной раскладки. И начинается 2-ой документ как раз с альбомного листа.

Вопрос: Как мне вставить лист из 1го документа во второй, таким образом чтобы при вставке этот лист не изменял автоматически свою ориентацию на альбомную?

Сергей, решить эту проблему можно с помощью макроса.

Вам нужно открыть ваш основной документ (2-й документ), запустить макрос, выбрать нужный файл и он будет вставлен в качестве 1-й страницы книжного формата вашего основного документа.

Вот код макроса:

Sub insPortretToAlbum()
'Вставка документа с книжной ориентацией в документ с альбомной ориентацией
Dim fileDlg As FileDialog
Dim fName As String
Set fileDlg = Application.FileDialog(msoFileDialogOpen)
With fileDlg
   If .Show = -1 Then
      fName = .SelectedItems(1)
   End If
End With
With Selection
   .HomeKey Unit:=wdStory, Extend:=wdMove
   .InsertFile fName
   .InsertBreak Type:=wdSectionBreakNextPage
   .HomeKey Unit:=wdStory
   .PageSetup.Orientation = wdOrientPortrait
End With
End Sub

twitter.com facebook.com vkontakte.ru odnoklassniki.ru mail.ru ya.ru rutvit.ru myspace.com technorati.com digg.com friendfeed.com pikabu.ru blogger.com liveinternet.ru livejournal.ru memori.ru google.com bobrdobr.ru mister-wong.ru yahoo.com yandex.ru del.icio.us

Еще записи по вопросам использования Microsoft Word:

Комментариев: 8

  1. oasisby
    04.03.2010 в 13:02 | #1

    Подскажите, как при вставке документа с колонтитулами, не менять колонтитулы следующих разделов?

  2. 04.03.2010 в 20:04 | #2

    Подозреваю, что нужно сначала поставить разрыв раздела, а затем вставлять документ в уже новый раздел. Или не работает?

  3. 06.04.2010 в 20:36 | #3

    Я использую для одного документа следующий код:

    If Activedocument.Sections.Count > 1 Then
        For SectionNumber = 2 To Activedocument.Sections.Count
        With Activedocument.Sections(SectionNumber)
            .Headers(wdHeaderFooterFirstPage).LinkToPrevious = False
            .Footers(wdHeaderFooterFirstPage).LinkToPrevious = False
            .Headers(wdHeaderFooterPrimary).LinkToPrevious = False
            .Footers(wdHeaderFooterPrimary).LinkToPrevious = False
            .Headers(wdHeaderFooterEvenPages).LinkToPrevious = False
            .Footers(wdHeaderFooterEvenPages).LinkToPrevious = False
        End With
        ' Снятие флага "Как в предыдущем" для всех возможных видов колонтитулов
        Next SectionNumber
    End If
    может поможет?

  4. Николай
    06.06.2010 в 17:10 | #4

    Согласен с Александром Витер.

    Проще макросов вставить "разрыв раздела",затем начать новую страницу ,сменив ее ориентацию на альбомную.

  5. Ильсур
    27.09.2011 в 18:09 | #5

    Скажите как в экселе ввести формулу z=(x+4)^2+(y-6)^2

  6. Олег
    30.04.2012 в 14:12 | #6

    Помогите, пожалуйста, в таком вопросе: В документе с чередованием страниц книжной и альбомной ориентации, необходимо ввести сквозную нумерацию. При этом, номера на альбомных страницах должны размещаться так, как они выглядят на этих страницах при их книжной ориентации. Спасибо!

  7. Аноним
    13.08.2012 в 18:12 | #7

    в 2003 вставить таблицу без линий ячейки наклонный текст и вставить поле с номером странице и на альбомных листах будет номер также как на книжных при печати.

    в 2007 сразу есть колонтитулы справа посередине и также делаем направление текста и все работает.

  8. аноним
    14.11.2012 в 16:09 | #8

    а как сделать это же с помощью макроса???

Оставьте комментарий!

(обязательно)

^ Наверх