请问用 VBS 如何实现
对“C:\Filelist.txt" 中以逗号分隔的文件列表所列 Word 文件（完整路径名）的内容进行文字替换。将 A 替换为 B，将 C 替换为 D，并保存退出。
说明：Filelist.txt 中所列文件均为 word 文件，数量未知。
我搞了两天也没搞出来。哪位大侠能帮我一把？
问题点数：20、回复次数：6Top
1 楼xmxoxo（xmxoxo）回复于 2006-11-03 00:24:55 得分 0
没明白，你文件里面什么格式，贴出来看看。
文件里面只有文件全路径，那替换什么？每个文件替换的内容一样吗？
用程序读出每个文件，然后做替换的操作就是了，看你用什么实现，
用VB的话，可以用一个richtext来读入word文件的内容。Top
2 楼happy_sea（开心海(数据读取中，请稍候......)）回复于 2006-11-03 08:11:01 得分 20
思路：
打开文件列表，读入全部内容，用split分隔一下得到每个文件，调用word对象逐个完成替换并保存。
用richtext的话打开高版本的word文档有可能出问题。Top
3 楼flyarrow666（花花幼稚园）回复于 2006-11-03 10:23:22 得分 0
我想写一个vbs文件。从txt文件中获取word文件列表，并对所列的word文件的内容进行文字替换。将文字“A”全部替换为文字“B”，文字“C”全部替换为文字“D”。
而且我发现一个奇怪的现象，下面的语句可以完成全局替换：
WdApp.Selection.Find.Style = "tw4winInternal"
With WdApp.Selection.Find
.Text = ""
While .Execute
WdApp.Selection.Text = "|" + WdApp.Selection.Text + "$"
Wend
End With
' 而下面的语句却只能替换一处：
WdApp.Selection.Find.Style = "tw4winInternal"
With WdApp.Selection.Find
.Text = "|<"
.Wrap = wdFindContinue
While .Execute
WdApp.Selection.Text = "<"
Wend
End With
为什么啊？
Top
4 楼zzyong00（阿勇）回复于 2006-11-03 12:27:52 得分 0
没有明白你意思，你是要对Filelist.txt里的替换呢，还是要对哪些WORD文件替换Top
5 楼flyarrow666（花花幼稚园）回复于 2006-11-03 12:33:43 得分 0
对 Word 文件进行替换啊。Top
6 楼flyarrow666（花花幼稚园）回复于 2006-11-03 21:53:49 得分 0
思路我是有的，只是替换的的时候出问题。
现在已经解决了。结了Top
