VBA批量导入图片到多Word文档并加标题(会飞的鱼)

感谢会飞的鱼大牛~

 1 Public fp$, obmapp As Object
 2 Sub kk()
 3 文件夹浏览器
 4 Application.ScreenUpdating = False
 5 Set fso = CreateObject("scripting.filesystemobject")
 6 If fp = "" Then Exit Sub
 7 Set ff = fso.getfolder(fp)
 8 For x = 1 To 17
 9     Documents.Add DocumentType:=wdNewBlankDocument
10     For Each fd In ff.subfolders
11         t = Int(fd.Files.Count / 17)
12         For y = 1 To t
13             Selection.InlineShapes.AddPicture FileName:=fd & "\" & x * t - t + y & ".png", LinkToFile:=False, SaveWithDocument:=True
14             Selection.TypeParagraph
15             Selection.TypeText Text:=fd.Name & "_" & Format(x * t - t + y, "00") & Chr(13)
16         Next
17     Next
18     Selection.WholeStory
19     Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
20
21     ‘替换名称中的+为/
22     Selection.Find.ClearFormatting
23     Selection.Find.Replacement.ClearFormatting
24     With Selection.Find
25         .Text = "+"
26         .Replacement.Text = "/"
27         .Forward = True
28         .Wrap = wdFindContinue
29         .Format = False
30         .MatchCase = False
31         .MatchWholeWord = False
32         .MatchByte = True
33         .MatchWildcards = False
34         .MatchSoundsLike = False
35         .MatchAllWordForms = False
36     End With
37     Selection.Find.Execute Replace:=wdReplaceAll
38     ‘上面是录制的宏
39     ActiveDocument.SaveAs2 FileName:=fp & "\" & x & ".docx"
40     ActiveWindow.Close
41 Next
42 Application.ScreenUpdating = True
43 End Sub
44 Sub 文件夹浏览器()
45     Set obmapp = CreateObject("Shell.Application").BrowseForFolder(0, "请选择文件目录:", 0, 0)
46     If Not obmapp Is Nothing Then
47         fp = obmapp.Self.Path & ""
48     Else
49         Exit Sub
50     End If
51 End Sub

原文地址:https://www.cnblogs.com/sighful/p/9028507.html

时间: 2024-11-09 00:03:10

VBA批量导入图片到多Word文档并加标题(会飞的鱼)的相关文章

图片文字转word文档的巧妙方法

很多朋友在网上搜素图片转word文档的方法,但是始终都没有找到称心如意的好方法.好方法首先要有好的工具,影响图片转word文档效果主要在于图片文字是否清晰和使用的软件是否专业.小编这里有一个方法,也是自己经常使用的图片转word文档方法,下面就分享给大家.工具和原料:1:带有文字的图片:2:迅捷OCR文字识别工具.操作方法:步骤一:[进入识别页面]:在电脑上准备一个OCR文字识别工具,并在电脑上打开该工具,点击极速识别功能,进入识别页面.步骤二:[添加文件]:通过上面的添加文件按钮,把需要转换的

怎样快速把jpg图片转换成word文档?

在日常的生活或者是工作中我们经常见到的图片就是jpg格式的了,无论是在哪个方面,我们都会多多少少的遇到将图片转换成文字的情况发生.在高中的时候,就经常有些jpg图片需要转化的.可是一直没有找到好的转换方法.今天小编将这个好用的方法分享给大家. 具体操作: 第一步:小编的电脑里有OCR文字识别软件工具,没有该工具的小伙伴们,就需要在浏览器中搜索并下载到我们的电脑里了. 第二步:打开OCR文字识别软件,在我们的电脑上自动弹出该工具的界面.并且在页面左侧可以看到该工具的功能板块.小编需要的是jpg图片

利用POI操作不同版本word文档中的图片以及创建word文档

我们都知道要想利用java对office操作最常用的技术就应该是POI了,在这里本人就不多说究竟POI是什么和怎么用了.先说本人遇到的问题,不同于利用POI去向word文档以及excel文档去写入数据和向外导出数据并且保存到数据库中这些类似的操作,由于业务上的需要需要利用POI去读取word中的图片,并且去把图片去保存为一个file文件.查了Apache公司提供的api帮助文档,再网友的一些线索,本人也总结了几中对不同word版本(.doc或者是.docx结尾)对于文件中所含图片的操作方式,希望

利用POI操作不同版本号word文档中的图片以及创建word文档

我们都知道要想利用java对office操作最经常使用的技术就应该是POI了,在这里本人就不多说到底POI是什么和怎么用了. 先说本人遇到的问题,不同于利用POI去向word文档以及excel文档去写入数据和向外导出数据而且保存到数据库中这些类似的操作,因为业务上的须要须要利用POI去读取word中的图片,而且去把图片去保存为一个file文件.查了Apache公司提供的api帮助文档,再网友的一些线索,本人也总结了几中对不同word版本号(.doc或者是.docx结尾)对于文件里所含图片的操作方

图片转Word文档的转换方法有哪些?

图片转Word文档的方法很简单,图片中有时候会有一些内容,我们需要将这些图片上的内容转换成Word文档的形式,将图片转换成Word文档,下面就让小编给大家简单介绍一下. 步骤一:我们需要将文件准备好,然后通过在浏览器上的搜索迅捷PDF在线转换器进入到在线网站中去:步骤二:找到导航栏中的图片文字识别中的图片转Word,然后点击进入即可:步骤三:然后将文件寻找直接拖动到界面或是点击文件进行选择到界面中即可:步骤四:文件上传完成即可自动进行转换,文件转换是需要一定的时间的,我们需要耐心的等待一段时间:

Java 添加、读取、修改、删除Word文档属性

Word文档属性包括常规.摘要.统计.内容.自定义等,其中摘要包括标题.主题.作者.经理.单位.类别.关键词.备注等项目,通过设置这些摘要信息或自定义属性可方便对文档的管理.本文中将主要介绍对文档摘要信息的添加,以及读取或者编辑.删除文档中已设置的摘要信息或自定义文档信息.下面将通过Java代码详细介绍.使用工具:Free Spire.Doc for Java (免费版)Jar文件获取及导入:方法1:通过官网下载.下载后,解压,将lib文件夹下的Spire.Doc.jar文件导入java程序.方

word 文档操作类,可以读出word中书签 批量替换内容,直接调用

using System;using System.Collections.Generic;using System.Text;using Word = Microsoft.Office.Interop.Word; namespace ELO.BLL{ /* * Description:用于Word基本操作类 */public partial class Helper_Word { #region 私有成员 private Word.ApplicationClass _wordApplicati

C# 导出word文档及批量导出word文档(1)

这里用到了两个dll,一个是aspose.word.dll,另外一个是ICSharpCode.SharpZipLib.dll,ICSharpCode.SharpZipLib.dll是用于批量导出word文档的,通过把文件打包成压缩包,以文件流的方式输出下载.aspose.word.dll最好使用最新版的,14.5或者更高,我使用的是14.5版本,页面是采用mvc的语法.在这里感谢赵某人为我提供的帮助.         首先制作好word模板,使用模板可以避免在代码中对word进行排版,方便简单.

C# 导出word文档及批量导出word文档(3)

在初始化WordHelper时,要获取模板的相对路径.获取文档的相对路径多个地方要用到,比如批量导出时要先保存文件到指定路径下,再压缩打包下载,所以专门写了个关于获取文档的相对路径的类. 1 #region 获取文档的相对路径 2 public class WordFilePath 3 { 4 #region 返回文件带路径值 5 /// <summary> 6 /// 返回文件带路径值 7 /// </summary> 8 /// <param name="Fil