Расчет контрольной суммы CRC32

Программирование на Visual Basic for Applications
root-alex
Начинающий
Начинающий
 
Сообщения: 1
Зарегистрирован: 30.03.2015 (Пн) 11:26

Расчет контрольной суммы CRC32

Сообщение root-alex » 30.03.2015 (Пн) 11:36

Добрый день!
Нужна помощь:
Общий смысл такой
проходишь посимвольно по всему содержимому документа, формируешь строку или сразу вычисляешь контрольную сумму, потом где то вставляешь в документ тегированный текст (легко идентифицируемый и отделяемый) с суммой, в функции расчета контрольной суммы должна быть проверка и исключение тегированного текста ( то есть теги и их содержимое не учитывать в расчете контрольной суммы)

Sub Macro1()
Dim MyCRC As String

ActiveDocument.Select
'вот тут в переменной сохраняется весь текст документа для последующих манипуляций, если будет необходимость
wordsArray = Selection.Text


MyCRC = "Вот тут должна быть контрольная сумма документа! Вполне можно получить по функции"
'ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader 'чего делает - не понял, но может потребуется
ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary).Range.Text = MyCRC
'ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument 'чего делает - не понял, но может потребуется

End Sub


Теперь осталось найти/создать функцию по расчету Хеша. А потом найти как подвесить макрос на события файла – сохранение (перед сохранением) и печать (перед печатью)

iGrok
Артефакт VBStreets
Артефакт VBStreets
 
Сообщения: 4248
Зарегистрирован: 10.05.2007 (Чт) 16:11
Откуда: Сетевое сознание

Re: Расчет контрольной суммы CRC32

Сообщение iGrok » 31.03.2015 (Вт) 2:40

label:
cli
jmp label


Вернуться в VBA

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1

    TopList