怎样用delphi在word中插入表格 SOS~119~110~上帝~耶稣~如来佛祖~HELP！！！(100)

Y

yobin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-03-18

• #1

100分问两个问题1.怎样在memo中取得第二行到第三五行的字符？如：1111111111111111222222233333333333333333333333344444444444555555555555555555取得第二行到第五行的字符2222222333333333333333333333333444444444445555555555555555552.我用delphi把数据导出到了word的一张表格里（一行一列），随着内容增多自动换行，当取出的数据很少时，比如从上面的memo中读取第二行到第五行的内容：222222233333333333333333333333344444444444555555555555555555在word中一页可以排列18行，上面已经占了4行，下面不够的部分用表格填满，就像信纸一样的，一行一列的表格，请问怎样用delphi在下面空白的地方插入表格呢，谢谢

 

Y

yobin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-03-18

• #2

呀，100分没人领取~~

 

C

cooldren

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-03-18

• #3

word 中直接做一个表，一列，按A4把行高调好，一页20行，表前是首页，表后是末页，另外把表格属性中的 允许跨页断行选项选上

 

Z

znxia

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-03-24

• #4

第一个问题： memo1.lines.strings[0]表示第一行内容通过word工具中的宏录制，看看宏代码是怎么写的，参照这个，编写delphi代码1>工具/宏/录制新宏2>进行一些操作3>工具/宏/停止录制4>alt+F11，查看宏代码。

 

Y

yobin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-03-24

• #5

to znxia:感谢znxia的回答，第一个问题，也就是说我只要用一个memo1.lines.strings来循环就可以了是吗？之前没弄过，如果方便的话还请znxia简单罗列下，第二个问题，我去word宏弄几个动作

 

A

abin30

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-03-24

• #6

1、应该不存在问题吧 memo 的lines 是TStrings 可以使用index 取得下标的，直接取就是了啊 s:=memo1.lines[2]+memo1.lines[3]...;2、如果开了自动换行的话，估计很困难。你可以测试一下，根据你选定的字体大小，看多余多少个字符就要换行，然后去计算总共有内容的行数，如果小于20，就添加空行

 

Y

yobin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-03-24

• #7

to abin30:感谢回答，我那个memo的行数是不定的，上面的例子只是做个参考，我想取的是第二行到最后一行的内容，s:=memo1.lines[2]+memo1.lines[3]...;像这种写法的话应该是包括换行的吧，自动换行吗？第二个问题是，内容读到word里就像我们平时写word一样，一行一行的，然后下面空白的地方要用表格补满，不太好描述，最好能贴个图，这里不能贴图吗？

 

A

abin30

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-03-25

• #8

我清楚你的意思了。对于第一个问题： 你可以memo1.lines.count 就是总行数 那么写个循环就将这些行连起来就可以了啊 。至于要不要加换行符，你自己测试下，就可以了啊，要自己动手试啊。。对于第二个问题： 我觉得我说的已经很清楚了，在默认页边距、字体下，每一行能容纳的字符个数是一定的，你可以测试出来， 比如20个字符，那么21个字符一定是占用两行。这样就可以计算出你的数据一共占多少行。。 那么需要补充多少空行就可以计算出来了。

 

Y

yobin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-03-25

• #9

to all:我现在用for j:=1 to answer3.Lines.Count do begin linetotal:=linetotal+#13+(answer3.Lines[j]); vTable.Cell(1, 1).Range.Text := linetotal; end;取出了第二行到最后一行的内容第二个问题，我用word的录制宏，做了个动作，就是在文本所在区域，往下插入一个表格，宏是这样的：Sub Macro1()'' Macro1 Macro' 宏在 2009-3-25 由 yobin 录制' Selection.InsertRowsBelow 1End Sub转化为delphi代码的话要加什么，我直接把Selection.InsertRowsBelow 1这句用进去说Types of actual and formal var parameters must be identical.换成这样的话：word.Activedocument.Selection.InsertRowsBelow 1;提示说未定义selection,然后操作符丢失

 

Y

yobin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-03-26

• #10

问题解决了

 

Y

yobin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-03-26

• #11

多人接受答案了。