Sample Code Word Application for translators ASCII Databases
International Connections
and localization projects. If needed, you can start by looking at my
free samples.
You may have powerful computers, modern operating systems, and great
employees. That's not all. You can get the best of your investment by
creating automation scripts VB scritps, batch files, macros, and
create your own custom application. You can use automation utilities
to schedule jobs and tasks to occur during off-hours and weekends for
example. You do not need to buy software for every repetitive routine.
The Operating System offers most of what you need to increase your
productivity.
Don't be dependant on other software. Your computer is made to do
repetitive tasks!
Visit my sites for free sample code and comprehensive translation,
localization solutions, office automation, tools for personal desktop
or small businesses. My tools are saving considerable hours of work
and rework.
Legacy since 1996:
http://www.contactez.net/portfolio.html
Plain-text User Database Manager, bulk process on text and HTML files,
translation assistant utilities, reuse and recuperate data, preserve
terminology, maintain integrity between projects. Industrial
glossaries for translators and multilingual users. English/French
technical translation Database, technical glossaries, HTML help,
support, customization...
DSCAN-UDM DS-Utility is a commercial office automation software, fully
protected by copyright laws. Copyright 1996, 1997 Dominique Gérard
Schneider
ASRTPro is a commercial office automation software, fully protected by
copyright laws. Copyright 1999 Dominique Gérard Schneider and Benoît
Bilmans
Tradiciel is a commercial office automation software, fully protected
by copyright laws.
Copyright 2001 Dominique Gérard Schneider and Benoît Bilmans
http://tradiciel.ca
VB script code, configuration management, MSI installation technology,
shareware description, and other information:
http://members.tripod.com/Frenchtranslator
Support my Southern Belle Holiday Gifts, Candles & Home Decoration
http://gift.contactez.net
Gurley Community & Town History Alabama:
http://gurleyalabama.contactez.net
Free word macros sample code:
http://members.tripod.com/Frenchtranslator/macros.html
This free code allows you to use Word macros to select text, open and
read the contents of text file or ASCII User Databases, search for
matches, displays a dialog box to give a chance to the user to choose
a translation, and then replace the selected text in the Word Document
with the translation. You will find examples of Microsoft Word Macros
driven by dialog boxes. (You can customize the code for your own
translation or office automation needs)
- Sample code to select all the sentences one after the others and use
them as searchstring.
- Sample code to select a sentence and use it as searchstring
- Sample code to grab any selected text from a Word file and to search
it into User Databases in text format
Free Word template to registered users that have paid their DSCAN-UDM
registration, or to customers of the Southern Belle Holiday Gifts,
Candles & Home Decoration. This template, with the macros, allows you
(from within Microsoft Word) to:
- Select one or multiple User Databases
- Specify search parameters (case sensitive/insensitive, UDBs' path,
search filter)
- Search one or multiple selected User Databases
- Grab each sentence in the document, and then use the current
sentence to search the selected plain text UDB(s)
- Select one of the proposed replacement string(s) (if found in the
UDB)
- Ad a new translation in the document and also into a plain text
format User Database (if not found in the UDB)
- Start translation where you left it during a previous session
This customizable code and the Word template will be a great asset for
your enterprise and will give you a good base to create your own
Translation application from within Microsoft Word 2000.
'Open ASCII User database
FileNumber = FreeFile ' Open DB
If Len(UDB2Search) Then
Open UDB2Search For Input As FileNumber
Do While (Not EOF(FileNumber))
'Loop through the DB file line by line
Line Input #FileNumber, UDB_line
'read each db line....
More code... go to:
http://members.tripod.com/Frenchtranslator/macros.html
(with screen shots of running macros)
For more information & legacy since 1996 go to:
http://www.contactez.net/portfolio.html
Example of code:
Sub GetSelectedText()
' Code to select highlighted text and use it as searchstring
Dim TextFromDocFile As String
Dim R
If Len(Selection) > 1 Then
' Get reference to the selected text.
SearchString = Selection ' get the text that is highlighted
If SearchString = "" Or SearchString = " " Then
' Check if the selected text is not only spaces.
R = MsgBox("Search String Not Valid (Empty).",
vbInformation, "DSCAN-UDM")
Exit Sub
End If
Else
R = MsgBox("Select text in document.", vbInformation,
"DSCAN-UDM")
Exit Sub
End If
'Optional - Check if the user has selected at at least one UDB
If NombredUDBSelected < 1 Then
UserFormSelectUDBs.Show ' if not ask to select UDB
Exit Sub
End If
' Call the sub to do the actual search
SearchUDB SearchString
End Sub
More code....
http://members.tripod.com/Frenchtranslator/macros.html