Can someone please help me to modify this code, or supply similar code, to change every instance of an asterisk (*) in a Work document from Excel.
Help will be greatly appreciated.
PHP Code:With objDoc
With Selection.Find
While .Execute(FindText:="*", Forward:=True)
If .Found = True Then
Selection.Font.Color = vbRed
End If
Wend
End With
End With
Last edited by VBA_Novice_VBA; 04-02-2023 at 05:52 PM.
Maybe :
Please Login or Register to view this content.
1. I care dog
2. I am a loop maniac
3. Forum rules link : Click here
3.33. Don't forget to mark the thread as solved, this is important
This code worked for me. Thank you very much!
PHP Code:With objDoc.Content.Find
.ClearFormatting
With .Replacement
.ClearFormatting
.Font.Color = vbRed
End With
.Execute FindText:="*", Format:=True, Replace:=wdReplaceAll
End With
You are welcome, thanks for marking the thread as solved.
Regards
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
Register To Reply
Bookmarks