如何使用 Delphi 7 从 MSWord 2003 读取/写入本地字符？

Question

我的表单上有 ListView，其中包含姓名和数字，我必须提供打印 MSWord 文档，并将这些数据填充到文档的表格中。英语字符一切正常，但当我尝试发送一些东欧或俄语字符时，它在文档中显示为“？”或者一些“垃圾”。我也无法将这些字符从文档读回应用程序。

我的问题是：

1. 如何将 "ЉЊĐŠŽČ" 等字符发送到 Word 文档？
2. 如何将这些字符从 MSWord 读回应用程序？

简而言之，代码如下所示：

word := CreateOleObject('Word.Application');
word.Visible := true;
doc := word.documents.Open(ExtractFilePath(Application.ExeName) + '\tpl.doc');

table := word.ActiveDocument.Tables.Item(1);
table.Cell(1,2).Range.Text := 'MY TEXT';

word.ActiveDocument.Close;
word.Quit;
word := UnAssigned;
doc := UnAssigned;
table := UnAssigned;

我可以更改字体的 name、size 和 color 属性，但不能使用 charset 做到这一点 属性。

有人吗？

---

安装的软件：

• Windows XP Professional
• Microsoft Word 2003
• Delphi 7 Enterprise Edition

Answer 1

问题源于您使用后期绑定通过 OLE 自动化调用 Word。

因此，在 Delphi 7 下，Range.Text 不被认为是期望 WideString (Unicode) 内容的方法，而是纯 ASCII 文本。

第一个解决方案可能是使用 Delphi 2009 及更高版本。新的 string 类型使这种 Unicode 分配变得透明。

在 Delphi 7 下，如何强制类型转换为 WideString：

 table.Cell(1,2).Range.Text := WideString('MY TEXT'); 

或使用临时变量，如下所示：

 var tmp: WideString; 

   tmp := 'ЉЊĐŠŽČ'
   table.Cell(1,2).Range.Text := tmp; 

另一种可能性是不使用后期绑定，而是直接声明 Office 的 OLE 接口，导入“Microsoft Word ??? 对象库”，来自 IDE 的“项目”菜单。

您将在导入的接口中拥有宽字符串类型，例如：

Range = interface(IDispatch)
  ['{0002095E-0000-0000-C000-000000000046}']
  function Get_Text: WideString; safecall;
  procedure Set_Text(const prop: WideString); safecall;
  (...)
  property Text: WideString read Get_Text write Set_Text;

因此您将不再遇到任何 Ansi 字符集问题。