![]() |
|
#1
|
||||
|
||||
![]()
Try this version which works on your brief sample - it appears the dash is using the extended Ascii codes.
Code:
Sub Macro1() With ActiveDocument.Range.Find .ClearFormatting .Replacement.ClearFormatting .Text = ChrW(8209) & " " .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False .Execute Replace:=wdReplaceAll End With End Sub
__________________
Andrew Lockton Chrysalis Design, Melbourne Australia |
#2
|
|||
|
|||
![]()
Thanks so much Andrew
It works perfectly ![]() You are the hard task man Thanks again |
![]() |
|
![]() |
||||
Thread | Thread Starter | Forum | Replies | Last Post |
![]() |
rogiburn | Word | 3 | 05-12-2021 10:24 AM |
![]() |
technofleep | Word | 7 | 06-28-2016 04:39 PM |
![]() |
barrage | Word | 1 | 12-16-2015 02:59 PM |
![]() |
spc94 | Word VBA | 3 | 06-25-2015 04:46 AM |
Copied shape/text box pastes as an image in Word | spectator | Word | 0 | 06-04-2014 08:45 AM |