返回列表 上一主題 發帖

Word VBA 指定範圍取代問題

ciboybj

帖子
47 
主題
19 
精華
0 
積分
82 
點名
0  
作業系統
win  
軟體版本
xp 
閱讀權限
20 
註冊時間
2014-7-4 
最後登錄
2021-9-4 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 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

  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

  33.     End With
  34.     findTxt_Shading = boolean_checkFound


  37.    
  38. End Function
  39. Sub test()
  40.    
  41.     a = myFun_findTxt2addShading("一", Selection.Range, "一", wdColorYellow)

  43. End Sub
複製代碼
有人可以幫忙解決嗎∼∼∼
謝謝
收藏 分享

        靜思自在 : 忘功不忘過，忘怨不忘恩。
返回列表 上一主題