请教如何用Dephi 在Word2000文档中插入一条直线? ( 积分: 200 )

请教如何用Dephi 在Word2000文档中插入一条直线?
WordApplication,WordDocument 在画一条直线如何表述?

请教如何用Dephi 在Word2000文档中插入一条直线?
WordApplication,WordDocument 在画一条直线如何表述?

你自己在WORD中画一条线,同时将这个操作的宏录制下来,不就知道,画线的方法是什么了吗????

uses
ComObj;

procedure TForm1.Button1Click(Sender: TObject);
var
vWord,vDoc : OleVariant;
begin
vWord := CreateOleObject('Word.Application');
vWord.Visible := True;
vDoc := vWord.Documents.Open('E:/Tool/Tmp.doc');
vDoc.Shapes.AddLine(90, 72, 171, 87.6);//这里面就是你的画线的部分内容
end;

再问，在一个新文档(以前不存在的)中又如何呢？用WordDocument 以如何表示呢？

vWord := CreateOleObject([red]'word.document'[/red]);
则新建一个已经打开了文档“新建文档”

realLearning (2003-05-24 17:22:00)
WordApplication1.ActiveDocument.Shapes.AddLine(20,40,245,40,EmptyParam);

sbs (2003-05-24 17:26:00)
多谢了。成功


血骷髅 (2003-05-24 17:27:00)
用vb编辑器，在word里录制宏，反复调试即可得相应的命令参数!
May you success!

app2001,你好：
非常不好意思，如果想设置颜色，又当如何？

procedure TForm1.BitBtn1Click(Sender: TObject);
var
vWord,vDoc, vLine : OleVariant;
begin
vWord := CreateOleObject('Word.Application');
vWord.Visible := True;
vDoc := vWord.Documents.Open('C:/1.doc');

vLine := vdoc.Shapes.AddLine(10, 10, 250, 250, EmptyParam).Line;
// vLine.DashStyle := msoLineDashDotDot;
vLine.ForeColor.RGB := RGB(50, 0, 128);// 设置颜色
end;

{其他属性

With ActiveDocument.Shapes.AddLine(100, 100, 200, 300).Line
.DashStyle = msoLineDashDotDot
.ForeColor.RGB = RGB(50, 0, 128)
.BeginArrowheadLength = msoArrowheadShort
.BeginArrowheadStyle = msoArrowheadOval
.BeginArrowheadWidth = msoArrowheadNarrow
.EndArrowheadLength = msoArrowheadLong
.EndArrowheadStyle = msoArrowheadTriangle
.EndArrowheadWidth = msoArrowheadWide
end}

ShapeRange.LINE.ForeColor.RGB = RGB(0, 0, 255)

基本上采用app2001办法，但chenybin也给了我莫大的启发，实在是受益非浅，在这谢谢诸位了。

另外app2001还有100分

还有？？？哪呢，哪呢？？嘿嘿