Hi Steve,
The following Word Macro should do it.
I am sure there are better Macro writers that could give you a faster
one, but I made this one up by recording a procedure then making a loop
with it. I was able to convert your file.
Sub LinesToText()
'
' LinesToText Macro
' Converts alternating line files to tab delimited
'
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "^p"
.Replacement.Text = "^t"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = False
.MatchFuzzy = False
End With
Selection.Find.Execute
While Selection.Find.Found
With Selection
If .Find.Forward = True Then
.Collapse Direction:=wdCollapseStart
Else
.Collapse Direction:=wdCollapseEnd
End If
.Find.Execute Replace:=wdReplaceOne
If .Find.Forward = True Then
.Collapse Direction:=wdCollapseEnd
Else
.Collapse Direction:=wdCollapseStart
End If
.Find.Execute
End With
Selection.Find.Execute
Wend
End Sub
It should work on any glossary file with the two language in alternating
lines with paragraph breaks like this file. If the file has glitches or
extra line breaks, it will foul up.
If need be, I can send you the file privately.
Charles Aschmann