I can't replace some bullet points (chr 183)

alex100 · #1 02-20-2023, 06:27 AM

I am trying to replace some bullet points in a Word document (using a script). I would like to mention they are not part of a bullet list, they are shown as regular text. In the font box of MS Word, I see "Symbol", and when I go to the 'Insert > Symbol' menu, the listed code number is 183.

I wrote this small script that is supposed to change all these bullets within the current selection. The problem is that it is not working. I select the text, run the script, but it does not change anything.

Any idea why, and what else could I try, please?

Thank you!

Alex

Code:

Selection.Find.ClearFormatting
With Selection.Find
    .Text = Chr(183)
    .Replacement.Text = "-"
    .Forward = True
    .Wrap = wdFindStop
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Bullet-points Spacing's	France6	Word	5	02-07-2017 06:08 PM
Trouble using bullet points / sub bullet points within Word 2013	Mr Davo	Word	2	04-18-2016 04:31 PM
Bullet points with text?	jjmclell	Word	2	03-01-2013 11:42 AM
Advanced search and replace for bullet points	TishyMouse	Word	5	02-17-2012 06:32 AM
Bullet points shortcut	OfficeAppentice	Word	1	04-30-2010 04:13 PM