Как из VB поменять ориентацию страницы в Word?

30.09.2007, 17:10. **Показов** 8771. **Ответов** 10

Студворк — интернет-сервис помощи студентам

Помогите! Как из VB поменять ориентацию страницы в Ворде?

@AndreP · 30.09.2007, 17:17

ActiveDocument.PageSetup.Orientation = wdOrientLandscape

или

ActiveDocument.PageSetup.Orientation = wdOrientPortrait

01.10.2007, 17:34

Спасибо за ответ.
Но тут возникла ещё одна проблема, не могу поменять положение курсора из VB. Если не трудно подскажите пожалуйста.

@AndreP · 01.10.2007, 19:19

Подробнее, какого курсора и где ?

02.10.2007, 10:33

Курсор в документе Word.

@AndreP · 02.10.2007, 10:56

Примерно так

Selection.MoveDown Unit:=wdLine, Count:=3
Selection.MoveRight Unit:=wdCharacter, Count:=12

02.10.2007, 11:16

Спасибо за подсказку. Все замечательно работает, но у меня в Ворде создается таблица которая ни как не хочет перемещаться в нужное положение, а создается всегда в начале документа, я думал это лечится положением курсора, куда поставишь, там и будет создаваться таблица , однако это почему-то не работает.HELP!!!

@AndreP · 02.10.2007, 12:18

Для того чтобы таблица опустилась ниже начала документа можно набить вначале переводы строки

Selection.TypeParagraph
Selection.TypeParagraph
Selection.TypeParagraph
Selection.TypeParagraph
Selection.TypeParagraph
'создание таблицы
ActiveDocument.Tables.Add _
Range:=Selection.Range, _
NumRows:=3, NumColumns:=3
...

02.10.2007, 12:47

Спасибо за ценные советы, теперь работает как надо.

02.10.2007, 12:55

Слушай, AndreP, а ты случайно не знаешь как программно добавить колонтитулы?

@AndreP · 02.10.2007, 13:09

Ответ на все подобные вопросы сразу (уже раз пять про это здесь писал, почему до самих начинающих VBA программистов это не до ходит):
выбрать Tools / Macro / Record New Macros...
произвести нужные действия, остановить запись, посмотреть, что создал Word в записанном макросе.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .	[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .	делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .

Meri

	Как из VB поменять ориентацию страницы в Word? 30.09.2007, 17:10. Показов 8771. Ответов 10 Метки нет (Все метки) Помогите! Как из VB поменять ориентацию страницы в Ворде?

@AndreP 0 / 0 / 1 Регистрация: 22.07.2007 Сообщений: 260
	30.09.2007, 17:17
	ActiveDocument.PageSetup.Orientation = wdOrientLandscape или ActiveDocument.PageSetup.Orientation = wdOrientPortrait 0

Meri
	01.10.2007, 17:34
	Спасибо за ответ. Но тут возникла ещё одна проблема, не могу поменять положение курсора из VB. Если не трудно подскажите пожалуйста.

@AndreP 0 / 0 / 1 Регистрация: 22.07.2007 Сообщений: 260
	01.10.2007, 19:19
	Подробнее, какого курсора и где ? 0

Meri
	02.10.2007, 10:33
	Курсор в документе Word.

@AndreP 0 / 0 / 1 Регистрация: 22.07.2007 Сообщений: 260
	02.10.2007, 10:56
	Примерно так Selection.MoveDown Unit:=wdLine, Count:=3 Selection.MoveRight Unit:=wdCharacter, Count:=12 0

Meri
	02.10.2007, 11:16
	Спасибо за подсказку. Все замечательно работает, но у меня в Ворде создается таблица которая ни как не хочет перемещаться в нужное положение, а создается всегда в начале документа, я думал это лечится положением курсора, куда поставишь, там и будет создаваться таблица , однако это почему-то не работает.HELP!!!

@AndreP 0 / 0 / 1 Регистрация: 22.07.2007 Сообщений: 260
	02.10.2007, 12:18
	Для того чтобы таблица опустилась ниже начала документа можно набить вначале переводы строки Selection.TypeParagraph Selection.TypeParagraph Selection.TypeParagraph Selection.TypeParagraph Selection.TypeParagraph 'создание таблицы ActiveDocument.Tables.Add _ Range:=Selection.Range, _ NumRows:=3, NumColumns:=3 ... 0

Meri
	02.10.2007, 12:47
	Спасибо за ценные советы, теперь работает как надо.

Meri
	02.10.2007, 12:55
	Слушай, AndreP, а ты случайно не знаешь как программно добавить колонтитулы?

@AndreP 0 / 0 / 1 Регистрация: 22.07.2007 Сообщений: 260
	02.10.2007, 13:09
	Ответ на все подобные вопросы сразу (уже раз пять про это здесь писал, почему до самих начинающих VBA программистов это не до ходит): выбрать Tools / Macro / Record New Macros... произвести нужные действия, остановить запись, посмотреть, что создал Word в записанном макросе. 0