利用VBA向Word中批量添加图片以及整理成Excel数据的图片名

今天女朋友工作上出了点麻烦，就是要向Word中批量添加图片以及整理成Excel数据的图片名。其中图片名需要设置段落和文字格式，有些图片还是共享一个图片名。这可是个繁琐而枯燥的工作。我一直相信重复劳动是对人这种智慧生物的侮辱（手动狗头，所以决定解放一下她。下面整理下需求：

1. 从文件夹中向Word里批量添加整理好的图片，并设置图片格式。
2. 为图片设置整理成Excel数据的图片名，其中有个难点是图片名是给好的，独特的，无法通过程序批量生成，只能通过程序引入。
3. 有些图片共用一个图片名，只需在最后一个图片下写入图片名，前面图片下面并不需要。

解决思路：

1. 因为Word、Excel都是微软的office产品，所以最佳方式还是利用VBA在Word中写宏来解决。
2. 有两个素材，一个是包含图片的文件夹和包含图片名数据的Excel表格。必须通过手选图片，选好图片后然后程序会根据图片数顺序选取相对应的数据写入图片名，并在其过程中，设置好图片和图片名格式。
3. 解决图片共用图片名问题 。好在她的问题中大多数共用图片名的图片个数为两个，可以通过选取图片数个数来做判断，不过这个个数也可以修改。

因为VBA使用的VB语言好久没用了，花时间搜集了点资料，粗略写出了这段程序，虽然还有很大优化空间，但是问题解决了，就暂时先用着，等以后有空再说。

下面是Word中写入的宏：

Sub InsertPic()
    Dim xlApp As Excel.Application    '从外部文件中读取和修改所用Excel数据的个数
    Dim xlBook As Excel.Workbook
    Dim xlSheet As Excel.Worksheet
    Dim anotherFileName As String
    Dim number As Integer    'Excel中被选用的数据的个数

    anotherFileName = "C:\Users\Feng\Desktop\111.xlsx"
    Set xlApp = Ne