02-21-2017, 09:15 AM
|
|
Novice
|
|
Join Date: Feb 2017
Posts: 5
|
|
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
|
|
Similar Threads
Adding bullet points to rich text control
Windows 7 64bit 
Office 2013
Threaded Mode