[архив] Microsoft Word 2003 и более старые версии

[Vadikan]

ShaRP
Не знаю, что не так с батниками... Линк не открывается на работе - глюки сетки; дома гляну. Юзеры идут на сетевой диск и открывают документы Word. Да, конечно, ярлык можно сделать, и иконку подставить от Worda... Но тогда документ надо убирать из каталога, в который они ходят. А если кто-то прямо из Word'а туда полезет - они же ничего не увидят ;-)

APOSTOL
Я бы просто ярлыки (с разными иконками и названием) к документам привесил (в отдельной папке)... Иконки их только запутают, а названия я уже пробовал - не помогает ;-))
Напиши крупными желтыми буквами прямо поверх документа инструкцию, начинающуюся со слов на FUc... А вот это мне нравится. Надо подумать. Я уже думал картинку повесить в фоне, но тогда надо отключать печать картинок в настройках на всех машинах...

[Greyman]

Vadikan
Если макросы не подходят, то могу еще предложить отображение нужной надписи в режиме "исправления". На печать выводиться не будет, тока она будет выглядеть зачеркнутой, но если буквы сделать достаточно большими, то думаю все-же обратят на себя внимание. Плюс этого способа перед использованием скрытого текста (еще один вариант), что режим отображение/не_отображение исправлений храниться в самом документе, а режим отображения спец-символов - на машине пользователя...

[Leshiy]

Нашёл и удалил - всё :up:

[Vadikan]

Greyman
Если макросы не подходятДа в принципе подходят... А можно сделать макрос, который при открытии документа выдаст сообщение?
отображение нужной надписи в режиме "исправления". На печать выводиться не будет, тока она будет выглядеть зачеркнутойКак сделать незачеркнутой я понял сразу, а вот как не выводить на печать я не знаю. Я правда сейчас посмотрел 5 минут, и в четвертом часу утра ;-) Завтра покручу эту идею, спасибо.

[hasherfrog]

По поводу макроса на открытие:

Открывешь док, который надо "пометить".
Жмешь Alt+F11 (Идём в VB)
В своём документе->Microsoft Word Obkects->кликаешь по This Document
В окошке добавляешь:
Option Explicit
Private Sub Document_Open()
Dim Msg, Style, Title, Result
Msg = "BlaBlaBla"    ' Define message.
Style = vbOK ' Define buttons.
Title = "Warning!"    ' Define title.
Result = MsgBox(Msg, Style, Title)
End Sub
Сохраняешь доку.

Единственное, что как известно, при включенных High security макросы не выполняются, даже варнингов нет. Поэтому придётся снизить уровень до Medium.

[Greyman]

Vadikan
Как сделать незачеркнутой я понял сразу, а вот как не выводить на печать я не знаю.
Если у тебя "не зачеркнутый" в режиме исправления, то данная надпись как раз и будет выводиться на печать. Чтоб она не выводилась, сначало нужно принять проделанные исправления (или изначально писать их не в этом режиме), а потом в режиме исправления эту надпись удалить - в итоге имеем зачеркнутую надпись, которая на печать выводиться не будет (если не стоит галка в п. "выводить исправления на печать"). У этого способа есть правда очень большой минус - если документ надо не просто распечатать, а еще и вносить исправления, то юзвери наверняка будут очень пугаться, т.к. все будет в разных цветах и присутствовать как новы так и старый вариант текста. Если из можно научить работать нормально в режиме исправления, то данный топик, ИМХО, бы не возник. Так что думай...
Да в принципе подходят... А можно сделать макрос, который при открытии документа выдаст сообщение?
Ну hasherfrog уже написал, остальное уже детали. Меня же занимает проблема с их отключением при задействовании высогого уровня антивирусной защиты. Дык родилась у меня уже давно одна идейка, к-ую на практике так и не реализовал, т.к. мне это не нужно было. Суть в следующем:
1) Имеется готовый документ;
2) Имеется некий рисунок, на котором присутствует примерно следующий текст

Данный документ предназначен для... бла-бла-бла... и ... бла-бла-бла... (Можно выделить ярким цветом, а также жирными большими буквами).
Если вы хотите продолжить работу с документом - нажмите <комбинация клавиш 1>.
Если вы открыли данный документ по ошибке - нажмите <комбинация_клавишь_2>
Если при нажатии приведенных комбинаций ничего не происходит, убедитесь в правильности нажатия и попробуйте еще раз. В случае, если это не помогло, убедитесь, что у вас включен режим использования макросов в документе:
"Сервис/ Макрос/ Безопасность - должен стоять вариант СРЕДНЯЯ" (сам посмотри, что написать)

Данный рисунок должен располагаться поверх текста.
3) В документе имеем еще 3и макроса:
а) по <комбинация_клавишь_1> рисунок либо удаляеться (тогда он должен храниться в строго определенном общедоступном месте) либо сворачиваеться до минимального размера.
б) по <комбинация_клавишь_2> документ закрываеться без сохранения.
в) при сохранении докусента вышеописанный рисунок вновь разворачиваеться поверх текста документа либо (в случае его удаления первым макросом) вновь вставляеться поверх текста из определенного источника.

Как вариант, последний макрос можно было бы задействовать не при сохранении, а при закрытии документа. Однако остается возможность "потерять" вывеску в случае, если редактор не будет нормально закрыт (зависание компьютера, нештатная перезагрузка из-за скачка напряжения и т.д.).

[Vadikan]

