微軟Word自動更正項目自動化與msaccess存儲數據的delphi

Question

幫助！我正在嘗試自動更正存儲在Access數據庫中的富文本格式的自動更正條目。 它工作正常，如果我使用autocorrect.entries.Add但autocorrect.entries.AddRichText失敗。看看下面的代碼。我會感謝您的幫助！

procedure TfrmdxForm.acBtnClick(Sender: TObject); 
var 
DXRANGE, DXWORD: oleVariant; 
DXSTR: STRING; 

begin 
DXWORD := CreateOleObject('Word.Application'); 
DXWORD.Visible := FALSE; 
MyADODataSet.First; 
while NOT MyADODataSet.Eof do 
begin 
DXRANGE:= MyADODataSet.FieldByName('DX').Text; 
// here is where it fails … I don't know how to change this to a range 
DXSTR := MyADODataSet.FieldByName('DXCODE').Text; 
DXWORD.Autocorrect.Entries.AddRichText(DXSTR, DXRANGE); 
// here it works if I use Add but it fails with AddRichText 
MyADODataSet.Next; 
end; 
DXWORD.QUIT; 

end; 

Answer 1

您是否仔細閱讀了有關Add和AddRichText的MSDN文檔？

添加有兩個參數

1. 名稱 - autoreplacement文本

AddRichText也具有兩個參數

1. 名稱 - - 這些入口
2. 值的名稱相同以上
3. 範圍 - 選擇R使用所需要的替換文字在文檔內部插入文字

因此，您必須在文檔中放置所需的文本，然後選擇它（或嘗試將其置於一個範圍內，例如：段落），之後可以使用AddRichText方法