標題: Word VBA 指定範圍取代問題 [打印本頁]

---

作者: ciboybj    時間: 2018-11-12 13:07     標題: Word VBA 指定範圍取代問題

各位高手好∼
我寫了一個Function 來執行指定範圍、指定文字、指定底色的取代
可是執行時發現並沒有辦法指在指定範圍中進行取代 而是會變成整篇取代

1. Public Function myFun_findTxt2addShading( _
   
2.                 str_findTxt As String, _
   
3.                 range_myRange, _
   
4.                 str_repTxt As String, _
   
5.                 str_ShadingColor As String) As Boolean
   
6.    
   
7.     Dim boolean_checkFound As Boolean
   
8.     boolean_checkFound = False
   
9. 
   
10.     range_myRange.Select
    
11.     With Selection
    
12.         .Find.ClearFormatting
    
13.         .Find.Replacement.ClearFormatting
    
14.         .Find.Text = str_findTxt
    
15.         .Find.Replacement.Text = str_repTxt
    
16.         .Find.Forward = True
    
17.         .Find.Replacement.Font.ColorIndex = str_RepFontColor
    
18.         .Find.Wrap = wdFindStop
    
19.         Do While .Find.Execute
    
20.             Selection.Shading.Texture = wdTextureNone
    
21.             Selection.Shading.ForegroundPatternColor = wdColorAutomatic
    
22.             Selection.Shading.BackgroundPatternColor = str_ShadingColor
    
23.             boolean_check = True
    
24.         Loop
    
25.         .Find.Format = False
    
26.         .Find.MatchCase = False
    
27.         .Find.MatchWholeWord = False
    
28.         .Find.MatchByte = False
    
29.         .Find.MatchWildcards = False
    
30.         .Find.MatchSoundsLike = False
    
31.         .Find.MatchAllWordForms = False
    
32. 
    
33.     End With
    
34.     findTxt_Shading = boolean_checkFound
    
35. 
    
36. 
    
37.    
    
38. End Function
    
39. Sub test()
    
40.    
    
41.     a = myFun_findTxt2addShading("一", Selection.Range, "一", wdColorYellow)
    
42. 
    
43. End Sub

複製代碼

有人可以幫忙解決嗎∼∼∼
謝謝

---

作者: ggeess    時間: 2019-5-21 17:28

取代之後，範圍需不需要重新選取

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)