Шифрование документа Word

[fishh]

Help me!!!

Как определить номер строки в документе?
Как текст определенной строки записать в переменную?
Как заменить текст строки на другой текст?

Заранее всем большое спасибо.

[GSerg]

1. Определить, основываясь на чём?
2. s=document.goto(wdgotoline,wdgotoabsolute,i).text
3. document.goto(wdgotoline,wdgotoabsolute,i).text=s

[fishh]

Спасибо!!!

Для осуществления цикла мне нужно значение первой и последней строки. Переменная i я понимаю это как раз и есть номер строки. А как тогда выяснить номер последней строки?

Спасибо за помощь.

[GSerg]

Мне интересно, а зачем вообще знать строки и номер строк?
Разбитие на строки зависит хотя бы от ширины страницы. В тексте строк нет. Он сплошной.

[fishh]

Мне нужно зашифровать текст начиная, например, с 6 строки и до конца.
А в переменную s не получается поместить текст. Она всегда пустая.

[GSerg]

Сначала надо определиться с тем, что такое строка. Потому что я так понимаю, с этим определением проблема.

[fishh]

Хорошо, спасибо. Теперь я знаю в какую сторону капать.

[GSerg]

Не надо капать в мою сторону


Надо таки определиться, строка в смысле от абзаца до абзаца или строка в смысле от лева до права при текущих границах листа?..

[fishh]

Без обид, я не собиралась капать в вашу сторону.

Я имела в виду, строка от левой границы листа до правой.

[GSerg]

Я так и думал, собственно, поэтому и вопрос возникает - а зачем. Зачем разбивать на такие "строки".

[fishh]

А как тогда лучше? От абзаца до абзаца? Даже если так. То как весь абзац поместить в переменную?

[GSerg]

Нет. Вообще весь тект сразу. Не лучше?

[fishh]

Весь текст не желательно бы. Мне не нужно захватывать первых несколько "строк" на первом листе. Но если по другому никак... А вы не могли бы подсказать как необходимые действия произвести со всем текстом или с абзацем.
Спасибо

[GSerg]

Ыыыыы....

Весь текст сразу. Кроме первых нескольких строк. Почему не так? Почему разбивать на строки?

[fishh]

А про весь текст что вы можете сказать?

[GSerg]

Ничего, поскольку до сих пор понятия не имею, что на самом деле нужно в решении данной задачи.
Что нужно на самом деле, а не какие шаги для этого предполагалось предпринять изначально.

[fishh]

Мне нужно документ WORD (текст содержащийся в документе) зашифровать. Сам алгоритм шифрования я знаю. Я не знаю как сам текст поместить в переменную (по строчно, либо по абзацно, либо весь текст целиком) для выполнения определенных действий над ней.

[alibek]

В документе Word помимо текста есть еще и форматирование. Нужно ли сохранять его?

[fishh]

Хотелось бы.

[alibek]

В таком случае, не лучше ли будет шифровать сразу весь файл?

[fishh]

Может быть и лучше. А вы знаете как? Не могли бы вы подать идею, подсказать что-нибудь. Чтобы я могла опереться на что-нибудь. У меня проблема именно с текстом.

[alibek]

1. Загрузить файл в строку.
2. Зашифровать строку.
3. Выгрузить строку в файл.

Загружать/выгружать можно так (если файлы не сильно большие):

Код: Выделить всё

Dim buff As String, FN As Integer
FN = Freefile()
Open "C:\file1.doc" For Binary As #FN
buff = String$(LOF(FN), vbNullChar)
Get #FN, , buff
Close #FN
Call Crypt(buff)
FN = Freefile()
Open "C:\file1.cwd" For Binary As #FN
Put #FN, , buff
Close #FN


[fishh]

Большое Спасибо при Спасибо.
С помощью этого кода все получается у меня все работает. Но есть единственное НО. Этот код работает в VB, в VBA (Word) пишет что: the macros in this project are disabled...
Что делать? Как быть?

Спасибо.

[uhm]

Э-э, отключить "высокий" уровень безопасности на искомом компьютере? Сервис - Макрос - Безопасность - Средняя, перезапустить Word?

[fishh]

АААА!!!

Спасибо. Все работает. Огромное спасибо всем.

[fishh]

А можно заново поднять эту тему. Как я уже писала: в VB все работает замечательно. Загружает в оперативную память документ и т.д. А как быть если я открываю документ и именно с этим документом мне надо работать. Я же не могу загрузить его, зашифровать, а потом весь текст открытого документа заменить уже шифрованным. В общем, я предполагаю что такой алгоритм подходит для работы с документом на расстоянии.

Dim buff As String, FN As Integer
FN = Freefile()
Open "C:\file1.doc" For Binary As #FN
buff = String$(LOF(FN), vbNullChar)
Get #FN, , buff
Close #FN
Call Crypt(buff)
FN = Freefile()
Open "C:\file1.cwd" For Binary As #FN
Put #FN, , buff
Close #FN

Помогите пожалуйста.
Коротко объясню что надо. При открытии документа происходит дешифрование, а при закрытии шифрование. Так вот, чтобы обрабатывать текст, мне нужно поместить его в переменную.
Заранее большое спасибо. Извините за беспокойствие.

[alibek]

Если при открытии документа выполняется его шифрование, то какой смысл в шифровании?

[fishh]

При открытии документа будет выполнятся проверка. Если этот документ можно будет просмотреть то будет выполнятся расшифровка текста. Если нельзя - отобразится зашифрованный текст.

[alibek]

В таком случае, что мешает открыть документ с запретом выполнения макросов и просмотреть код проверки/дешифрации?
Процедуру шифрования/дешифрования лучше делать внешней.

[fishh]

А по подробнее можно?
И вообще можно ли запретить в Access просматривать документы хранящиеся в поле Ole. В справке читала вроде бы нельзя.