| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
共有 258 人关注过本帖
标题:VFP如何定义Word页眉图片的大小?
只看楼主 加入收藏
ztx19
Rank: 1
等 级:新手上路
帖 子:23
专家分:5
注 册:2014-8-22
结帖率:87.5%
收藏
已结贴  问题点数:20 回复次数:11 
VFP如何定义Word页眉图片的大小?
WordApp=CREATEOBJECT("Word.application")
WordApp.Documents.ADD
WordApp.Selection.Sections(1).Headers(1).Range.InlineShapes.AddPicture( 'D:\logo.JPG',.f.,.t.)
如何定义这里页眉图片的大小(高、宽)?



[此贴子已经被作者于2024-6-7 08:17编辑过]

搜索更多相关主题的帖子: VFP 大小 图片 定义 Word 
2024-06-06 09:37
fyyylyl
Rank: 8Rank: 8
等 级:贵宾
威 望:17
帖 子:311
专家分:810
注 册:2006-5-22
收藏(1)
得分:20 
WordApp.Selection.Sections(1).Headers(1).Range.InlineShapes(1).Height=50
WordApp.Selection.Sections(1).Headers(1).Range.InlineShapes(1).Width=100
——假设只有一个图片

[此贴子已经被作者于2024-6-7 09:34编辑过]


2024-06-07 09:24
ztx19
Rank: 1
等 级:新手上路
帖 子:23
专家分:5
注 册:2014-8-22
收藏
得分:0 
谢谢fyyylyl!
2024-06-07 10:50
seasoners
Rank: 1
等 级:新手上路
帖 子:46
专家分:9
注 册:2013-12-15
收藏(1)
得分:0 
看到大家最近研究word处理的问题,我也想问一个问题,插入页码后,奇数页页码在右边,偶数页页码在左边,其实就是页码都靠外,如何处理?

2024-06-11 09:08
fyyylyl
Rank: 8Rank: 8
等 级:贵宾
威 望:17
帖 子:311
专家分:810
注 册:2006-5-22
收藏
得分:0 
回复 4楼 seasoners
WordApp.Documents(1).Sections(1).Footers(1).PageNumbers.Add.Alignment=4        &&1-中,2-右,3-奇左偶右,4-奇右偶左

2024-06-11 15:56
schtg
Rank: 12Rank: 12Rank: 12
来 自:Usa
等 级:贵宾
威 望:67
帖 子:1648
专家分:3183
注 册:2012-2-29
收藏
得分:0 
回复 5楼 fyyylyl
谢谢!
2024-06-11 17:57
seasoners
Rank: 1
等 级:新手上路
帖 子:46
专家分:9
注 册:2013-12-15
收藏
得分:0 
回复 5楼 fyyylyl
谢谢!
2024-06-13 07:22
seasoners
Rank: 1
等 级:新手上路
帖 子:46
专家分:9
注 册:2013-12-15
收藏
得分:0 
以下是引用fyyylyl在2024-6-11 15:56:19的发言:

WordApp.Documents(1).Sections(1).Footers(1).PageNumbers.Add.Alignment=4        &&1-中,2-右,3-奇左偶右,4-奇右偶左


加完页码以后,如何控制页码的字号和样式,例如 “─ 1 ─”
我原来是这么做的
Procedure obo_write_Footer()
    *!*    页码设置
    *objWordApplication.Documents(1).Sections(1).Footers(1).PageNumbers.Add.Alignment = duiqi_footer
    objWordApplication.activewindow.activepane.View.seekview = 10
    With objWordApplication.Selection
        .paragraphformat.Alignment = duiqi_footer
        .Font.Size = zihao_footer
        .Font.Name = ziti_footer
        .typetext(lcSpliteCharacter+" ")
        .Fields.Add(.Range,33)
        .typetext(" "+lcSpliteCharacter)
    ENDWITH
    *WordApp.Documents(1).Sections(1).Footers(1).PageNumbers.Add.Alignment = 4        &&0-左,1-中,2-右,3-奇左偶右,4-奇右偶左
    objWordApplication.activewindow.activepane.View.seekview = 9
    objWordApplication.activewindow.activepane.View.seekview = 0
    objWordApplication.activewindow.activepane.View.seekview = 0
Endproc
但是不能实现“奇右偶左”,请多多指教,这个我也是好久不能解决的问题


2024-06-13 08:04
fyyylyl
Rank: 8Rank: 8
等 级:贵宾
威 望:17
帖 子:311
专家分:810
注 册:2006-5-22
收藏
得分:0 
WordApp.Documents(1).Sections(1).Footers(1).PageNumbers.NumberStyle =57

2024-06-13 10:17
seasoners
Rank: 1
等 级:新手上路
帖 子:46
专家分:9
注 册:2013-12-15
收藏
得分:0 
以下是引用fyyylyl在2024-6-13 10:17:19的发言:

WordApp.Documents(1).Sections(1).Footers(1).PageNumbers.NumberStyle =57


objWordApplication.Documents(1).Sections(1).Footers(1).PageNumbers.Add.Alignment = duiqi_footer
objWordApplication.ActiveDocument.Sections(1).Footers(1).PageNumbers.NumberStyle = 57
objWordApplication.ActiveDocument.Sections(1).Footers(1).PageNumbers.Font.Size = zihao_footer
objWordApplication.ActiveDocument.Sections(1).Footers(1).PageNumbers.Font.Name = ziti_footer

如下两句后
objWordApplication.Documents(1).Sections(1).Footers(1).PageNumbers.Add.Alignment = duiqi_footer
objWordApplication.ActiveDocument.Sections(1).Footers(1).PageNumbers.NumberStyle = 57
格式对了!

如下两句,
objWordApplication.ActiveDocument.Sections(1).Footers(1).PageNumbers.Font.Size = zihao_footer
objWordApplication.ActiveDocument.Sections(1).Footers(1).PageNumbers.Font.Name = ziti_footer
字体和字号设置有问题,能把相关资料发给我吗?谢谢

2024-06-13 11:00
快速回复:VFP如何定义Word页眉图片的大小?
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.016147 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved