0 / 0 / 0
Регистрация: 27.10.2014
Сообщений: 17
1

Макрос для всех открытых документов ms word

26.04.2016, 15:22. Показов 2279. Ответов 2
Метки нет (Все метки)

Добрый день.

Необходимо написать макрос, который будет устанавливать переплет во всех открытых документах.
Собственно сам макрос написан:
Visual Basic
1
2
3
4
5
6
Dim newdoc As Document
Set newdoc=ActiveDocument
newdoc.PageSetup.RightMargin = 35
newdoc.PageSetup.BottomMargin = 79
newdoc.PageSetup.Gutter = 72
newdoc.PageSetup.GutterPos = wdGutterPosLeft
Что нужно добавить, чтобы при использовании этого макроса переплет устанавливался не в активном док-те, а во всех открытых? Спасибо.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
26.04.2016, 15:22
Ответы с готовыми решениями:

Как получить список всех открытых документов Word?
как получить список всех открытых документов Word? пишу так: Dim dc As Document ...

Макрос для всех документов
Здравствуйте! Поскажите как сохранить макрос для всех документов, что бы не писать в каждой...

Получить список всех открытых документов Word и закрыть нужные
Здравствуйте! Долго бьюсь над проблемой, перерыл весь гугл, в том числе и этот форум, но толкового...

Панель ярлыков открытых Word-овских документов
Доброе время суток! У меня в Office 2010 в Wordе в "старой установке" ниже ленты инструментов была...

2
Заблокирован
26.04.2016, 15:31 2
Лучший ответ Сообщение было отмечено lsdhero как решение

Решение

Visual Basic
1
2
3
4
5
6
7
Dim newdoc As Document
For Each newdoc In Documents
  newdoc.PageSetup.RightMargin = 35
  newdoc.PageSetup.BottomMargin = 79
  newdoc.PageSetup.Gutter = 72
  newdoc.PageSetup.GutterPos = wdGutterPosLeft
Next
1
0 / 0 / 0
Регистрация: 27.10.2014
Сообщений: 17
26.04.2016, 17:27  [ТС] 3
Цитата Сообщение от Shersh Посмотреть сообщение
Visual Basic
1
2
3
4
5
6
7
Dim newdoc As Document
For Each newdoc In Documents
  newdoc.PageSetup.RightMargin = 35
  newdoc.PageSetup.BottomMargin = 79
  newdoc.PageSetup.Gutter = 72
  newdoc.PageSetup.GutterPos = wdGutterPosLeft
Next
Все работает. Огромное спасибо.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
26.04.2016, 17:27

Создать макрос для взятия данных с word документов в excel
Нужна помощь в написании макроса. Макрос должен брать данные с word документов в excel. Добрые люди...

Программное сохранение всех открытых в системе документов
Нужно перед снятием процесса string name = "WINWORD"; ...

Скопировать из всех открытых документов весь текст в Новый Документ
как скопировать из Всех открытых в данный момент документов весь текст в Новый Документ, но при...

VBA_Excel - как добавить новую функцию (свой макрос) для всех документов
VBA_Excel - как добавить новую функцию (свой макрос) для всех документов т е я хочу расширить...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.