Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / MS Word zoom 100% при открытии. как ? / 12 сообщений из 12, страница 1 из 1
16.06.2011, 17:47
    #37311571
PolterGuest
PolterGuest
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MS Word zoom 100% при открытии. как ?
Как в 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, 18:04
    #37311613
PolterGuest
PolterGuest
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MS Word zoom 100% при открытии. как ?
но нужно, чтобы действие распространялось только на вновь открываемые документы, не трогая уже открытые
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.06.2011, 10:55
    #37312391
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MS Word zoom 100% при открытии. как ?
Надо отследить событие Application.DocumentOpen
В нем есть ссылка на открываемый доккумент
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.06.2011, 11:04
    #37312411
PolterGuest
PolterGuest
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MS Word zoom 100% при открытии. как ?
Shocker.Pro,

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

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

Сейчас проверять некогда, пробуй, пиши, если чо
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.06.2011, 11:40
    #37312517
Ципихович Эндрю
Ципихович Эндрю
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MS Word zoom 100% при открытии. как ?
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, 12:01
    #37312569
Djon Player
Djon Player
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MS Word zoom 100% при открытии. как ?
Ципихович Эндрю,

По автозапуску может помочь статейка 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:16
    #37312622
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MS Word zoom 100% при открытии. как ?
Ципихович Эндрю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:53
    #37312723
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MS Word zoom 100% при открытии. как ?
Про модуль я чуть лоханулся.
Вот такой код надо разместить в 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, 13:09
    #37312754
Ципихович Эндрю
Ципихович Эндрю
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MS Word zoom 100% при открытии. как ?
Shocker.Pro,

хотите верьте, хотете проверьте
ActiveWindow.ActivePane.View.Zoom.Percentage = 10
масенький Ворд для лилипутов, всё работает
на всякий случай
ХР, Ворд 2003, интел пентиум коре 2 дуо, ток переменный
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.06.2011, 13:14
    #37312768
Ципихович Эндрю
Ципихович Эндрю
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MS Word zoom 100% при открытии. как ?
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, 21:06
    #37313582
PolterGuest
PolterGuest
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MS Word zoom 100% при открытии. как ?
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
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / MS Word zoom 100% при открытии. как ? / 12 сообщений из 12, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 450ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2176761]:
 0ms
get settings:
 6ms
get forum list:
 16ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 142ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 46ms
get tp. blocked users:
 1ms
others: 224ms
total:  450ms
x
x
Закрыть


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