| Вопрос: автоматическая вставка пароля | Добавлено: 02.02.05 11:57 |
Автор вопроса:  LjubovK
|
|
Привет!
Подскажите, пож., как сделать. Или подкиньте идей!! Документ отправляется из Ворда по почте (Файл-Отправить-Сообщение(как вложение)). Как в зависимости от выбранного получателя вставить пароль на открытие документа? Есть несколько получателей и мне бы забить где-то эти пароли, чтобы отправитель сам ничего не вводил! |
| Ответы | Всего ответов: 4 |
|
Номер ответа: 1 Автор ответа:  Иван Администратор ICQ: 147688925 Вопросов: 24 Ответов: 708 |
Web-сайт: Профиль | | #1 | Добавлено: 03.02.05 07:35 |
|
Идея.
Открыть документ в ворде, сделав его невидимым, потом с помощью sendkeys отправить нужную комбинацию символов - выбрать нужный пункт меню и т.д. Будет сложно, но теоретически можно попробовать. |
||
|
Номер ответа: 2 Автор ответа: ИванАдминистратор ICQ: 147688925 Вопросов: 24 Ответов: 708 |
Web-сайт: Профиль | | #2 | Добавлено: 03.02.05 07:36 |
| Упсь... извини не посмотрел что ты на VBA хочешь это сделать... наверное не пойдет так как я написал. | ||
|
Номер ответа: 3 Автор ответа:  MihalыchICQ: 373-509-101 Вопросов: 56 Ответов: 330 |
Профиль | | #3 | Добавлено: 03.02.05 09:01 |
|
Наверное нужно открыть Word, средсвами VBA, потом выполнить это макрос:
With ActiveDocument .ReadOnlyRecommended = False .Password = "1" .WritePassword = "1" .RemovePersonalInformation = False .RemoveDateAndTime = False End With With Options .WarnBeforeSavingPrintingSendingMarkup = False .StoreRSIDOnSave = True .ShowMarkupOpenSave = True End With ChangeFileOpenDirectory "C:\" ActiveDocument.SaveAs FileName:="  oc1.doc", FileFormat:=wdFormatDocument, _
LockComments:=False, Password:="1", AddToRecentFiles:=True, WritePassword _ :="1", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _ SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _ False |
||
|
Номер ответа: 4 Автор ответа: MihalыchICQ: 373-509-101 Вопросов: 56 Ответов: 330 |
Профиль | | #4 | Добавлено: 03.02.05 09:03 |
|
Хотя наверное будет достаточно только вот этой части:
ChangeFileOpenDirectory "C:\" ActiveDocument.SaveAs FileName:=" oc1.doc", FileFormat:=wdFormatDocument, _
LockComments:=False, Password:="1", AddToRecentFiles:=True, WritePassword _ :="1", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _ SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _ False |
||
Страница: 1 |