如何在MS Word中使某些文本變爲粗體

Question

我正在使用以下代碼在MS Word中使用Delphi XE5插入一個包含2個單元格的表。表格單元格的所有字體都非常簡單。除1字外。我需要這個詞大膽，而其餘的不是。

請幫我調整我的代碼，這樣我就可以讓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; 

正如你可以在代碼的最後一部分看到，有一個InsertAfter() 3個電話，我插入句子很長。而德爾福限制我到255，所以我只是多次打電話給他們，這和一次打電話一樣好。

只有最後一次調用，必須是粗體。其餘的應該保持上面定義的格式。

任何和所有幫助，將不勝感激。謝謝

Answer 1

我確實設法找到了一種方法。這有點麻煩，但做這項工作。

Procedure MakeBold(SearchStr:String); 
Begin 
WrdApp.Selection.Find.ClearFormatting; 
    WrdApp.Selection.Find.Text := SearchStr; 
    WrdApp.Selection.Find.Forward := True; 
    WrdApp.Selection.Find.Wrap := wdFindContinue; 
    WrdApp.Selection.Find.Format := False; 
    WrdApp.Selection.Find.MatchCase := true; 
    WrdApp.Selection.Find.MatchWholeWord := wrfMatchCase in Flags; 
    WrdApp.Selection.Find.MatchWildcards :=wrfMatchWildcards in Flags; 
    WrdApp.Selection.Find.MatchSoundsLike := False; 
    WrdApp.Selection.Find.MatchAllWordForms := False; 
    { Perform the search } 
    WrdApp.Selection.Find.Execute(); 
    WrdApp.Selection.Font.Bold:=True; 
End; 

然後我只是打電話MakeBold('THIS TEXT MUST BE BOLD');它解決了這個問題。

任何其他可能的答案仍然是受歡迎的，因爲這種方法可能會使其他不相關的文本也大膽。

Answer 2

你工作太辛苦了。 :-)您需要更熟悉Word範圍（以及使用臨時變量）。使用Word2010中單元在Delphi西雅圖10進行測試，使用Word 2013年

var 
    WordTbl: Table; 

// Grab a local reference to the table for ease of use 
Tbl := wrdDoc.Selection.Tables.Item(3); 
Tbl.Cell(1, 2).Range.Text := 'not bold'; 

// Make sure the cell is the current selection 
Tbl.Cell(1, 2).Select; 

// Move the selection to the end of the text we wrote before 
wrdDoc.Selection.EndKey(wdLine, wdMove); 

// Add the next section of the text and move to the end, so we 
// know for sure where Word thinks we are now. Notice the spaces 
// at both ends - for some reason they make a difference 
wrdDoc.Selection.Range.Text := ' BOLD TEXT '; 
wrdDoc.Selection.EndKey(wdLine, wdMove); 

// Move back two words to select the text we just added and bold 
wrdDoc.Selection.MoveLeft(wdWord, 2, wdExtend); 
wrdDoc.Selection.Font.Bold := 1; 

// End of the line again, and turn bold off, then more text 
wrdDoc.Selection.EndKey(wdLine, wdMove); 
wrdDoc.Selection.Font.Bold := 0; 
wrdDoc.Selection.Range.Text := 'not bold again'; 

Answer 3

該解決方案在所有的ActiveDocument匹配是大膽

function TfmMain.MakeBold(SearchStr: String; App: OLEVariant {Word application var}): Integer; 
var 
    Find: OLEVariant; 
begin 
    Find := App.Selection.Find; 
    Find.ClearFormatting; 
    Find.Forward := true; 
    Find.Wrap := wdFindStop; 
    Find.Format := false; 
    Find.MatchCase := false; 
    Find.MatchWholeWord := true; 
    Find.MatchWildcards := false; 
    Find.MatchSoundsLike := false; 
    Find.MatchAllWordForms := false; 

    Find.Text := SearchStr; 
    while Find.Execute() do 
    begin 
    App.Selection.Font.Bold := true; 
    App.Selection.Collapse(wdCollapseEnd); 
    end; 
    Find := UnAssigned; 
end;