Статьи из блога
Вставка документа с книжной ориентацией в документ с альбомной ориентацией
Сергей интересуется:
Имеется 2 документа word 2007. В первом документе имеется только один лист с текстом. Формат этого листа - книжный. Этот лист является 1-м листом 2го докумнета.
Второй документ - основной. В нем имеется несколько страниц с разлиным форматированием листа, т. е. есть листы книжной раскладки, есть листы альбомной раскладки. И начинается 2-ой документ как раз с альбомного листа.
Вопрос: Как мне вставить лист из 1го документа во второй, таким образом чтобы при вставке этот лист не изменял автоматически свою ориентацию на альбомную?
Сергей, решить эту проблему можно с помощью макроса.
Вам нужно открыть ваш основной документ (2-й документ), запустить макрос, выбрать нужный файл и он будет вставлен в качестве 1-й страницы книжного формата вашего основного документа.
Вот код макроса:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 | Sub insPortretToAlbum()'Вставка документа с книжной ориентацией в документ с альбомной ориентациейDim fileDlg As FileDialogDim fName As StringSet fileDlg = Application.FileDialog(msoFileDialogOpen)With fileDlg If .Show = -1 Then fName = .SelectedItems(1) End IfEnd WithWith Selection .HomeKey Unit:=wdStory, Extend:=wdMove .InsertFile fName .InsertBreak Type:=wdSectionBreakNextPage .HomeKey Unit:=wdStory .PageSetup.Orientation = wdOrientPortraitEnd WithEnd Sub |
Рубрика: Вопрос-Ответ, Макросы, Стили и форматирование
Метки: макросы | разрывы
Просмотров: 35605
Подписаться на комментарии по RSS
Версия для печати
Метки: макросы | разрывы
Просмотров: 35605
Подписаться на комментарии по RSS
Версия для печати
Еще записи по вопросам использования Microsoft Word:
- 10 вопросов и ответов по редактору Word (1 часть)
- 3 способа очистки списка недавно открытых документов
- Word 2007: добавляем свою вкладку и свои команды
- Word 2007: полотно, рисунки, линии
- Word 2007: смена формата сохранения файла
- Word 97 - решение проблемы с отображением символов на линейке
- Word 97. Слияние документов как один из способов упростить свою работу
- Абзац с цветным фоном
- Автозаполняемые колонтитулы
- Автоматизация текстового набора в Word
- Автоматическая запись макроса
- Автоматическая нумерация билетов
- Автоматическая расстановка переносов
- Автоматическое обновление полей при открытии документа
- Автоматическое сохранение документа при его закрытии
- Автотекст с последовательной нумерацией
- Автоформат документов
- Белый текст на синем фоне в Word 2007
- Буквица
- Быстрая смена ориентации страниц документа
- Быстрое изменение стиля форматирования текста
- Быстрое перемещение между открытыми документами Word
- Быстрое создание нового документа на основе шаблона
- Быстрое удаление границ у таблицы
- Быстрый ввод текста с помощью команды =rand()
Форум
Читают
Обсуждают
страницы
сайты
статистика
Комментариев: 8
Подскажите, как при вставке документа с колонтитулами, не менять колонтитулы следующих разделов?
Подозреваю, что нужно сначала поставить разрыв раздела, а затем вставлять документ в уже новый раздел. Или не работает?
Я использую для одного документа следующий код:
IfActivedocument.Sections.Count > 1ThenForSectionNumber = 2ToActivedocument.Sections.CountWithActivedocument.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 =FalseEndWith' Снятие флага "Как в предыдущем" для всех возможных видов колонтитуловNextSectionNumberEndIfСогласен с Александром Витер.
Проще макросов вставить "разрыв раздела",затем начать новую страницу ,сменив ее ориентацию на альбомную.
Скажите как в экселе ввести формулу z=(x+4)^2+(y-6)^2
Помогите, пожалуйста, в таком вопросе: В документе с чередованием страниц книжной и альбомной ориентации, необходимо ввести сквозную нумерацию. При этом, номера на альбомных страницах должны размещаться так, как они выглядят на этих страницах при их книжной ориентации. Спасибо!
в 2003 вставить таблицу без линий ячейки наклонный текст и вставить поле с номером странице и на альбомных листах будет номер также как на книжных при печати.
в 2007 сразу есть колонтитулы справа посередине и также делаем направление текста и все работает.
а как сделать это же с помощью макроса???