å°excelåwordæ¾å¨åä¸ç®å½ä¸,
å¨excelä¸å»ºç«æé®,åå»åè¾å
¥ä¸å代ç :
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False 'å
³éå±å¹å·æ°
On Error Resume Next 'ææé误
Dim oSt As Range, wdDoc As Word.Document, wdRange As Word.Range
myPath = ThisWorkbook.Path & "\2.doc" 'å®ä¹wordæ件路å¾,ååèªå·±ä¿®æ¹,æ设å®ä¸º2.doc
Set wdDoc = GetObject(myPath) 'æå¼word
Dim key(2) 'å®ä¹ä¸ä¸æ°ç»,
key(1) = "abcdefg" 'è¦æ¿æ¢çæ°æ®
key(2) = "hijklmn"
Set wdRange = wdDoc.Content 'å°wordçææ¡£å
容èµäºwdrange
For i = 1 To 2 '循ç¯
With wdRange.Find
.Text = key(i) 'æ¥æ¾
.Replacement.Text = key(i) & IIf(i = 1, Cells(1, 1).Value, Cells(5, 2).Value) 'æ¿æ¢
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
wdRange.Find.Execute Replace:=wdReplaceAll 'å
¨é¨æ¿æ¢
Next
wdDoc.Save 'ä¿åword
wdDoc.Close 'å
³éword
Set wdDoc = Nothing
Application.ScreenUpdating = True 'å¼å¯å±å¹å·æ°
End Sub
ç»æµè¯,å·²ç»è¾¾å°æ¥¼ä¸»è¦æ±,请追å åæ°å¹¶é纳.åµåµ
追é®ä½ 好ï¼
æ¤å¥ç¼è¯æ²¡éè¿ï¼
Dim oSt As Range, wdDoc As Word.Document, wdRange As Word.Range
说æ¯ï¼ç¨æ·å®ä¹ç±»åæªå®ä¹ã
å·²å Qï¼è¯·ç´æ¥å°ä¸¤ä¸ªæ件åç»æå§ã
追çå¦,å¿äºåè¯ä½ äº.æå¼VBAåéè¦å¢å å¼ç¨:
MIcrosoft Word 12.0 Object Library æ§ä»¶,å¦åæ æ³ä½¿ç¨