导出word2000文档(20分)

  • 主题发起人 主题发起人 lcmlhs
  • 开始时间 开始时间
L

lcmlhs

Unregistered / Unconfirmed
GUEST, unregistred user!
怎样在word2000里插入分页符???????????
 
录制宏,查看宏代码!!编程!
 
插入->分隔符->分页符
如果是用delphi编程实现,则有点烦。
 
没有高手啊
 
话题275271的标题是: 如何使用WORD Automation Server,在delphi中打开一个新文档,并插入分页符、换行符 (100分)
分类:OLE/Automationdo
ngJiang (2000-07-02 20:03:00)
我的程序如下:
WordDocument1.ConnectTo(WordApplication1.Documents.Add(EmptyParam,EmptyParam));
WordDocument1.Tables.Add(WordDocument1.Range,3,3);
WordDocument1.Content.InsertBreak(wdPageBreak);
WordApplication1.Visible:=true;
但编译不通过,出现错误:
[Error] word.pas(52): Types of actual and formal var parameters must be identical

少陵 (2000-07-03 1:09:00)
程序如下
template,newtemplate:olevariant;
newtemplate:=false;
template:=emptyparam;
WordApplication1.Visible:=True;
WordApplication1.Documents.Add (template,newtemplate);
WordDocument1.ConnectTo(WordApplication1.Documents.Item (itemindex) );
WordApplication1.Selection.Font.Set_Size(18) ;
WordApplication1.Selection.Font.Set_Bold(2);
WordApplication1.Selection.TypeText('附表(一)');
WordApplication1.Selection.TypeParagraph;
WordApplication1.Selection.ParagraphFormat.Set_Alignment(1);
WordApplication1.Selection.Font.Set_Size(12) ;
WordApplication1.Selection.Font.Set_Bold(0);
WordApplication1.Selection.Tables.Add(WordApplication1.Selection.Get_Range,row,16);

ddmcall (2000-07-03 6:41:00)
我也看 看。

hsw (2000-07-06 20:18:00)
>>

chen66 (2000-07-19 10:43:00)

``

wjiachun (2000-10-05 22:10:00)
附加功能 将问题提前

wjiachun (2000-11-11 10:12:00)
DongJiang:如果还想接着讨论请定期提前自己的帖子,如果不想继续讨论请结束帖子。

g622 (2000-11-15 19:08:00)
多人接受答案了。

飓风_1 (2000-11-17 9:07:00)
多谢!!

少陵-100,的回答最终被接受。
 
可以用delphi對word進行各種操作的,可以到www.baidu.com中搜索,很多實例的
 
我试了不行的,本身就运行不出来
 
不会吧,没有人理我啊
 
各位大侠,我已经成功插入分页符了。下一个问题是我怎样在分页符的位置插入几个文字??
 
后退
顶部