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

[root-alex]

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

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]

http://lmgtfy.com/?q=vba+crc32