求一个VBA程序，能自动替换一个文件夹下所有word，excel文件名和文件内容中的关键字。

Question

一个文件夹下有多个word，excel文件，需要把文件名中，文件内容中一系列关键字批量替换，关键字和要替换字最好能从配置文件中读取。

Answer 1

'更改Doc文件内容
Private Sub Command1_Click()
  Dim wdApp As New word.Application
  Dim wdDoc As New word.Document
    
  FileCopy "D:\demo\1.doc", "D:\demo\2.doc" '将文件名 1 改为 2
  Kill "D:\demo\1.doc"
  
  Set wdDoc = wdApp.Documents.Open("D:\demo\2.doc")
  
  wdDoc.ActiveWindow.Selection.Find.Execute "1", , , , , , , , , "2", wdReplaceAll  '将1字改为 2 字
  
  wdDoc.Save
  wdDoc.Close
  wdApp.QuitEnd Sub
'更改Excel文件内容
Private Sub Command2_Click()
  Dim xlApp As New Excel.Application
  Dim xlBook As New Excel.Workbook
  Dim xlSheet As New Excel.Worksheet
    
  FileCopy "D:\demo\1.xls", "D:\demo\2.xls" '将文件名 1 改为 2
  Kill "D:\demo\1.xls"
  
  Set xlBook = xlApp.Workbooks.Open("D:\demo\2.xls")
  
  Set xlSheet = xlBook.ActiveSheet
  xlSheet.Cells.Replace "1", "2"
  
  xlBook.Save
  xlBook.Close
  xlApp.Quit
  
End Sub