拿到很多地址，需要把地址拆分为省市县，写了个VBA代码一键拆分。以备后用。Sub test() Dim Reg, pts$(2), rpl$(2), ar, r&, i&, j& Set Reg = CreateObject("VBScript.RegExp") Reg.Global = True pts(0) = "^(河北|山西|辽宁|吉
工作中经常遇到需要删除多个文档页眉页脚的情况，手动删除很麻烦，专门写了一个程序来批量删除。很方便。代码：Sub 删除页眉页脚() docpath = getpath If IsEmpty(docpath) Then Exit Sub Dim wd As Document Application.DisplayAlerts = wdAlertsNone For
日常工作中，经常有excel明细生成word对账函的需求，为此专门写了个程序。这里做个记录，分享给大家。需求：excel明细生成word对账函，明细如下：word对账函格式如下：我们需要把每条明细生成1个word文档。这种用邮件合并可以做，但是一些特殊的地方还是不太方便。代码：利用VBA语言，用excel操作word，批量生成word。Public info() '定义动态数组，存储每个供应商
Copyright © 2005-2025 51CTO.COM 版权所有 京ICP证060544号
