Saves the translation shown in the Translation Edit bar.

Syntax:

 
SaveTranslation()
Example: 
Dim Bar As TranslationEditBar
Set Bar = Application.Windows.TranslationEditBar

' get source text    
MsgBox Bar.SourceText

' set target text
Bar.TargetText = "Translation"

' save translation
Call Bar.SaveTranslation

See also:

Class TranslationEditBar

Last Updated: 04/27/05