Removing accents from Greek

[Mark Langley]

Does anyone know of a quick way to remove accents and other forms of punctuation from a large chunk of Greek text after imported into say WordPerfect or MS Word? If I remember correctly Mike B used a program to add the accents to some of the Greek texts used in BW.

Thanks.

[Philip Brown]

The quickest way I know would be to create a macro that strips them out.

In Word 97 and above the VBA would be

Sub StripOutGreekAccents()
'
' StripOutGreekAccents Macro
' Macro recorded 4/5/2004 by Dr. A. Philip Brown II
'
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
'Removes acute accents
With Selection.Find
.Text = ","
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
End With
Selection.Find.Execute Replace:=wdReplaceAll
'Removes grave accents
With Selection.Find
.Text = "."
.Replacement.Text = ""
End With
Selection.Find.Execute Replace:=wdReplaceAll
'Removes circumflexes
With Selection.Find
.Text = "/"
.Replacement.Text = ""
End With
Selection.Find.Execute Replace:=wdReplaceAll
'Removes smooth breathing marks
With Selection.Find
.Text = "v"
.Replacement.Text = ""
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub

That covers the basics. You could just use this as a template and add all the rest of the accent & breathing mark combinations.

[Mark Langley]

Thanks Philip, it works!

Really appreciate the help.