Event fired when a text is saved to a dictionary.

Syntax:

OnSaveTranslation(FileType As String, Filename As String, SourceText As String, 
TargetText As String, ContextType As String, ReturnSuccess As ReturnBoolean)
Parameters: FileType Type of the file on which the dictionary is based.
FileName Name of the file on which the dictionary is based.
SourceText Source text to be stored.
TargetText Target text to be stored.
ContextType Context type to be stored.
ReturnSuccess Parameter to store in if the save operation is successful.

Example:
' in a class module "EventClass"

Dim WithEvents App As Application

Private Sub App_OnSaveTranslation(ByVal FileType As String, ByVal Filename As String, 
ByVal SourceText As String, ByVal TargetText As String, 
ByVal ContexType As String, ByVal ReturnSuccess As ReturnBoolean)
 
[...]

End Sub

' in a module

Public EventManager As New EventClass

Sub TestMacro()
	Set EventManager.App = Application
End Sub

See also:

Class Application

Last Updated: 04/26/05