會員 ![]() | 如何將word中除了 中文 之外其他字元 符號...去除 因為工作及興趣 掃描文件 但是遇到中文之外 很多 符號 逗點 字母之類的 想將中文保留 其他英文 或是符號 去除 可以用巨集的方式處裡嗎? 謝謝?? 也就是下面這個的相反作法 Sub 去掉中文() Selection.HomeKey wdStory With Selection.Find .ClearFormatting .Replacement.ClearFormatting .Execute "^p", Replacewith:="^l", MatchWildcards:=False, Replace:=wdReplaceAll .Execute "[!A-z 0-9 . ^t^l]", Replacewith:=" ", MatchWildcards:=True, Replace:=wdReplaceAll .Execute "^l", Replacewith:="^p", MatchWildcards:=False, Replace:=wdReplaceAll End With End Sub 這個巨集是用[取代]的方式把中文字改為全形空白. 為什麼可以用取代? 因為Word 尋找/取代 有[萬用字元]的功能可以 自訂靈活的搜尋條件, 如同程式中的 [!A-z 0-9 . ^t^l]. 若你不想把中文字取代為全形空白(也就是不預留中文字的位置), 那麼請把中間Replacewith:=" " 的全形空白去掉. |
回覆 |
會員 ![]() | 回覆: 如何將word中除了 中文 之外其他字元 符號...去除 google 搜尋 WORD VBA 取代 http://www.google.com.tw/search?hl=z...meta=&aq=f&oq= 找到如下: C:\下放一個 Replace.txt 內容改為 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 0, a, b, c, d, e, f, g, h, i, j, k, l, m, n, o, p, q, r, s, t, u, v, w, x, y, z, A, B, C, D, E, F, G, H, I, J, K, L, M, N, O, P, Q, R, S, T, U, V, W, X, Y, Z, <, >, ....... 其餘符號請自己加. Option Base 0 Sub MassReplace() Dim arrStr() As String, InputStr As String Fn = FreeFile Open "C:\Replace.txt" For Input As #Fn '開啟 Replace.txt 檔 Application.ScreenUpdating = False '畫面暫停更新 While Not EOF(Fn) Line Input #Fn, InputStr '從檔案讀出一列, If Len(InputStr) > 0 And Mid(InputStr, 1, 1) <> "" Then '若第一個字元是'就跳過此列 arrStr = Split(InputStr, ",")'把讀入的文字列依逗號分成兩個字串,置於 arrStr 陣列裡 Call ReplaceText(arrStr(0), arrStr(1)) ' End If Wend Application.ScreenUpdating = True '畫面恢復更新 Close #Fn End Sub Function ReplaceText(Src As String, Rpl As String) '這個函式會在整個檔案裡搜尋 Src 字串, 將它取代為 Rpl 字串 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 .MatchWholeWord = False .MatchByte = True .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = False .MatchFuzzy = False .Execute Replace:=wdReplaceAll'全部取代 End With End Function |
回覆 |
會員 ![]() | 回覆: 如何將word中除了 中文 之外其他字元 符號...去除 感謝 太好用了 那就是直接編輯 "那個文字檔"就可以修正其他的辨識錯誤了 太好了 |
回覆 |
|
![]() | ||||
主題 | 主題作者 | 討論版 | 回覆 | 最後發表 |
[求助]使用xoops架站中文語系會出現???符號 | htkstw | -- 網 路 軟 體 討 論 二 版 (網路其他軟體) | 4 | 2009-11-06 07:37 PM |
【求助】我的複制功能有問題(CC 符號?) | yvonne | -- HELP ME 電 腦 軟 硬 體 急 救 版 | 0 | 2005-09-23 11:40 PM |
有關Sniffer使用方法的網站(中文) | gwochern | -- 優 質 網 站 分 享 | 0 | 2002-12-19 06:08 PM |
有關PXE技術文件或教學網站(中文) | mice | -- 網 路 技 術 版 | 3 | 2001-07-22 02:43 PM |
XML | RSS 2.0 | RSS |
本論壇所有文章僅代表留言者個人意見,並不代表本站之立場,討論區以「即時留言」方式運作,故無法完全監察所有即時留言,若您發現文章可能有異議,請 email :[email protected] 處理。