查看: 1533|回复: 10
VB里生成word报告，同时把特定数据插入到模板文档的指定位置
编写代码实现，扣扣:
xss 发表于
编写代码实现，扣扣:
请说详细点
打开一个WORD文档
随便拷贝一篇文章，长度大于3页
运行下面的代码，将会在当前打开的word中的第二页第4行插入“测试文本”
Set o_Word = GetObject(, &Word.Application&) '获得系统中运行的Word对象
'将插入点移至第二页
o_Word .ActiveWindow.Selection.GoTo What:=1, Which:=1, Count:=1, Name:=2
'将插入点移至第4行
o_Word.ActiveWindow.Selection.GoTo What:=3, Which:=1, Count:=4
o_Word.Content.InsertAfter Text:=&测试文本&
详细点请加QQ详聊，如果你愿意的话。
xss 发表于
详细点请加QQ详聊，如果你愿意的话。
请问收费吗
免费，最好自己下载一个“WORD编程参考”，有各种例子，很详细，很全面。
下面是一个测试代码，请先打开压缩包中的“模板”，然后运行压缩包中的代码
可以在第4行插入一个测试文本。
(3.5 KB, 下载次数: 160)
22:36 上传
点击文件名下载附件
vbfans01 发表于
免费，最好自己下载一个“WORD编程参考”，有各种例子，很详细，很全面。
下面是一个测试代码，请先打开压 ...
你和5楼是一个人吗
是不是一个人看名字就知道了。
把特定数据插入到模板文档的指定位置，最好的方法是在模板文件中建立一个标签，然后通过标签对象操作。【转】C#&操作word&指定书签位置插入图片并设置图片大小和位置
&object Nothing =
System.Reflection.Missing.V
//创建一个名为wordApp的组件对象
Application wordApp = new Application();
//word文档位置
object filename = @"E:\ceshi.doc";
//定义该插入图片是否为外部链接
object linkToFile =
//定义插入图片是否随word文档一起保存
object saveWithDocument =
//打开word文档
Microsoft.Office.Interop.Word.Document doc =
wordApp.Documents.Open(ref filename, ref Nothing, ref Nothing, ref
&&&&&&&&&&
ref Nothing, ref Nothing, ref Nothing, ref Nothing,
&&&&&&&&&&
ref Nothing, ref Nothing, ref Nothing, ref Nothing,
&&&&&&&&&&
ref Nothing, ref Nothing, ref Nothing, ref Nothing);
&&&&&&&&&&&
&&&&&&&&&&&
object bookMark = "para04";
&&&&&&&&&&&
&&&&&&&&&&&
string replacePic = @"E:\1.gif";
&&&&&&&&&&&
if (doc.Bookmarks.Exists(Convert.ToString(bookMark)) ==
&&&&&&&&&&&
&&&&&&&&&&&&&&&
//查找书签
&&&&&&&&&&&&&&&
doc.Bookmarks.get_Item(ref bookMark).Select();
&&&&&&&&&&&&&&&
//设置图片位置
&&&&&&&&&&&&&&&
wordApp.Selection.ParagraphFormat.Alignment =
Microsoft.Office.Interop.Word.WdParagraphAlignment.wdAlignParagraphR
&&&&&&&&&&&&&&&
//在书签的位置添加图片
&&&&&&&&&&&&&&&
InlineShape inlineShape =
wordApp.Selection.InlineShapes.AddPicture(replacePic, ref
linkToFile, ref saveWithDocument, ref Nothing);
&&&&&&&&&&&&&&&
//设置图片大小
&&&&&&&&&&&&&&&
inlineShape.Width = 20;
&&&&&&&&&&&&&&&
inlineShape.Height = 20;
&&&&&&&&&&&&&&&
doc.Save();
&&&&&&&&&&
&&&&&&&&&&&
&&&&&&&&&&&
&&&&&&&&&&&&&&&
//word文档中不存在该书签，关闭文档
&&&&&&&&&&&&&&&
doc.Close(ref Nothing,ref Nothing,ref Nothing);
&&&&&&&&&&&
&&&&&&&&&&&
原文链接：C# 操作word 指定书签位置插入图片并设置图片大小和位置 - 雪树 -
已投稿到：
以上网友发言只代表其个人观点，不代表新浪网的观点或立场。本帖子已过去太久远了，不再提供回复功能。如何在word模板中书签位置插入图片
如何在word模板中书签位置插入图片
我在word模板中插入了书签，想要在书签位置插入图片，可是不知道为什么图片总是在书签前几行的位置。 &
Microsoft.Office.Interop.Word.Range imglocation = doc.Bookmarks.get_Item(ref j).R &
object linktofile = &
object savewithdocument = &
object anchor = &
doc.Application.ActiveDocument.InlineShapes.AddPicture(filename, ref linktofile, ref savewithdocument, ref anchor); &
Microsoft.Office.Interop.Word.Shape s= doc.Application.ActiveDocument.InlineShapes[1].ConvertToShape(); &
s.WrapFormat.Type = Microsoft.Office.Interop.Word.WdWrapType.wdWrapS //将图片设置为四周环绕型试验了发现如果不加最后两行就可以插入到书签位置。各位大人，这到底是为什么呢。本人是菜鸟哈。
昵称: sissi0603 &时间:
昵称: wuyq11 &时间:
昵称: sissi0603 &时间:VBPHOTO VB操作WORD插入图片练习,为VB6.0下 ，可进行 的打开并 目录下的 。 Windows Develop 238万源代码下载-
&文件名称: VBPHOTO
& & & & &&]
&&所属分类:
&&开发工具: Visual Basic
&&文件大小: 220 KB
&&上传时间:
&&下载次数: 12
&&提 供 者:
&详细说明：VB操作WORD插入图片练习,为VB6.0下练习，可进行WORD的打开并插入目录下的图片。-VB WORD PHOTO
文件列表(点击判断是否您需要的文件，如果是垃圾请在下面评价投诉):
&&VB操作WORD插入图片练习\01.jpg&&......................\02.jpg&&......................\Form1.frm&&......................\MSSCCPRJ.SCC&&......................\工程1.exe&&......................\工程1.vbp&&......................\工程1.vbw&&VB操作WORD插入图片练习
&近期下载过的用户:
&输入关键字，在本站238万海量源码库中尽情搜索：}