用 vb6.0向word中插入图片，遇到诡异的事情，………addpicture("a_0.jpg")，两个文件都存在，文件名0能成功运行，0改成1就报错，我把两个文件都删除，用0还能正常运行，你说奇怪不奇怪？哪位大神，帮帮我！！！-CSDN社区

lcm115689 2024-01-20 10:42:01

用 vb6.0向word中插入图片，遇到诡异的事情，………addpicture("a_0.jpg")，两个文件都存在，文件名0能成功运行，0改成1就报错，我把两个文件都删除，用0还能正常运行，你说奇怪不奇怪？哪位大神，帮帮我！！！

...全文

275 1 打赏收藏转发到动态举报

写回复

1 条回复

切换为时间正序

请发表友善的回复…

发表回复

vansoft 02-21

打赏
举报

回复

录个宏看看啊。

为什么WORD中插入的图片都变成空白框了.docx

解决POI3.10在添加图片的时候自身有一个BUG。纠结了很久都没解决，今天终于弄好了，文件包中附带了修改好的jar包bsj-poi-ooxml-3.10-FINAL-20140208.jar。主要问题是出在：org.apache.poi.xwpf.usermodel.XWPFRun.addPicture（）函数解决的是 // Pesky XmlBeans bug - see Bugzilla #49934 测试代码： HashMap map = new HashMap(); map.put("${name}", "李清清"); map.put("${tel}", "0851-xxxxxx"); map.put("${org}", "信息工程"); map.put("${userpic}", new Object[]{"d:\\p1.jpg",100,150}); String srcPath = "d:\\1.docx"; String destPath = "d:\\2.docx"; searchAndReplace(srcPath, destPath, map);

打开word，添加图片及环绕方式，设置图片大小等

Microsoft.Office.Interop.Word.dll 事例如 object Nothing = System.Reflection.Missing.Value; object srcFileName = @"D:\aa.html"; object dstFileName = @"d:\li.doc"; object objt = true; Word.Application wordApp = new Word.ApplicationClass(); Word.Document wordDoc = null; object format = Word.WdSaveFormat.wdFormatDocument; try { wordDoc = wordApp.Documents.Open(ref srcFileName, ref format, ref Nothing, ref Nothing, ref Nothing, ref Nothing, ref Nothing, ref Nothing, ref Nothing, ref Nothing, ref Nothing, ref Nothing); //图片 Word.Shape oShape = wordDoc.Shapes.AddPicture("D:\\DL_01.gif", ref Nothing, ref objt, ref Nothing, ref Nothing, ref Nothing, ref Nothing, ref Nothing); oShape.WrapFormat.Type = Word.WdWrapType.wdWrapSquare; //将htm文件save as成doc文件 wordDoc.SaveAs(ref dstFileName, ref format, ref Nothing, ref Nothing, ref Nothing, ref Nothing, ref Nothing, ref Nothing, ref Nothing, ref Nothing, ref Nothing); } finally { wordDoc.Close(ref Nothing, ref Nothing, ref Nothing); wordApp.Quit(ref Nothing, ref Nothing, ref Nothing); } }

一个简单的控件使用方法，利用按钮添加图片

16,554

社区成员

110,527

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章