Как искать с условием "НЕ"
Кто знает, как написать в макросе Ворда инструкцию - [COLOR="Navy"]найти шрифт заданного стиля, с размером шрифта "НЕ" 12 пт[/COLOR]?
Я написал так:
[COLOR="Navy"]Selection.Find.Style = ActiveDocument.Styles("Подзаголовок")
With Selection.Find
.Text = ""
.Font.Size = Not (12)
.Forward = True
.Wrap = wdFindContinue
.Format = True
End With[/COLOR]
Но VBA ругается, что одно из значений выходит за допустимые пределы. Явно имеет в виду оператор NOT ;-)
Я написал так:
[COLOR="Navy"]Selection.Find.Style = ActiveDocument.Styles("Подзаголовок")
With Selection.Find
.Text = ""
.Font.Size = Not (12)
.Forward = True
.Wrap = wdFindContinue
.Format = True
End With[/COLOR]
Но VBA ругается, что одно из значений выходит за допустимые пределы. Явно имеет в виду оператор NOT ;-)
Думаю, что тебе самому придётся проверять по очереди все найденные элементы на размер шрифта.
В строку с указанием шрифта вложен не тот смысл.
not 12= какое то там большое (не помню да и лень считать) число
А решение - как сказал sark
not 12= какое то там большое (не помню да и лень считать) число
А решение - как сказал sark
Так, так. Одна проблема тянет за собой другую, ишшо более упругую.
А все началось из-за того, что Ворд не смог найти шрифт Times New Roman, величиной 14 пт. А стиль называется "Подзаголовок". Но в тексте есть и обычный шрифт велчиной в 12 пт и в нем тоже сидит стиль "Подзаголовок", но уже с пометкой "+... что там". Т.е. если искать по стилю, то будет находиться и этот ненужный с размером в 12 пт. А нужно только в 14 пт.
Может кто глянет (если дойдут руки :o ), что за бредовое поведение программы Microsoft Word :cool: ? (или что-то скрыто в свойствах текста?) :confused:
А все началось из-за того, что Ворд не смог найти шрифт Times New Roman, величиной 14 пт. А стиль называется "Подзаголовок". Но в тексте есть и обычный шрифт велчиной в 12 пт и в нем тоже сидит стиль "Подзаголовок", но уже с пометкой "+... что там". Т.е. если искать по стилю, то будет находиться и этот ненужный с размером в 12 пт. А нужно только в 14 пт.
Может кто глянет (если дойдут руки :o ), что за бредовое поведение программы Microsoft Word :cool: ? (или что-то скрыто в свойствах текста?) :confused: