ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / снять защиту в Ворде
11 сообщений из 11, страница 1 из 1
снять защиту в Ворде
    #33759671
Фотография Stepler
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Stepler
Участник
Не знаю как енто делается в Ворде - снятие защиты ( не защита на открытие файла )...а защита на выделение, копирование, добавление и т.п.
Понимаю, что надо как-то кинуть свой код-пароль при открытии Вордовского файла, но что-то не выходит.
Подскажите, плз. Или как мона скопировать весь текст в другое место для правки.
Спасибо
Stepler (щёлк-щёлк!!)

Код: plaintext
 P.S.Присутствовали ли Вы, когда Вас фотографировали?
...
Рейтинг: 0 / 0
30.05.2006, 09:57
| Ответить | Цитировать | Написать  
снять защиту в Ворде
    #33759704
Фотография barrabas
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
barrabas
Участник
А через Word.Application не пробовал подключится?
_____________________________________
А я хочу Брежнева, чтобы все было по прежнему... "Стволы"
...
Рейтинг: 0 / 0
30.05.2006, 10:10
| Ответить | Цитировать | Написать  
снять защиту в Ворде
    #33759727
Ashton
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ashton
Гость
Код: plaintext
1.
2.
    If Not ActiveDocument.ProtectionType = wdNoProtection Then
        ActiveDocument.Unprotect Password:="123"
    End If
...
Рейтинг: 0 / 0
30.05.2006, 10:18
| Ответить | Цитировать | Написать  
снять защиту в Ворде
    #33759728
Фотография Stepler
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Stepler
Участник
Поподробнее, плз, я не понял...
Stepler (щёлк-щёлк!!)

Код: plaintext
 P.S.Присутствовали ли Вы, когда Вас фотографировали?
...
Рейтинг: 0 / 0
30.05.2006, 10:18
| Ответить | Цитировать | Написать  
снять защиту в Ворде
    #33759745
Фотография Stepler
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Stepler
Участник
Ashton
Код: plaintext
1.
2.
    If Not ActiveDocument.ProtectionType = wdNoProtection Then
        ActiveDocument.Unprotect Password:="123"
    End If


в том -то и дело, что пароль НЕ известен
...
Рейтинг: 0 / 0
30.05.2006, 10:23
| Ответить | Цитировать | Написать  
снять защиту в Ворде
    #33759887
Фотография barrabas
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
barrabas
Участник
SteplerПоподробнее, плз, я не понял...
Stepler (щёлк-щёлк!!)

Код: plaintext
 P.S.Присутствовали ли Вы, когда Вас фотографировали?


Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Sub COPYDOC()
    Dim wordApp As Word.Application
    Dim st
    Set wordApp = CreateObject("Word.Application")
    wordApp.Documents.Open "C:\Test.doc"
    For i =  1  To wordApp.ActiveDocument.Content.Paragraphs.Count
        st = wordApp.ActiveDocument.Content.Paragraphs(i)
        Selection.TypeText Text:=st
    Next i
    Set wordApp = Nothing
End Sub

Я не специалист по ворду возможно есть более красивые методы, но проверь это. открой новый документ, нажми альт ф11 вставь этот макрос и запусти из окна отладки call COPYDOC (хотя наверное это ты и сам знаешь) и напиши получилось или нет интересно же.
...
Рейтинг: 0 / 0
30.05.2006, 11:08
| Ответить | Цитировать | Написать  
снять защиту в Ворде
    #33760992
Фотография Stepler
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Stepler
Участник
Selection.TypeText Text:=st
говорит, чё метод недоступен, т.к. объект ссылается на защищенную область док-а
Stepler (щёлк-щёлк!!)

Код: plaintext
 P.S.Присутствовали ли Вы, когда Вас фотографировали?
...
Рейтинг: 0 / 0
30.05.2006, 15:30
| Ответить | Цитировать | Написать  
снять защиту в Ворде
    #33761221
Andres 1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Andres 1
Участник
SteplerНе знаю как енто делается в Ворде - снятие защиты ( не защита на открытие файла )...а защита на выделение, копирование, добавление и т.п.

А команда Save As доступна? Сохранить как rtf и открыть этот rtf-файл получится?
...
Рейтинг: 0 / 0
30.05.2006, 16:44
| Ответить | Цитировать | Написать  
снять защиту в Ворде
    #33761268
Фотография Stepler
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Stepler
Участник
Andres 1 SteplerНе знаю как енто делается в Ворде - снятие защиты ( не защита на открытие файла )...а защита на выделение, копирование, добавление и т.п.

А команда Save As доступна? Сохранить как rtf и открыть этот rtf-файл получится?
При попытке открыть чем-нибудь - дает одни коды типа:квадраты, крестики-нолики, а если сохранить как... - то с тем же успехом...
Но мне удалось его превратить в .txt (правда как , сам не знаю = до ентого попытки открыть с помощью блокнота не проходили.
Тем не менее задача снять защиту программным способом меня привлекает - буду искать решения задачи не вручную, а программно.
Всем спасибо за участие...
...
Рейтинг: 0 / 0
30.05.2006, 16:59
| Ответить | Цитировать | Написать  
снять защиту в Ворде
    #34499515
AndroiD666
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndroiD666
Гость
barrabas SteplerПоподробнее, плз, я не понял...
Stepler (щёлк-щёлк!!)

Код: plaintext
 P.S.Присутствовали ли Вы, когда Вас фотографировали?


Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Sub COPYDOC()
    Dim wordApp As Word.Application
    Dim st
    Set wordApp = CreateObject("Word.Application")
    wordApp.Documents.Open "C:\Test.doc"
    For i =  1  To wordApp.ActiveDocument.Content.Paragraphs.Count
        st = wordApp.ActiveDocument.Content.Paragraphs(i)
        Selection.TypeText Text:=st
    Next i
    Set wordApp = Nothing
End Sub

Я не специалист по ворду возможно есть более красивые методы, но проверь это. открой новый документ, нажми альт ф11 вставь этот макрос и запусти из окна отладки call COPYDOC (хотя наверное это ты и сам знаешь) и напиши получилось или нет интересно же.


А у меня получилось! Документ был защищен, и нельзя было скопировать никакой текст и формулы, картинки и графики! А так сразу получилось и можно пересохранить в любой формат, правда тока текст а картинки и формулы не отображаются (ну или коряво)!
...
Рейтинг: 0 / 0
02.05.2007, 13:42
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
снять защиту в Ворде
    #35488034
Zazzall
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Zazzall
Гость
Я конвертировал сначала в PDF, а потом обратно в Word. Нормально получилось. Хоть и не так красиво как с VB =)
...
Рейтинг: 0 / 0
14.08.2008, 16:17
| Ответить | Цитировать | Написать  
11 сообщений из 11, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / снять защиту в Ворде
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/search_topic.php?author=derekpn&author_mode=last_posts&do_search=1]:
 0ms
get settings:
 8ms
get forum list:
 10ms
get settings:
 6ms
get forum list:
 14ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 66ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 50ms
get tp. blocked users:
 1ms
others: 653ms
total:  823ms
созд. / загр.: 823ms
x
x
Закрыть


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