delphi - Delphi OpenOffice 自动化计算中心单元格文本

Question

您好，有人可以帮我解决以下问题：我想通过 Delphi 和 OOoTools 工具包将文本置于 scalc 开放式办公室电子表格单元格中。

以下代码不起作用：

sRange := '$A$3:$A$3';
ooParams := CreateUnoStruct('com.sun.star.beans.PropertyValue', 1);
ooParams[0].Name  := 'ToPoint';
ooParams[0].Value := sRange;
execDispatch('.uno:GoToCell', ooParams);

ooParams := CreateUnoStruct('com.sun.star.beans.PropertyValue', 1);
ooParams[0].Name  := 'HorizontalJustification';
ooParams[0].Value := 'com.sun.star.table.CellHoriJustify.CENTER';
execDispatch('.uno:HorizontalJustification', ooParams);

有人知道为什么不吗？感谢广告

Answer 1

似乎 Horizo​​ntalJustification 需要一个枚举值，但你给出了一个字符串。您必须查找的值com.sun.star.table.CellHoriJustify.CENTER并用它填充您的值ooParams[0].Value。

这是一种查找枚举值的方法：http ://www.oooforum.org/forum/viewtopic.phtml?t=16383

在你的情况下com.sun.star.table.CellHoriJustify.CENTER等于 2，所以你需要：

ooParams[0].Name  := 'HorizontalJustification';
ooParams[0].Value := 2;