Jun 23 2022 08:05 AM
I have successfully replaced the first character in a doc(hebrew) to a diff color. Used a macro to accomplish this. The doc has hebrew vowels under or part of each letter.
I used a new macro to delete every letter that is black. This kept all letters that were initially changed to another color.
The issue is upon deletion of the black characters, I'm left with the colored characters, but with the hebrew vowels removed. How do I prevent it from happening.
Jun 23 2022 03:49 PM
Jun 23 2022 04:09 PM
Jun 23 2022 06:07 PM
Jun 23 2022 07:54 PM
Jun 25 2022 08:39 PM
Jun 25 2022 11:27 PM
@ggre1335 Sorry, but not knowing Hebrew, I am not able to distinguish the vowels from anything else in the document.
This is what I see when I open the document
Jun 26 2022 05:03 AM
Jun 26 2022 06:17 AM
Jun 26 2022 08:59 AM
Jun 26 2022 01:00 PM
Jun 26 2022 01:40 PM
Problem. I need to have all the remaining letters connected as a long string. My macro which follows deleted all the black with the remaining letters run-on without the vowlels
here's the macro
Sub DeleteBlackLettersInWords()
Dim objWord As Range
Dim i As Integer
For Each objWord In ActiveDocument.Words
' Delete black characters in every word.
For i = objWord.Characters.Count To 1 Step -1
If objWord.Characters(i).Text <> " " And objWord.Characters(i).Font.ColorIndex = wdColorBlack Then
objWord.Characters(i).Delete
End If
Next i
Next
' MsgBox "Done.", vbOKOnly, "Done"
End Sub
Jun 26 2022 05:57 PM - edited Jun 27 2022 01:41 AM
@ggre1335 Starting with the result of my previous procedure, after much trial and error, I was able to produce
As I recall the steps were (with the font format set to White, Background 1 for the Find what control:
^S finds any letter
^& represents the Find what text
^w finds white space
Jun 27 2022 06:36 AM
@Doug_Robbins_Word_
I appreciate all the help. Walk me thru your steps
^S finds any letter
^& represents the Find what text
^w finds white space
where is all the above taking place
Jun 27 2022 04:36 PM
Jun 27 2022 11:29 PM - edited Jun 28 2022 06:10 PM
@ggre1335 Starting with your original file:
Jun 28 2022 09:32 AM
Having a problem following your steps
step 2 In the Find what control, insert ^S
is that a caret S or special character followed by a S
special char S is not a valid char for find what box
i'll take it one step at at a time
when I resolve this
I'll reply
Jun 28 2022 01:25 PM
Jun 28 2022 05:03 PM
thank you for your response. If you look at your step by step instructions step 1 says
Jun 28 2022 06:11 PM