Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / снять защиту в Ворде / 11 сообщений из 11, страница 1 из 1
30.05.2006, 09:57
    #33759671
Stepler
Stepler
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
снять защиту в Ворде
Не знаю как енто делается в Ворде - снятие защиты ( не защита на открытие файла )...а защита на выделение, копирование, добавление и т.п.
Понимаю, что надо как-то кинуть свой код-пароль при открытии Вордовского файла, но что-то не выходит.
Подскажите, плз. Или как мона скопировать весь текст в другое место для правки.
Спасибо
Stepler (щёлк-щёлк!!)

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


в том -то и дело, что пароль НЕ известен
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.05.2006, 11:08
    #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, 15:30
    #33760992
Stepler
Stepler
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
снять защиту в Ворде
Selection.TypeText Text:=st
говорит, чё метод недоступен, т.к. объект ссылается на защищенную область док-а
Stepler (щёлк-щёлк!!)

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

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

А команда Save As доступна? Сохранить как rtf и открыть этот rtf-файл получится?
При попытке открыть чем-нибудь - дает одни коды типа:квадраты, крестики-нолики, а если сохранить как... - то с тем же успехом...
Но мне удалось его превратить в .txt (правда как , сам не знаю = до ентого попытки открыть с помощью блокнота не проходили.
Тем не менее задача снять защиту программным способом меня привлекает - буду искать решения задачи не вручную, а программно.
Всем спасибо за участие...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.05.2007, 13:42
    #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
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
14.08.2008, 16:17
    #35488034
Zazzall
Zazzall
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
снять защиту в Ворде
Я конвертировал сначала в PDF, а потом обратно в Word. Нормально получилось. Хоть и не так красиво как с VB =)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / снять защиту в Ворде / 11 сообщений из 11, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 394ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2161965]:
 0ms
get settings:
 10ms
get forum list:
 21ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 70ms
get topic data:
 13ms
get forum data:
 3ms
get page messages:
 61ms
get tp. blocked users:
 2ms
others: 206ms
total:  394ms
x
x
Закрыть


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