我需要更多關於「查找」和「替換爲」

Question

我需要相關"Find"和"Replace"

• 在Word文檔中，我需要做的改變Excel工作表詞典（Excel工作表名稱基礎上定義的話VBA查詢VBA查詢：Pardu ） Excel工作表的位置："D:\Documents and Settings\Administrator\Desktop\Pardu.xlsx"

示例：在預先定義的word文檔字'Goodboy'（A2單元字）應'Good Boy'改變（B2單元字）

像that..Based A和B柱，我需要全部更換'Column A words'作爲'Column B words'

A1= NATIVE REPLACE B1 
A2= Goodboy Good Boy B2 
A3= Hw ar you How are you? B3 
A4= Paardu Pardu B4 
A5= :',.lk kqwljn B5 

請寄給查詢到：mynameispardu@gmail.com

謝謝你， Pardu。

Answer 1

需要精確的VBA查詢像下面..

Sub Pardu() 
' 
' Pardu Macro 
' 
Sub Main() 
Dim xl As Object 'Excel.Application 
Dim wb As Object 'Excel.Workbook 
Dim ws As Object 'Excel.Worksheet 
Dim rng As Object 'Excel.Range 
Dim cl As Object 'Excel.Range 
Set xl = CreateObject("Excel.Application") 
Set wb = xl.Workbooks.Open("D:\Documents and Settings\Administrator\Desktop\Pardu.xlsx") '## Modify as needed 
Set ws = wb.Sheets(1) '##Modify as needed 
Set rng = ws.Range("A2", ws.Range("B2").End(xlDown)) 
For Each cl In rng 
    Call Macro5(cl.Value, cl.Offset(0, 1).Value) 
Next 
End Sub