Replies

I can find Arabic numbers one by one, using [٠-٩] and select wildcards box.
I want to find and select a group of numbers in Arabic? But how?

Thanks to both of you.

Thanks for your help.

Thanks for your reply.
I got to use “Selection.Characters.First” and “Selection.Characters.Last”.

How abaut find more than two texts?
I mean let’s find
.Text = “([a-zA-Z]) ([0-9]) ([a-zA-Z])”

No code like this:
Selection.Characters.mid
or
Selection.Text(1)

Sory, I couldn’t understand.
Just run macro and find the text.
And tell me “second part of finding text” color.
Or what is wrong this code?
Selection.Text(0).color
Selection.Text(1).color

Perfect!
Thank you very much.

I tried, but couldn’t get the active cursor position’s headings.
Not levels but as text.

Thank you.
I wish The microsoft sees this subject.

Thank you very much.

Hi!
This is much more useful for diacritics. Thank you very much.

Code:

Sub FindWordsWithCharacter()
 Dim w
 For Each w In ActiveDocument.Range.Words
 If InStr(w.Text, ChrW(1611)) Or InStr(w.Text, ChrW(1612)) Or InStr(w.Text, ChrW(1613)) Or InStr(w.Text, ChrW(1614)) _
    Or InStr(w.Text, ChrW(1615)) Or InStr(w.Text, ChrW(1616)) Or InStr(w.Text, ChrW(1618)) _
    Or InStr(w.Text, ChrW(1619)) Or InStr(w.Text, ChrW(1622)) Then ‘ words with diacritics
 w.Font.Color = wdColorRed
 End If
 Next
 End Sub

I found a simple solution.

1. First turn Wildcards on in the Find dialog.
2. Click More
3. Click special
4. Select Square brackets [-] it’s important to select with – among them.
5. Copy this group of characters ًٌٍَُِّْٕٖٔٓ You can add other characters typing ALT+1611 to ALT+1622 (The generic term for such diacritical signs is ḥarakāt).
6. Select – sign and paste
7. You’ll have a view like this [ًٌٍَُِّْٕٖٔٓ] here there are 14 characters but they do not appear !!!
8. Click find. You can find any of them.
9. Close Find dialog.
10. Run that kind of macro or any other your own.

Sub FindInFindDialog()
Dim i As Integer
For i = 1 To 300
Selection.Find.Execute
Selection.Expand unit:=wdWord
Selection.Font.Color = wdColorRed
Next
End Sub

This example changes the color of the selected words (words by words, so phrases) to red.

Hi!
I was a bit confused. But I’ll try to understand. Many thanks.

I found some knowledge.
There are 8 Unicode characters by number. If I can find any of them, then I will expand the word.
ChrW(1611), ChrW(1612), ChrW(1613), ChrW(1614), ChrW(1615), ChrW(1616), ChrW(1617), ChrW(1618)
I wrote a macro, but it didn’t work.
Or any other solutions…

Code:

Sub FindAnySymbols()
    Call findnembol(FindChar:=ChrW(1611) Or ChrW(1612) Or ChrW(1613) Or ChrW(1614) Or ChrW(1615) Or ChrW(1616) Or ChrW(1617) or ChrW(1618), FindFont:="Symbol")
End Sub

Sub findnembol(FindChar As String, FindFont As String)
Dim FoundFont As String, OriginalRange As Range, strFound As Boolean
Application.ScreenUpdating = False
Set OriginalRange = Selection.Range
strFound = False
With Selection.Find
    .ClearFormatting
    .Text = FindChar
    .Replacement.Text = ""
    .Forward = True
    .Wrap = wdFindStop
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
End With
Selection.Find.Execute
Selection.Extend
End Sub

How can I write such macro?
What is the ascii code of symbols for the letters in Arabic?

That’s enough for now. Thank you to everyone.