- ©«¤l
- 13
- ¥DÃD
- 3
- ºëµØ
- 0
- ¿n¤À
- 16
- ÂI¦W
- 0
- §@·~¨t²Î
- WINXP
- ³nÅ骩¥»
- OFFICE2003
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-8-9
- ³Ì«áµn¿ý
- 2024-9-1
|
°¶Ôбz¦n¡G
§Ú±N¸Ó½d¨Ò¤¤ªºtxt§ï¬°doc¡A¦ý¬O¥X²{¿ù»~°T®§¦p¤U(¦p¬õ¦â©Ò¥Ü)
Option Base 0
Sub Document_Open()
Dim arrStr() As String, InputStr As String
Fn = FreeFile
Open "c:\Replace.doc" For Input As #Fn '¶}±ÒReplace.docÀÉ
Application.ScreenUpdating = False 'µe±¼È°±§ó·s
While Not EOF(Fn)
Line Input #Fn, InputStr '±qÀÉ®×Ū¥X¤@¦C,
If Len(InputStr) > 0 And Mid(InputStr, 1, 1) <> "'" Then 'Y²Ä¤@Ó¦r¤¸¬O'´N¸õ¦¹¦C
arrStr = Split(InputStr, ",") '§âŪ¤Jªº¤å¦r¦C¨Ì³r¸¹¤À¦¨¤GÓ¦r¦ê¡A¸m©ó arrStr°}¦C¤º
Call ReplaceText(arrStr(0), arrStr(1)) '
End If
Wend
Application.ScreenUpdating = True 'µe±«ì´_§ó·s
Close #Fn
End Sub
Function ReplaceText(Src As String, Rpl As String) '³oӨ禡·|¦b¾ãÓÀɮ׸̷j´MSrc¦r¦ê¡A±N¥¦¨ú¥N¬°Rlp¦r¦ê
Selection.HomeKey Unit:=wdStory, Extend:=wdMove
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = Src
.Replacement.Text = Rpl
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchByte = True
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = False
.Execute Replace:=wdReplaceAll '¥þ³¡¨ú¥N
End With
End Function
¤£ª¾À³¸Ón«ç»ò§ï¡A¤~¯à¥¿½TÅã¥Ü¡A·PÁ±zªºÀ°¦£¡C |
|