Question

excel的vba中替换word文档制定字符串 求vba代码

我有个“基本信息”工作表，里面有 姓名 车号 单位 等信息。另有固定格式的word文档，word文档有文章形式也有表格混杂，。现想用excel中基本信息工作表的内容替换word文档的相应位置内容。
比如 word中这样：【日期】驾驶员【姓名】驾驶【车号】车辆，行驶至【地址】 这些把带【 】的内容替换为excel基本信息表的相应内容
出来的word就该是 2014年8月19日驾驶员张三驾驶车号为新A23214的车辆，行至G30线K200处这样。然后另存为一个word文档到指定目录

Answer 1

打开VBA，工具-引用-Microsoft VBScript Regular Expressions

Function StrReplace(s As String, p As String, r As String) As String

Dim re As RegExp
Set re = New RegExp
re.IgnoreCase = True
re.Global = True
re.Pattern = p
StrReplace = re.Replace(s, r)

End Function