VarAssignment.ChangeTargetVariable

ChangeTargetVariable(nNewTargetID As Long,bsProject As String) As Boolean

Parameters

nNewTargetID As Long

PvID of new target variable as string.

bsProject As String

Projectname as string.

Remarks

Change target (can be member of another project).

Sample:

Sub CallChange()
	ChangeAssignment MyWorkspace.ActiveDocument.VarAssignments.Item("MyAssignment")
End Sub

Sub ChangeAssignment(zVarAssign As VarAssignment)
Dim zSrcVar As Variable
Dim zDstVar As Variable
Dim strProject As String

	Set zSrcVar = MyWorkspace.ActiveDocument.Variables.Item("WIZ_VAR_11")
	Set zDstVar = MyWorkspace.ActiveDocument.Variables.Item("WIZ_VAR_12")
	strProject = MyWorkspace.ActiveDocument.Name
	'change the source and target variable
	With zVarAssign
		.ChangeSourceVariable strProject, zSrcVar.PvID
		.ChangeTargetVariable strProject, zDstVar.PvID
	End With
End Sub

See Also

VarAssignment