ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / MS Word zoom 100% при открытии. как ?
12 сообщений из 12, страница 1 из 1
MS Word zoom 100% при открытии. как ?
    #37311571
PolterGuest
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PolterGuest
Гость
Как в MS WORD (2003) сделать так, чтобы любой документ открывался с масштабом 100% даже если документ сохранен в другом масштабе ?
Пробовал записать макрос и прилепить его в Normal.dot:
Код: plaintext
1.
2.
Private Sub Document_Open()
  ActiveWindow.ActivePane.View.Zoom.Percentage =  100 
End Sub
- при открытии документа получил ошибку Run-time error '91': Object variable or With block variable not set
...
Рейтинг: 0 / 0
16.06.2011, 17:47
| Ответить | Цитировать | Написать  
MS Word zoom 100% при открытии. как ?
    #37311613
PolterGuest
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PolterGuest
Гость
но нужно, чтобы действие распространялось только на вновь открываемые документы, не трогая уже открытые
...
Рейтинг: 0 / 0
16.06.2011, 18:04
| Ответить | Цитировать | Написать  
MS Word zoom 100% при открытии. как ?
    #37312391
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Надо отследить событие Application.DocumentOpen
В нем есть ссылка на открываемый доккумент
...
Рейтинг: 0 / 0
17.06.2011, 10:55
| Ответить | Цитировать | Написать  
MS Word zoom 100% при открытии. как ?
    #37312411
PolterGuest
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PolterGuest
Гость
Shocker.Pro,

Вы не могли бы привести кусочек кода, чтобы мне стало понятно где искать Application.DocumentOpen
...
Рейтинг: 0 / 0
17.06.2011, 11:04
| Ответить | Цитировать | Написать  
MS Word zoom 100% при открытии. как ?
    #37312434
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Надо добавить модуль в Normal.dot
Объявить в нем переменную с перехватом событий
Код: plaintext
Public WithEvents App As Application
Инициализировать ее при старте самого Normal.dot (в его собственном Document_Open)
Код: plaintext
Set App=Application

После чего в модуле у объекта App будет событие DocumentOpen, которое и надо эксплуатировать

Сейчас проверять некогда, пробуй, пиши, если чо
...
Рейтинг: 0 / 0
17.06.2011, 11:12
| Ответить | Цитировать | Написать  
MS Word zoom 100% при открытии. как ?
    #37312517
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
Shocker.Pro,
что толку если сказано:
Код: plaintext
ActiveWindow.ActivePane.View.Zoom.Percentage =  100
- при открытии документа получил ошибку Run-time error '91': Object variable or With block variable not set
сначала надо сделать, чтобы ошибки не было
...
Рейтинг: 0 / 0
17.06.2011, 11:40
| Ответить | Цитировать | Написать  
MS Word zoom 100% при открытии. как ?
    #37312569
Djon Player
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Djon Player
Участник
Ципихович Эндрю,

По автозапуску может помочь статейка http://bbs.vbstreets.ru/viewtopic.php?f=7&t=9856

Правда у меня не получается её применить. Почему-то делаю как в статье, вставляю код в Normal.dot, сохраняю Normal.dot.
А после перезапуска Word-а, чтобы проверить работоспособность, ничего не происходит. Когда захожу снова через VBA в Normal.dot, проверяю, а он пустой, как будто я туда ничего и не добавлял. Дважды уже пытался проделывать эту операцию и каждый раз после открытия Word-а, код из Normal.dot куда-то исчезает.
...
Рейтинг: 0 / 0
17.06.2011, 12:01
| Ответить | Цитировать | Написать  
MS Word zoom 100% при открытии. как ?
    #37312622
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Ципихович ЭндрюShocker.Pro,
что толку если сказано:
Код: plaintext
ActiveWindow.ActivePane.View.Zoom.Percentage =  100
- при открытии документа получил ошибку Run-time error '91': Object variable or With block variable not set
сначала надо сделать, чтобы ошибки не было
Не умничай
Человек пытается применить этот код для невидимого Normal.dot, вот и получает ошибку.

Сначала сделай то, что я предложил, а потом, если не получится, будешь выпендриваться.
...
Рейтинг: 0 / 0
17.06.2011, 12:16
| Ответить | Цитировать | Написать  
MS Word zoom 100% при открытии. как ?
    #37312723
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Про модуль я чуть лоханулся.
Вот такой код надо разместить в Normal.dot - ThisDocument
проверил, работает

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Public WithEvents App As Application

Private Sub Document_Open()

Set App = Application

End Sub
Private Sub App_DocumentOpen(ByVal Doc As Document)

Doc.ActiveWindow.ActivePane.View.Zoom.Percentage =  100 

End Sub
...
Рейтинг: 0 / 0
17.06.2011, 12:53
| Ответить | Цитировать | Написать  
MS Word zoom 100% при открытии. как ?
    #37312754
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
Shocker.Pro,

хотите верьте, хотете проверьте
ActiveWindow.ActivePane.View.Zoom.Percentage = 10
масенький Ворд для лилипутов, всё работает
на всякий случай
ХР, Ворд 2003, интел пентиум коре 2 дуо, ток переменный
...
Рейтинг: 0 / 0
17.06.2011, 13:09
| Ответить | Цитировать | Написать  
MS Word zoom 100% при открытии. как ?
    #37312768
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
Djon PlayerЦипихович Эндрю,

По автозапуску может помочь статейка http://bbs.vbstreets.ru/viewtopic.php?f=7&t=9856

Правда у меня не получается её применить. Почему-то делаю как в статье, вставляю код в Normal.dot, сохраняю Normal.dot.
А после перезапуска Word-а, чтобы проверить работоспособность, ничего не происходит. Когда захожу снова через VBA в Normal.dot, проверяю, а он пустой, как будто я туда ничего и не добавлял. Дважды уже пытался проделывать эту операцию и каждый раз после открытия Word-а, код из Normal.dot куда-то исчезает.
мистика какая-то, у меня работает
...
Рейтинг: 0 / 0
17.06.2011, 13:14
| Ответить | Цитировать | Написать  
MS Word zoom 100% при открытии. как ?
    #37313582
PolterGuest
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PolterGuest
Гость
Shocker.ProПро модуль я чуть лоханулся.
Вот такой код надо разместить в Normal.dot - ThisDocument
проверил, работает

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Public WithEvents App As Application

Private Sub Document_Open()

Set App = Application

End Sub
Private Sub App_DocumentOpen(ByVal Doc As Document)

Doc.ActiveWindow.ActivePane.View.Zoom.Percentage =  100 

End Sub
Спасибо! Это работает.
...
Рейтинг: 0 / 0
17.06.2011, 21:06
| Ответить | Цитировать | Написать  
12 сообщений из 12, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / MS Word zoom 100% при открытии. как ?
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&fpage=127&tid=2176761]:
 0ms
get settings:
 7ms
get forum list:
 15ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 57ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 57ms
get tp. blocked users:
 2ms
others: 223ms
total:  383ms
созд. / загр.: 383ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]