Цитата:
|
Сообщение от tinky
нет я end не учитывал. Вся причина в этой строчке
Код:
If WordDocument1.Range.Font.Bold=1 then Label2.Caption:="Жирный" else Label2.Caption:="нормальный" |
Еще бы не в ней была. Вместо нее пропишите:
Код:
if MsWord.Selection.Font.Bold then
Label2.Caption:= 'жирный'
else
Label2.Caption:= 'нормальный';