! Free Word6 macro for localization - Votre compagnon

[idgu...@interserv.com]

I am not sending this with the intention to advertise my services - I am only trying to exchange ideas
between natural language related professionals.
Asked by many localization coordinators who contacted me, here
is a Word macro which allows to search a database from within Microsoft Word.
Used in conjunction with:
UNIX to Windows conversion and substitution scripts
DPTL or Transcend Automatique Translation System
Visit my page at:
http://iquest.com/~btatro/lang.html# Sub MAIN

retour$ = Chr$(13)
guill$ = Chr$(34)
delim$ = Chr$(96)
lemot$ = Selection$()
If Len(lemot$) <= 2 Then
MsgBox "Please, select more than 2 letters"
Goto Done
End If
numwin = CountWindows()
If numwin > 1 Then
For i = 1 To numwin - 1
winname$ = WindowName$(i)
If InStr(winname$, "ENSORTIE.BER") Then
MsgBox "DOCUMENT ENSORTIE.BER will be closed"
Activate winname$
FileClose
End If
Next
End If

Dim ouvrir As FileOpen
choix = Dialog(ouvrir)
If choix = - 1 Then
nomfichier$ = ouvrir.Name
MsgBox nomfichier$
Open nomfichier$ For Input As #1
While Not Eof(#1)
Line Input #1, Ligne$
TestFeed = InStr(Ligne$, Lemot$)
If TestFeed > 0 Then
NbrFound = NbrFound + 1
Posa = InStr(Ligne$, delim$)
Ltotal = Len(Ligne$)
Anglais$ = Left$(Ligne$, Posa - 1)
Etranger$ = Right$(Ligne$, Ltotal - Posa)
NewLigne$ = Anglais$ + Chr$(13) + Chr$(9) + Etranger$
Insert NewLigne$
End If
Wend
Close
End If

# Contact: idgu...@interserv.com - Votre compagnon
# For other scripts, see my posted messages in this news group.