请问如何通过vba把数据和位置导入到word的文本框.可否给个最简单的demo

Question

请问如何通过vba把数据和位置导入到word文本框.可否给个最简单的demo//word的文本框为什么在delphi里提示msoTextOrientationDownward变量没定义呢?是否有其他单元没有引用?
procedure TForm1.BitBtn1Click(Sender: TObject);
var
  iNum:integer;
begin
for iNum := 1 to 15 do
begin
    WordDoc.Shapes.AddTextbox(msoTextOrientationDownward,Left, Top, Width, Height,index).TextFrame.TextRange.Text := IntToStr(iNum);
    Top := Top + Height;
end
end;

Answer 1

MsoTextOrientation 可以是下列 MsoTextOrientation 常量之一： 
msoTextOrientationDownward 
msoTextOrientationHorizontal 
msoTextOrientationHorizontalRotatedFarEast 
msoTextOrientationMixed 
msoTextOrientationUpward 
msoTextOrientationVertical 
msoTextOrientationVerticalFarEast 
就是个常量
可以试试
WordDoc.Shapes.AddTextbox(0,Left, Top, Width, Height,index).TextFrame.TextRange

Answer 2

谢谢 不可以.. 
通过vba自动生成的代码 word文本框的确是msoTextOrientationHorizontal

Answer 3

VBA的是msoTextOrientationHorizontal不代表Delphi里也是这个，它就是个常量而已，你声明它是几就是几。
自己看
http://www.sudu.cn/info/html/edu/20071227/54259.html