- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- word报表打印页眉上能同时打印图片和表字段吗？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=120420)
-- 发布时间：2018/6/14 20:54:00
-- word报表打印页眉上能同时打印图片和表字段吗？
在WORD报表上，能否实现这个功能吗？
1、图片LOGO.JPG放在Attachments文件夹下面
2、WORD模板文件ABC.doc也是放在Attachments文件夹下面
要求在打印时，ABC.doc显示的页眉要求格式是：左靠齐的是LOGO.JPG，右靠齐的是 表A 字段 第一列。
这需求要怎么实现，老师们给个思路。
-- 发布时间：2018/6/14 20:59:00
--
附上示例：
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.zip |
-- 发布时间：2018/6/14 21:01:00
--
动态设置word的页眉
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=82926&skin=0
-- 发布时间：2018/6/14 21:08:00
--
这个我看过，字段可以设置上去，图片怎么设呀？还有就是图片与字段的格式怎么排版？
-- 发布时间：2018/6/14 21:50:00
--
以下是引用jiterp在2018/6/14 21:08:00的发言：
这个我看过，字段可以设置上去，图片怎么设呀？还有就是图片与字段的格式怎么排版？
这个我看过，字段可以设置上去，图片怎么设呀？还有就是图片与字段的格式怎么排版？
直接插入图片即可，如
Dim app As New MSWord.Application
try
Dim fileName = "d:\\123.doc"
Dim doc As Object = app.Documents.Open(fileName)
app.ActiveWindow.ActivePane.View.SeekView = MSWord.WdSeekView.wdSeekCurrentPageHeader
app.ActiveWindow.Selection.WholeStory
If app.ActiveWindow.Selection.Find.Execute("[图片]") Then
app.ActiveWindow.Selection.InlineShapes.AddPicture("d:\\test.jpg")
End If
app.ActiveWindow.ActivePane.View.SeekView = MSWord.WdSeekView.wdSeekMainDocument
app.Visible = True
catch ex As exception
msgbox(ex.message)
app.Quit
finally
\'app.Quit
End try
-- 发布时间：2018/6/15 0:12:00
--
Dim app As New MSWord.Application
try
Dim fileName = "d:\\123.doc"
Dim doc As Object = app.Documents.Open(fileName)
\'设置图片格式的页眉
app.ActiveWindow.ActivePane.View.SeekView = MSWord.WdSeekView.wdSeekCurrentPageHeader
app.ActiveWindow.Selection.InlineShapes.AddPicture(FileName:="D:\\logo.jpg", LinkToFile:= False, SaveWithDocument:=True)
app.ActiveWindow.Selection.TypeText(Text:="文件标题")
app.ActiveWindow.ActivePane.View.SeekView = MSWord.WdSeekView.wdSeekMainDocument
app.Visible = True
catch ex As exception
msgbox(ex.message)
app.Quit
finally
\'app.Quit
End try
呈献的效果是下图中上半部分，我希望调整位置为下半部分图样式，即左靠齐的是“LOGO.JPG”，右靠齐的文字“标题名称”，需要怎么处理：
此主题相关图片如下：20180614501.png
-- 发布时间：2018/6/15 9:10:00
--
改成（查找替换）的方式，如5楼、如3楼。
你设置好文本的字体、停靠等格式以后，直接替换文本，即可。