VBA代碼來查找並突出顯示字符組合

我正在尋找Word中的VBA代碼以突出顯示引號外有句號的任何句子。即在文本「你好詞」中。我想要「，並在運行宏時突出顯示。VBA代碼來查找並突出顯示字符組合

@il_raffa ..我有一個代碼，可以突出顯示我不想在信中看到的單詞。不知道如何合併符號在裏面。

Sub HighlightTargets2() 

    Dim range As range 
    Dim i As Long 
    Dim TargetList 

    TargetList = Array("I", "We", "our", "discusses about", "we", "asserts") 
    For i = 0 To UBound(TargetList) 

    Set range = ActiveDocument.range 

    With range.Find 
    .Text = TargetList(i) 
    .Format = True 
    .MatchCase = False 
    .MatchWholeWord = True 
    .MatchWildcards = True 
    .MatchSoundsLike = False 
    .MatchAllWordForms = False 

    Do While .Execute(Forward:=True) = True 
    range.HighlightColorIndex = wdYellow 

    Loop 

    End With 
    Next 

    End Sub

來源

2015-10-27 Ishwarya

你做過任何嘗試嗎？ –

@il_raffa ..我有我的代碼來突出顯示我不想在信中看到的單詞。這裏是： – Ishwarya

我發現Word使用智能報價，所以如果你只是用之前「是不會工作

只需添加下面的代碼

'Chr(148) is the Character Code for Word Smart quote 
'This is what is inserted into Word when you press " 
char1 = Chr(148) & "."

您TARGETLIST線之上並改變你的TARGETLIST：

TargetList = Array("I", "We", "our", "discusses about", "we", "asserts", char1)

已嘗試過，它的工作突出顯示「。

來源

2015-10-28 07:44:07

它的工作原理。這正是我想要的。感謝Jean .. – Ishwarya

在Word中，顯示查找對話框（Ctrl + F鍵顯示任務窗格，而不是對話框中，從下拉列表中選擇「高級」。）

類型」。在查找框中點擊「閱讀突出顯示」，然後點擊「全部突出顯示」。

如果你確實需要這個宏，記錄一個宏然後執行上述操作。

來源

2015-10-27 16:56:02

我更喜歡使用代碼，因爲我的客戶不想在信中看到它，所以有很多單詞和符號。我們一直在嘗試這個查找和替換選項。它沒有奏效，因爲我們錯過了很多單詞。所以我試圖創建一個能夠突出顯示所有這些單詞的代碼。自動更正將不是一個選項，因爲我們主要做複製粘貼作業。請你提出一個解決方案。在此先感謝 – Ishwarya

請解釋如何使用查找不適用於您在原始問題中提到的組合。我在提出建議之前做了測試。我解釋瞭如何製作宏代碼。 –

我們有太多的單詞和符號來檢查。因此，對每一個單詞或符號使用find都會佔用我們更多的時間。我嘗試使用宏。沒有爲我工作。我完全按照你所說的去做。創建了一個宏，找到並閱讀了突出顯示的所有單詞和符號，然後停止錄製。但它沒有工作。不過，我只是試圖通過使用鍵盤大膽的一個詞。有效。是因爲我用鼠標操作，它不適用於我 – Ishwarya

VBA代碼來查找並突出顯示字符組合

回答

相關問題