Я использую следующий код, чтобы вставить таблицу с 2 ячейками в MS Word с помощью Delphi XE5. Весь шрифт для ячеек таблицы довольно прост. За исключением 1 слова. Мне нужно, чтобы это слово было смелым, а остальное - нет.Как сделать определенный текст полужирным шрифтом в MS Word
Пожалуйста, помогите мне настроить мой код, чтобы я мог сделать 1 слово полужирным.
wrdDoc.Tables.Add(wrdSelection.Range,3,2);
wrdDoc.tables.Item(3).Rows.Alignment := wdAlignRowLeft;
wrdDoc.Tables.Item(3).Columns.Item(1).SetWidth(36,wdAdjustNone);
wrdDoc.Tables.Item(3).Columns.Item(2).SetWidth(379,wdAdjustNone);
wrdDoc.tables.Item(3).Borders.Item(wdBorderLeft).LineStyle := wdLineStyleNone;
wrdDoc.tables.Item(3).Borders.Item(wdBorderRight).LineStyle := wdLineStyleNone;
wrdDoc.tables.Item(3).Borders.Item(wdBorderVertical).LineStyle := wdLineStyleNone;
wrdDoc.tables.Item(3).Borders.Item(wdBorderTop).LineStyle := wdLineStyleNone;
wrdDoc.tables.Item(3).Borders.Item(wdBorderBottom).LineStyle := wdLineStyleNone;
wrdDoc.tables.Item(3).Borders.Item(wdBorderHorizontal).LineStyle := wdLineStyleNone;
wrdDoc.Tables.Item(3).Cell(1,1).Range.InsertAfter('8.1');
wrdDoc.Tables.Item(3).Cell(1,1).Range.Paragraphs.Alignment := wdAlignParagraphleft;
wrdDoc.Tables.Item(3).Cell(1,1).Range.Font.Size := 12;
wrdDoc.Tables.Item(3).Cell(1,1).Range.Font.Bold := false;
wrdDoc.Tables.Item(3).Cell(1,1).Range.Font.underline := false;
wrdDoc.Tables.Item(3).Cell(1,2).Range.InsertAfter('this will not be bold text');
wrdDoc.Tables.Item(3).Cell(1,2).Range.InsertAfter('this will not be bold text');
wrdDoc.Tables.Item(3).Cell(1,2).Range.InsertAfter('THIS TEXT MUST BE BOLD');
wrdDoc.Tables.Item(3).Cell(1,2).Range.Paragraphs.Alignment := wdAlignParagraphJustify;
wrdDoc.Tables.Item(3).Cell(1,2).Range.Font.Size := 12;
wrdDoc.Tables.Item(3).Cell(1,2).Range.Font.Bold := false;
wrdDoc.Tables.Item(3).Cell(1,2).Range.Font.underline := false;
Как вы можете видеть в последней части кода, есть 3 вызова для InsertAfter()
, предложения я вставляя очень долго. и Delphi ограничивает меня до 255, поэтому я просто вызываю их более одного раза, и это так же хорошо, как называть его один раз.
Только последний звонок должен быть полужирным. Остальные должны просто придерживаться формата, определенного выше.
Любая помощь будет оценена по достоинству. Спасибо