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编辑过]

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编辑过]

谢谢fyyylyl！

看到大家最近研究word处理的问题，我也想问一个问题，插入页码后，奇数页页码在右边，偶数页页码在左边，其实就是页码都靠外，如何处理？

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

谢谢！

回复 5楼 fyyylyl
谢谢！

加完页码以后，如何控制页码的字号和样式，例如 “─ 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
但是不能实现“奇右偶左”，请多多指教，这个我也是好久不能解决的问题

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
字体和字号设置有问题，能把相关资料发给我吗？谢谢