PDA

View Full Version : Removing accents from Greek



Mark Langley
04-05-2004, 07:17 PM
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
04-05-2004, 07:32 PM
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
04-05-2004, 08:06 PM
Thanks Philip, it works! :)

Really appreciate the help.