Microsoft Office Forums - View Single Post - [Solved] Replacing formatted bullet points as a plain text character?

onlywonderboy · 02-21-2017, 09:15 AM

Can do! Here is the sample text I've been working with.

Additionally here is the full code I'm working with

Quote:

Sub AsiaNetFormat()
'
' AsiaNetFormat Macro
'

ActiveDocument.ConvertNumbersToText

ActiveDocument.Select
Selection.ClearFormatting

With Selection.Find
.ClearFormatting
.Text = "^0233"
.Replacement.ClearFormatting
.Replacement.Text = " - "
.Execute Replace:=wdReplaceAll, Forward:=True, _
Wrap:=wdFindContinue
End With

With Selection.Find
.ClearFormatting
.Text = "®"
.Replacement.ClearFormatting
.Replacement.Text = "(R)"
.Execute Replace:=wdReplaceAll, Forward:=True, _
Wrap:=wdFindContinue
End With

With Selection.Find
.ClearFormatting
.Text = "©"
.Replacement.ClearFormatting
.Replacement.Text = "(C)"
.Execute Replace:=wdReplaceAll, Forward:=True, _
Wrap:=wdFindContinue
End With

With Selection.Find
.ClearFormatting
.Text = "™"
.Replacement.ClearFormatting
.Replacement.Text = "(TM)"
.Execute Replace:=wdReplaceAll, Forward:=True, _
Wrap:=wdFindContinue
End With

With Selection.Find
.ClearFormatting
.Text = "°"
.Replacement.ClearFormatting
.Replacement.Text = " degrees"
.Execute Replace:=wdReplaceAll, Forward:=True, _
Wrap:=wdFindContinue
End With

With Selection.Find
.ClearFormatting
.Text = "£"
.Replacement.ClearFormatting
.Replacement.Text = "pounds "
.Execute Replace:=wdReplaceAll, Forward:=True, _
Wrap:=wdFindContinue
End With

With Selection.Find
.ClearFormatting
.Text = "€"
.Replacement.ClearFormatting
.Replacement.Text = " euros"
.Execute Replace:=wdReplaceAll, Forward:=True, _
Wrap:=wdFindContinue
End With

Dim HLnk As Hyperlink
For Each HLnk In ActiveDocument.Hyperlinks
HLnk.Range.InsertAfter " (" & HLnk.Address & ")"

Next

Dim oField As Field
For Each oField In ActiveDocument.Fields
If oField.Type = wdFieldHyperlink Then
oField.Unlink
End If
Next
Set oField = Nothing

End Sub