This issue of incorrect placement of metheg after a unicode export into Word may be repaired by running the following macro in Word:
Code:
Sub metheg_correct()
'
' metheg_correct Macro
'
' hatef-segol
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = ChrW(1457) & ChrW(1469)
.Replacement.Text = ChrW(1457) & ChrW(8205) & ChrW(1469)
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
'
' hatef-pathah
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = ChrW(1458) & ChrW(1469)
.Replacement.Text = ChrW(1458) & ChrW(8205) & ChrW(1469)
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
'
' hatef-qamets
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = ChrW(1459) & ChrW(1469)
.Replacement.Text = ChrW(1459) & ChrW(8205) & ChrW(1469)
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub
Regards,
David.