Поиск жирного шрифта в Word
Если кто-нибудь знает, помогите. Мне нужно в документе Word найти строки, выделенные жирным шрифтом. Я попробовал это сделать так:
e:=WD.Range.End_;//количество символов в документе
r:=WD.Range(a,b);//переменная типа range
while (r.Font.Underline=0)and(b<e) do
begin
inc(a);inc(b);
r:=WD.Range(a,b);
Application.ProcessMessages;
end;
Всё вроде работает, так как после выхода из цикла значение переменной и будет являтся номером первого символа слова выделенного жирным шрифтом, но работает очень медленно, подскажите пожалуйста как можно сделать так чтобы поиск был гораздо быстрее. Заранее благодарен.
e:=WD.Range.End_;//количество символов в документе
r:=WD.Range(a,b);//переменная типа range
while (r.Font.Underline=0)and(b<e) do
begin
inc(a);inc(b);
r:=WD.Range(a,b);
Application.ProcessMessages;
end;
Всё вроде работает, так как после выхода из цикла значение переменной и будет являтся номером первого символа слова выделенного жирным шрифтом, но работает очень медленно, подскажите пожалуйста как можно сделать так чтобы поиск был гораздо быстрее. Заранее благодарен.
Цитата:
Originally posted by Bratskiy
Если кто-нибудь знает, помогите. Мне нужно в документе Word найти строки, выделенные жирным шрифтом. Я попробовал это сделать так:
e:=WD.Range.End_;//количество символов в документе
r:=WD.Range(a,b);//переменная типа range
while (r.Font.Underline=0)and(b<e) do
begin
inc(a);inc(b);
r:=WD.Range(a,b);
Application.ProcessMessages;
end;
Всё вроде работает, так как после выхода из цикла значение переменной и будет являтся номером первого символа слова выделенного жирным шрифтом, но работает очень медленно, подскажите пожалуйста как можно сделать так чтобы поиск был гораздо быстрее. Заранее благодарен.
Если кто-нибудь знает, помогите. Мне нужно в документе Word найти строки, выделенные жирным шрифтом. Я попробовал это сделать так:
e:=WD.Range.End_;//количество символов в документе
r:=WD.Range(a,b);//переменная типа range
while (r.Font.Underline=0)and(b<e) do
begin
inc(a);inc(b);
r:=WD.Range(a,b);
Application.ProcessMessages;
end;
Всё вроде работает, так как после выхода из цикла значение переменной и будет являтся номером первого символа слова выделенного жирным шрифтом, но работает очень медленно, подскажите пожалуйста как можно сделать так чтобы поиск был гораздо быстрее. Заранее благодарен.
Попробуй так:
WD.Selection.Find.ClearFormatting;
WD.Selection.Find.Font.Bold := True;
WD.Selection.Find.Execute;