макрос для сжатия файлов doc

[Вождь]

Сообщение от caute

а у меня, наоборот, normal.dot после этой операции вырос с 1264 kb до 2040 kb. Кому как везет :0)

Забыл уточнить, что при описанной мной операции макросы Word должны быть отключены. Иначе результат нулевой.

Сообщение от caute

При этом, в ходе дебага обнаружилось 4 штуки Compile errors (в макросах, которые отлично работают и написаны гигантами VB'шной мысли). Интересные пирожки...

Никогда не видел рабочую процедуру или функцию с ошибкой компиляции

[caute]

при описанной мной операции макросы Word должны быть отключены

жаль, я не знаю, как их отключить. Но, в общем, не суть важно.

Никогда не видел рабочую процедуру или функцию с ошибкой компиляции

присмотрелся, вы правы, я этими конкретно макросами не пользовался. Они из пакетов, которые я импортировал в нормал. Там упоминается Agent1.Characters.Load (видимо, у меня агент этот не установлен).

другой глючный макрос выглядит так:
Private Sub btnSelectColor_Click()
'*******************'
'Нажимаем кнопку выбора цвета для шрифта
'Должен быть добавлен на форму контрол CommonDialog
'Control "Microsoft Common Dialog Control 6.0"
'*******************'
colorFont = colorDlg.Color ' запоминаем цвет по умолчанию
colorDlg.ShowColor ' показываем диалог выбора цвета
btnSelectColor.ForeColor = colorDlg.Color 'расцвечиваем для визуального контроля ярлык
btnResetColorFont.Enabled = True
End Sub

на colorDlg пишет
Compile error: Variable not defined
Я этот макрос удалил, за ненадобностью