Вставка текста из скрипта в окно синтаксиса

'Вставка текста из скрипта в окно синтаксиса.

Sub Main
' Скрипт помещает текст, содержащийся в строковой переменной strSynCmd
' в конец окна назначения синтаксиса (Designated Syntax window).
' Автор: Raynald Levesque, 03.12.2002.

	Dim objSyntaxDoc As ISpssSyntaxDoc
	Dim strSynCmd As String
	Set objSyntaxDoc=objSpssApp.GetDesignatedSyntaxDoc

	strSynCmd =				"Строки синтаксиса (первая строка)" & Chr(13) & Chr(10)
	strSynCmd = strSynCmd & "вторая строка синтаксиса" & Chr(13) & Chr(10)
'	и т.д.
	strSynCmd = strSynCmd & "последняя строка синтаксиса" & Chr(13) & Chr(10)
'	Вставляем команды в конец текущего файла синтаксиса
	objSyntaxDoc.Text = objSyntaxDoc.Text & strSynCmd
End Sub