AXForum  
Вернуться   AXForum > Microsoft Dynamics AX > DAX: Программирование
DAX
Забыли пароль?
Зарегистрироваться Правила Справка Пользователи Сообщения за день Поиск

 
 
Опции темы Поиск в этой теме Опции просмотра
Старый 31.07.2008, 23:40   #6  
Gustav is offline
Gustav
Moderator
Аватар для Gustav
SAP
Лучший по профессии 2009
 
1,858 / 1152 (42) ++++++++
Регистрация: 24.01.2006
Адрес: Санкт-Петербург
Записей в блоге: 19
А вот еще хорошее решение, когда не нужно вычислять длину слова и можно комфортно заболдить "Country:" в произвольной фразе типа "Our SuperCountry: Russia":
Код:
 
Sub MSWord_VBA_Macro_3() 

Dim rng As Range

Set rng = ActiveDocument.Tables(1).Cell(2, 3).Range

rng.Find.Replacement.Font.Bold = True
rng.Find.Execute "Country:", True, True, False, False, False, True, wdFindStop, True, "Country:", wdReplaceOne

End Sub
Про длинный список параметров Execute можно почитать в справке Word, я же для наглядности перечислю здесь хотя бы их названия:
Код:
 
FindText          = "Country:" 
MatchCase         = True
MatchWholeWord    = True
MatchWildcards    = False 
MatchSoundsLike   = False 
MatchAllWordForms = False  
Forward           = True
Wrap              = 0 (константа wdFindStop)
Format            = True
ReplaceWith       = "Country:"
Replace           = 1 (константа wdReplaceOne)
 

Похожие темы
Тема Автор Раздел Ответов Посл. сообщение
Gustav: Unsorted, или Записки DAX-дилетанта - II Gustav DAX Blogs 39 20.05.2009 15:34
Kurt Hatlevik: Sneak preview of the WMS E&E Blog bot DAX Blogs 0 20.11.2008 01:10
msdynamicsax: VB script that test the com connector for Dynamics Ax 4.0 Blog bot DAX Blogs 0 25.08.2008 18:05
Получить текст из word через Com Кирилл DAX: Программирование 4 18.10.2006 11:01

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход

Рейтинг@Mail.ru
Часовой пояс GMT +3, время: 17:54.