Returns the source and target texts of the translation unit.

Syntax:

 
GetSourceAndTarget( SourceText As Variant, 
TargetText As Variant ) As Boolean
Return: Boolean
Parameters: SourceText Parameter in which to save the source text.
TargetText Parameter in which to save the target text.
Example: 
Dim TU As TransUnit
Dim SourceText As Variant
Dim TargetText As Variant
Dim RetVal As Boolean

Set TU = Application.ActiveTransUnit

RetVal = TU.GetSourceAndTarget(SourceText, TargetText)

If (RetVal) Then
    MsgBox "Source: " & CStr(SourceText) & ", Target: " & CStr(TargetText)
End If
Remarks: The "SourceText" and "TargetText" parameters are of the type "Variant." A usage of this method in VBScript is therefore also possible.

See also:

Class TransUnit

Last Updated: 04/27/05