单位每次都要排版打印很多的健康码、核算检测报告的截图
要求如下：
1.图片高度15CM，宽度7CM，每页排4张图片
2.页边距：上2.4CM 下1.3CM 左0.8CM 右0.8CM
3.每张图片下方有图片或文字说明（图片文件夹已经命名好的）
WordVBA每页4张图片
- 写回答
- 好问题 0 提建议
- 追加酬金
- 关注问题
分享- 邀请回答
-
0条回答 默认 最新
- 2022-01-05 15:58回答 1 已采纳 通过vba进行遍历，然后把文件名读取下来，并同时通过word的dom对象打开word读取页数
- 2016-06-19 07:37回答 1 已采纳 新建一个窗体，放上文本框，比如叫Text1 在里面的确定按钮写 ActiveDocument.Range(范围).InsertAfter(text1.Text)
- 2022-01-05 16:11回答 1 已采纳 通过vba对象word进行遍历，然后把表内内容进行读取再写到单元格
- 2024-01-26 08:53weiqigreen的博客 在工作中，有时候需要把WORD文档截图发到工作群。一是比直接发文档好，点开就能看；二是比直接发文字好，直接复制文字到聊天窗口就清除掉了格式。直接截图大小不一，而且带有换行标记，如下图。我有时习惯进到打印...
- 2019-02-28 12:24回答 2 已采纳 代码稍作了修改，除了第10段匹配不到，其他没问题。不知是不是其他什么问题 Sub 通配符查找改变颜色() For i = 1 To ActiveDocument.Paragraphs.Coun
- 2021-08-27 18:01回答 4 已采纳 Sub aa() n = ActiveDocument.Tables.Count f = "soar" '这里是你要找的文字 ff = f & vbCr & Chr(7)
- 2021-06-21 12:05回答 1 已采纳 Dim tbs As Tables Set tbs = ActiveDocument.Tables Dim tb As Table Set tb = tbs.Item(1) tb.cell(1,
- 2021-04-05 01:13温暖如冰的博客 Word中每页插入两张图片（VBA+VSTO) 我们在平时的工作中经常会做一些简报，插入图片，一般情况下每页放两张图片比较美观，再配上文字说明就行了。可是每次都很烦人，图片不是大了就是小了，还要设置四周环绕或者其他...
- 2017-04-14 08:27回答 2 已采纳 自己给自己回答，因为sub 不返回， function 才返回
- 2021-04-30 10:20回答 4 已采纳 这是不是VBA
- 2017-04-14 09:44回答 2 已采纳 自己帮自己回答，因为是word 2016 vba 的引用必须是msxml6.dll
- 2023-12-25 10:23LAM LAB的博客 由于某些规范要求每一页都批阅痕迹，工程量太大不得不出此下策略，复制以下代码替换路径即可。然后配合wps设置快捷键即可一键打钩。
- 2020-12-29 20:17回答 3 已采纳 back style 改成0
- 2024-08-06 11:07专注VB编程开发20年的博客 在word中的图形对象有InlineShape对象和Shape对象，其中InlineShape对象表示的是嵌入到文本层的图片，就像是文字的一部分一样，而Shape对象是悬浮于文本之上位于图形层，两者有区别。它相当于API函数...
- 2009-07-07 09:55Word文档中每页添加浮动图片的基本概念 在Word文档中，可以通过手动方式为每一页添加图片，并设置图片为“浮动”状态，这意味着图片不会像文本一样自动换行，而是可以自由地放置在页面上的任何位置。这种方法适用...
- 没有解决我的问题, 去提问
问题事件
系统已结题
7月31日
创建了问题
7月23日
悬赏问题
- ¥20 公众号如何实现点击超链接后自动发送文字
- ¥15 用php隐藏类名和增加类名
- ¥15 算法设计与分析课程的提问
- ¥15 用MATLAB汇总拟合图
- ¥15 智能除草机器人方案设计
- ¥15 对接wps协作接口实现消息发送
- ¥15 SQLite 出现“Database is locked” 如何解决？
- ¥15 已经加了学校的隶属邮箱了，为什么还是进不去github education？😭
- ¥15 求会做聚类，TCN的朋友有偿线上指导。以下是目前遇到的问题
- ¥100 无网格伽辽金方法研究裂纹扩展的程序