Как изменить цвет выделения на желтый для текста, который будет набираться в Word 2007?

В макросе VBA в MS Word 2007 я хочу переключить цвет выделения текста на желтый для текста, который будет напечатан следующим в позиции курсора.

Если я хочу изменить цвет текущего выделенного текста, я могу сделать это с помощью Selection.Range.HighlightColorIndex = wdYellow

Но это работает, только если текст уже существует и выделен. Могу ли я также установить желтый цвет выделения для текста, который будет вставлен в позицию курсора?

(Например, если я нажму кнопку «полужирный шрифт», весь будущий текст будет полужирным, но, похоже, это не работает с функцией выделения, или есть способ сделать это?)


formatting vba ms-word office-2007
person MostlyHarmless    schedule 01.10.2012    source источник

Ответы (1)


arrow_upward
2
arrow_downward

весь будущий текст будет жирным

Нет, не будет. Щелкнув bold, вы помечаете текущую точку в тексте полужирным шрифтом, и если вы продолжите ввод с этой точки, текст будет полужирным, потому что он набирается жирным шрифтом, а не потому, что кнопка нажата. Если вы нажмете bold, переместите курсор в другое место и введите текст, он не будет полужирным.

Правильный способ - вставить текст и применить форматирование к его диапазону.

Dim r As Range
Set r = Selection.Range

r.Collapse wdCollapseStart
r.InsertAfter "Text to insert"
r.HighlightColorIndex = wdYellow
person GSerg    schedule 01.10.2012