vf中控制页眉

wuanzhengxin 2018-10-19 09:22:11

请问用vf代码怎样控制word页的页眉页脚？

...全文

375 5 打赏收藏转发到动态举报

写回复

用AI写文章

5 条回复

切换为时间正序

请发表友善的回复…

发表回复

lygcw9602 2018-10-19

打赏
举报

oWord = CREATEOBJECT("Word.Application")

WITH oWord

	.Documents.Add

	.Visible = .T.

	WITH .ActiveDocument.PageSetup

		.TopMargin = oWord.CentimetersToPoints(1.5) && 厘米转换为磅

		.BottomMargin = oWord.CentimetersToPoints(2.0)

		.LeftMargin = oWord.CentimetersToPoints(0.31)

		.RightMargin = oWord.CentimetersToPoints(6.5)

		.PageWidth = oWord.CentimetersToPoints(23.5)

		.PageHeight = oWord.CentimetersToPoints(14)

		.Orientation = 1 && 横向　0　纵向

		.HeaderDistance = oWord.CentimetersToPoints(0.9)

		.FooterDistance = oWord.CentimetersToPoints(0.75)

	ENDWITH 

ENDWITH

lygcw9602 2018-10-19

打赏
举报

oWord = CREATEOBJECT("Word.Application")
WITH oWord
.Documents.Add
.Visible = .T.
WITH .ActiveDocument.PageSetup
.TopMargin = oWord.CentimetersToPoints(1.5) && 厘米转换为磅
.BottomMargin = oWord.CentimetersToPoints(2.0)
.LeftMargin = oWord.CentimetersToPoints(0.31)
.RightMargin = oWord.CentimetersToPoints(6.5)
.PageWidth = oWord.CentimetersToPoints(23.5)
.PageHeight = oWord.CentimetersToPoints(14)
.Orientation = 1 && 横向　0　纵向
.HeaderDistance = oWord.CentimetersToPoints(0.9)
.FooterDistance = oWord.CentimetersToPoints(0.75)
ENDWITH
ENDWITH

lygcw9602 2018-10-19

打赏
举报

herderdistance
拼写错误
headerdistance

wuanzhengxin 2018-10-19

打赏
举报

with mloword as word.application
.documents.add() &&建立新文档
.activedocument.pagesetup.topmargin=0.50/0.035 &&设置上页边距
.activedocument.pagesetup.bottommargin=0.2/0.035 &&设置下页边距
.activedocument.pagesetup.leftmargin=0.31/0.035 &&设置左页边距
.activedocument.pagesetup.rightmargin=6.5/0.035 &&设置右页边距
.activedocument.pagesetup.pagewidth=23.5/0.035 &&设置页高
.activedocument.pagesetup.pageheight=14/0.035 &&设置页宽
.activedocument.pagesetup.orientation=0 &&为页面竖放，2为页面横放，改为横
.activedocument.pagesetup.herderdistance =0.9/0.035 &&设置页眉
.activedocument.pagesetup.footerdistance =0.75/0.035 &&设置页脚
运行到页眉页脚处出错，请大师给予帮忙

lygcw9602 2018-10-19