Greyman
Вариант с рисунком и выбором действий юзера весьма интересен, но я боюсь, что это не для моих юзверей ;-) Если они не могут два (!) документа различить, то куда им еще выбор делать. Спасибо за отклик в любом случае. Я склоняюсь к варианту с макросом, а Security я им поправлю.

hasherfrog
Это именно то, что мне нужно. Спасибо! Только я никак не могу сообразить как сделать перенос строки. Иначе текст сообщения в одну строку не очень хорошо выглядит. Я поискал насчет carriage return, но как его туда впихнуть я не понимаю - не программирую совсем. Может подскажешь?

vbExclamation я нашел как сделать ;-))

[hasherfrog]

Vadikan
Msg = "BlaBlaBla" + Chr(13#) + "BlaBla"
Правда, это "Добрый старый бейсик". Может, ещё как можно :)

[Vadikan]

hasherfrog
Млин, я и так и сяк его вставлял, а вот плюс поставить не догадался ;-) Спасибо.

[polkadot]

Помогите пожалуйста, я тут ни чего понять не могу, у меня ноутбук ASUS A1000, вдруг стал вытварять не понятное не могу отправить на печать, и после выхода word на экран пишет на синем фоне "неустранимая ошибка ОЕ по адресу 0028-00000013. и ..." вообщем переустанавливала все и word и win. Не помогло  что делать не знаю вообще, говорят полетел какой-то драйвер?! Подскажите плизззззззз.

[vladikk]

При запуске WORD XP и заходе в сервис-параметры-общие нужно поменять единицы измерения (допустим, сантиметры на дюймы), но при смене цена деления на линейке все равно не меняется. Это безобразие происходит только при заходе под конкретным пользователем. Под другим логином все нормально. Чем это можно вылечить без удаления профиля?

[xkspy]

vladikk
стоят наверное права администратора на запрет изменения

[Faul]

Значица такая шняга!!!!!!
Открываю свой старый документ в любимом офисе 2003 года, а он меня спрашивает пароль на открытие, ладно думаю, и начинаю подбирать те пароли которые знаю, но ни один из МОИХ паролей не подходит!!!!!!!!
Дык вот подскажите прогу которой мона подобрать пароль на этот документ только чтобы не долго с ней маяца, а то товарисчь мне один посоветовал прогу Word Key, дык эта зараза сканила доку аж 3 часа, а потом она мне надоела и я её вырубил :-)))))))
ПОМОГИТЕ НАЙТИ ПРОГУ!!!!!!!!!

[Rudy]

Глюкнул офис, после переустановки нет панели Word а.

[ShaRP]

Rudy
1) Какая именно панель?
2) Какого именно Word'а?

[AvalonXP]

Rudy
Вы имеете ввиду, наверное, панель "Майкрософт Оффис" с ярлыками Ворд, Эксель, Повер Поинт и пр.? Если у вас Оффис 2000 или Оффис ХРпро то:
Пуск-все программы. Найти средства Майкр.Оффис. раскрыть, кликнуть на " Панель Майкр.Оффис". Она должна у вас перед запуском спросить "Запускать вместе с Виндовс". Если ответить " ДА", то эта панель запишется в каталог " Автозапуск". Если её не найдёте, то переустановите Оффис в режиме " Установка дополнительных компонентов" . Найдёте эту панель, если не ошибаюсь, в " Средствах оффис" или в " Дополнительные компоненты Оффис"

Исправлено: AvalonXP, 5:03 13-07-2004

[Rudy]

Отсутствует полностью все панели: управления, инструментов ...
поєтому не могу войти в меню "Настройка". Может есть горячие клавиши или какой файл держит настройку, т.к. при переустановке ситуация не меняется. В Excel  и Access все нормально. Office 2000

[hasherfrog]

Почитал я вот это (http://forum.oszone.net/topic.cgi?forum=13&topic=1620), прикинул кое-что и придумал страшную подлянку.

:asthanos: Как заставить пользователя выполнить вложенный макрос :asthanos:

В документ, который мы собираемся "защитить", вставляем (как и куда, описано выше) следующий макро-код:
Option Explicit

Private Sub Document_Open()
Selection.EndKey Unit:=wdStory
Selection.MoveLeft Unit:=wdWord, Count:=7, Extend:=wdExtend
Selection.Delete
Selection.HomeKey Unit:=wdStory
End Sub

Private Sub Document_Close()
Selection.EndKey Unit:=wdStory
Selection.Font.Color = wdColorWhite
Selection.TypeText Text:="Уточнение наличия запасов м.с.;"
Selection.Font.Color = wdColorAutomatic
Selection.HomeKey Unit:=wdStory
End Sub

Не забудьте включить макросы при создании этого документа на своей машине. При закрытии документ будет заминирован.

Теперь, если пользователь не разрешит макросы на входе, с этим документом ему поработать вряд ли удастся. Ворд будет виснуть после пары перемещений курсора. На вопрос, почему так странно ведёт себя ворд при открытии данного документа, надо сказать: "Пока макросы не разрешишь, работать не будет".

ПС. Защита есть, впрочем. Открытый (в режиме "макросы запрещены") документ надо аккуратно промотать до конца, выделить последнюю строку, нажать Del, сохранить.

[Greyman]

Rudy
На счет горячих клавиш так сразу не скажу. Но панели наверняка сможешь вернуть простым удалением текущего "normal.dot" из Шаблонов. Просто при этом и настройки все пропадут, но если не критично - то и пожалуйста...

[Greyman]

hasherfrog
Защита есть, впрочем.
Конечно, всего-то делов - отключить автоматическую проверку грамматики...