如何控制word的页面大小、设置分栏等(100分)

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

leey

Unregistered / Unconfirmed
GUEST, unregistred user!
1.在Delphi中打开word并灌入文件时要将页面设成8开横置、二分栏，请问高手如何操作？
2.怎样像标准化试卷那样，在页面的左边竖直排列装订线，线左设姓名单位成绩等内容（
　也是竖排并且和页面中间横排的正文部分同处一页）？
 
很好办,你进入WORD,进行宏定义,,然后对WORD操作你所需要的操作,然后查看洪定义的代码,
虽然是VB的代码,但他们的属性多是一样的,对EXECL也一样,我以前经常用,很好用,可以完全
控制WORD,EXCEL
 
夏雪:你好。对Word的用法我知道的较少，你能否稍稍讲得细一些呢？
最好用一个简单的例子。另外我的第二个问题也可这样解决吗？
 
经过摸索已基本解决第一个问题。我是采用Delphi构件的方式实现的相关代码是：
WordApplication1.ActiveDocument.PageSetup.TextColumns.SetCount(2);
WordApplication1.ActiveDocument.PageSetup.PageWidth:=36.8*PointsPerCM;
WordApplication1.ActiveDocument.PageSetup.PageHeight:=26*PointsPerCM;
第一行实现二分栏，第二、三行分别实现页面的宽长设置，分别是36.8、26厘米（8K）。
由于用到的属性接受的数据单位是磅，PointsPerCM是厘米转换成磅的常数：
const
PointsPerCM=28.35;
第二个问题还没有解决，继续求解！
我初步设想将密封线和姓名单位等信息做成竖排的位图文件，再将此位图插入到页左端。
但不知道插入图片的方法是什么，此外还要判断灌入的试卷内容将在word中占据多少页
（因为每一页都要插入此图片），怎样判断页数也不知道。
 
第二个问题的思路值得研究，建议用文本框试试。
 
留下email，发给你一个word文档，看看是不是你要的效果。
 
lleey@163.com
 
在linsb的启发下，我用文本基本实现了第二个问题。用两种方法：
1.事先做一个符合要求的模板文件，在delphi里调用此模板文件：
Template:='Examtemp.dot';
WordApplication1.Documents.Add(Template, NewTemplate,documenttype,visible);
　其中第一行是模板文件名的赋值。add函数中所有参数都是OleVariant类型的，不能将模
板文件名直接写到函数中。函数中其余参数均是空的。
2.用下面的函数插入一个文本框：
　WordApplication1.ActiveDocument.Shapes.AddTextbox(
　　　msoTextOrientationHorizontal,　　//文本框内文字逆时针转90度
0, //文本框左边界
0, //文本框上边界
4*PointsPerCM, //文本框宽，将厘米换算成磅
26*PointsPerCM, //文本框长
MyText); //写入文本框的文字
以上两种方法还有问题：对于1，所打开的文件只在第一页出现了模板样式，而后续页左边
的文本框没有了；对于2，如何设置文字的格式同时怎样在后续页中也插入此框？
请高手指点。
 
第二个也用分栏处理，只是这一栏较小，且设置分栏线。
 
多人接受答案了。
 
您必须登录或注册才可回复。

Similar threads

D
[原]OrangeUI之ListView的简单介绍
回复
0
查看
2K
DelphiTeacher的专栏
D
D
[原]OrangeUI之ListView的简单介绍
回复
0
查看
1K
DelphiTeacher的专栏
D
D
[原]OrangeUI之ListView的简单介绍
回复
0
查看
1K
DelphiTeacher的专栏
D
S
[转]ClientDataSet加上TDataSetProvider的数据保存问题
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
[原]详解Variant 的相关函数
回复
0
查看
1K
SUNSTONE的Delphi笔记
S
后退
顶部