VBA电子表格批量生成Word文件，求助使用字典方式

ccbbww

1.因生成表格很大，运行效率太慢，希望使用字典方式进行，提高效率；

2、 Word中服务形式栏目，希望根据电子表格中填列的服务方式，比如台账中第三行，服务方式是电子邮件，对应在Word中自动填列□开通系统   □现场面谈   □电子邮件  □微信短信   □书面材料   □会议形式  □电话方式   □其他（说明具体形式），

3.我用字典写来段代码如下，但没起作用，请各位支持帮助，谢！！！

Set D = CreateObject("Scripting.Dictionary")

        If Not IsObject(D("上门地点")) Then Set D("上门地点") = CreateObject("Scripting.Dictionary")

            D("上门地点")("old") = """上门地点1"""

            D("上门地点")("new") = "dic(o)(e)

jiangxiaoyun

这和字典有啥关系。。。。

ccbbww

用字典解决，更快啊

边缘码农

类似这种情况，直接替换的，建议WORD模板中的待替换字符和Excel工作表中的标题一致，Excel数据导入数组中处理，速度会快很多。

gwjkkkkk

ccbbww 发表于 2023-6-14 08:08
用字典解决，更快啊

其实这个真没看出来与字典的关系，只是一个替换的关系，而且服务形式按照哪个替换也没看出来？