如何自动的用图片代替字符？

我的一页word文件中有一些字符，我的一个文件夹中有大量的图片，我想通过VB将字符与图片名相对比，如果两者相同，则用相应的图片代替相应的字符。也就是说处理后，在word的相应的字符位置上出现的是相应的图片，而不再是字符了。 --------------------编程问答-------------------- --------------------编程问答--------------------

引用 1 楼 veron_04 的回复:

这个帖子没什么稀奇，只是这个广告？？！！CSDN也太。。。。烂了

啥啊，我不懂如何做啊。
--------------------编程问答-------------------- 可以把图片文件的名和字对应，不然要有一个字和图片文件的对应表 --------------------编程问答-------------------- 在Word里，开始记录宏，手动完成一两步，结束记录宏，按Alt+F11查看刚记录宏对应的VBA源代码，略加修改即可。 --------------------编程问答--------------------

引用 1 楼 verron_04 的回复:

这个帖子没什么稀奇，只是这个广告？？！！CSDN也太。。。。烂了

再说它广告烂？删无赦 --------------------编程问答--------------------

引用 4 楼 zhao4zhong1 的回复:

在Word里，开始记录宏，手动完成一两步，结束记录宏，按Alt+F11查看刚记录宏对应的VBA源代码，略加修改即可。

你设计设计看。 --------------------编程问答-------------------- 我的一页word文件中有一些字符，我的一个文件夹中有大量的图片，我想通过VB将字符与图片名相对比，如果两者相同，则用相应的图片代替相应的字符。也就是说处理后，在word的相应的字符位置上出现的是相应的图片，而不再是字符了。 --------------------编程问答-------------------- 引用 microsoft scripting runtime
遍历文件夹,比较其中yourfile.name与word中字符.相同则addpicture

    ThisDocument.InlineShapes.AddPicture FileName:= _

        "C:\Documents and Settings\All Users\Documents\My Pictures\示例图片\Winter.jpg" _

        , LinkToFile:=False, SaveWithDocument:=True

--------------------编程问答--------------------

引用 8 楼 king06 的回复:

引用 microsoft scripting runtime
遍历文件夹,比较其中yourfile.name与word中字符.相同则addpicture
VB code
    ThisDocument.InlineShapes.AddPicture FileName:= _
        "C:\Documents and Settings\All Users\Documents\My……

抱歉，不知道如何用这段代码

补充：VB ,  基础类