画线问题(50分)

意

意林

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-26

• #1

在delphi中如何控制在word中的文字上画一条骑缝线（虚线），我用了
WordObject.Application.ActiveDocument.Shapes.AddLine(37.5, 486, 546.75, 486);
却连编译都未通过，请教高手,如何解决？

 

意

意林

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-27

• #2

在delphi中如何控制在word中的文字上画一条线，我用了
WordObject.Application.ActiveDocument.Shapes.AddLine(37.5, 486, 546.75, 486);
却连编译都未通过，请教高手,如何解决？
提示：
No enough actual parameters
该如何加上所需的参数？

 

意

意林

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-27

• #3

如何取得word中字符的位置？

 

意

意林

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-29

• #4

没人理我吗？

 

C

creation-zy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-29

• #5

你可以查一下MSDN: (别告诉我你没有哟)
Microsoft Office Development
Office97 Documentation
Office
Microsoft Office97/ Visual Basic Language Refrence
Volume 3
Microsoft Word Language Refrence

>>字符的位置
Range?

 

意

意林

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-29

• #6

急！
我用delphi控制word打印一份指定格式的函件，其中要在一标题上打出虚线（字上穿过）
，标题的位置可能变动，请问在delphi中如何实现？比如我要在‘回复单‘上打印出一条
虚线，如何实现？标题的位置如何确定？
WordObject:=CreateOLEObject('Word.Application');
WordObject.Application.Selection.TypeText('回 复 单');
//固定位置划线，如何随字变动？
WordObject.Application.ActiveDocument.Shapes.AddLine(67.5, 426.5, 536.75, 426.5);
//下列代码设置划线属性（虚线），但报错‘未定义。。。',编译未通过，如何解决？
WordObject.Application.Selection.ShapeRange.Line.DashStyle := msoLineLongDash;

 

意

意林

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-30

• #7

最后一次移前
我心已冷，没人能帮我吗？
是分太少，还是不屑回答？
DFW????

 

T

testnet

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-02

• #8

试试先用WORD做一个文件，其中只有一条虚线，再把两个文件加在一起.如果你知道怎样
组合在一起，我只知有这个功能.
我看别人的代码有一些 [] 号，但你的没有，是不是这个错了
我没用过WORD,只是些建议

 

W

wnazn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-22

• #9

关注

 

M

mrb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-02

• #10

关注[]