摘要:朋友接到其领导交付的一个体力活:要把好多个位于不同目录下面的 Word 文档里的敏感字眼替换掉,如“美国”换成“某国” ...
对付文本文件的替换可以用 UltraEdit 来完成,暂时没找到有 Word 方面的工具,动手写了一个,简单实用,主要代码如下。'--替换目录
Sub ReplaceDir(dir As String)
Dim fso As New FileSystemObject, fo as Folder, fo1 as Folder, f as File
Set fo = fso.GetFolder(dir) '--初始目录
For Each f In fo.Files
If UCase(Right(f.Name, 4)) = ".DOC" And Left(f.Name, 1) <> "~" Then
ReplaceFile (f.Path)
......[
阅读全文]