利用excel生成word并在其中批量插入图片和题注、文字描述等内容

对于word中需要插入大量类型相似的图片，使用excel插入图片、题注、文字描述等内容是非常方便的，先使用excel编辑好各个图片对应的题注、描述内容，通过excel也可以很快的调整这些内容，比如统一修改题注、调整顺序，排序等操作。统一批量生成于word中后，再复制粘贴到所需文档的对应地方就可以了。

过程：遍历每个工作表（sheet），根据工作表的名字生成一级标题，然后再遍历当前工作表中已配置好的内容，先插入图片，在图片下面插入题注，换行再插入文字描述（可以插入大段的内容，也可为空）。可在多个工作表中设置下面内容，便于分类处理。

excel中工作表第一列为图片的题注（可根据图片名字批量处理得来），第二列为图片路径（遍历每个文件下的路径自行百度），第三列为图片的描述内容。

需要说明的是，题注的格式需要预先使用word编辑好（比如题注的名字为“图”，VBA引用中也要为“图”）。word的一级标题格式名字、生成word的路径需要根据实际情况修改。

下面是excel中的格式，直接在上面添加宏命令然后执行就行了。

下面是代码

Sub 生成word()
    Dim wordApp As Word.Application
    Application.StatusBar = "正在创建。。。"
    Set wordApp = New Word.Application
    
    With wordApp