Всем доброго дня!
(SQL разработчикам, которые работают в банке.)
Помогите пожалуйста, Как заставить работать Visual Basic код в PL plus в разделе Клиент скрипт?
Visual Basic выполняет конвертацию Word документ в PDF документ. И при распечатке внутри ЦФТ Word документ (готовый шаблон) автоматически конвертирует в PDF формат и автоматически откроет его. Я это внутри Word'a уже сделал, мне надо вот этот Visual Basic код пересадить внутри PL plus в разделе "Клиент скрипт". Помогите, плииз..

ОТКРОЙКЕ ВОРД ПЕРЕЙДИТЕ РАЗДЕЛ "РАЗРАБОТЧИК" (если не нашли, то можно включить в параметрах (если что загуглите)) ВНИЗУ СЛЕВА ГДЕ "фАЙЛ" ЕСТЬ VISUAL BASIC ТУДА ПЕРЕЙДИТЕ И ВСТАВЬТЕ ЭТОТ КОД И ЗАПУСТИТЕ.

Sub Word_ExportPDF()
Dim NewFolders As String
Dim FileName As String
Dim myPath As String

'======================================Created New Folder=====================================
NewFolders = Environ("HOMEDRIVE") & Environ("HOMEPATH") & "\Documents\"
Dim FSO
Dim saveFolder As String

Set FSO = CreateObject("Scripting.FileSystemObject")
saveFolder = NewFolders & "/" & "filesystems001001"

If Not FSO.FolderExists(saveFolder) Then
FSO.CreateFolder (saveFolder)
End If
'======================================/Created New Folder=====================================

'==============================Удаляет все файлы с расширением .pdf============================
Dim AllFilesMask As String
AllFilesMask = saveFolder & "\*.pdf"
If Len(Dir(AllFilesMask)) > 0 Then
Kill AllFilesMask
End If
'============================/Удаляет все файлы с расширением .pdf============================



'Сохранить информацию о файле Word
myPath = ActiveDocument.FullName


FileName = Mid(myPath, InStrRev(myPath, "\") + 1, _
InStrRev(myPath, "") - InStrRev(myPath, "\") - 1)

'===================Дата и время для добавление в имя файла=========================
Date2 = Format(Date, "YYYYMMDD")
Time2 = Format(Time, "hh-mm")
'==================/Дата и время для добавление в имя файла=========================


'Сохранить как PDF-файл
On Error GoTo ProblemSaving
ActiveDocument.ExportAsFixedFormat _
OutputFileName:=saveFolder & "/" & FileName & ".pdf", _
ExportFormat:=wdExportFormatPDF
On Error GoTo 0


'=====================================Автоматически запускаем только что конвертированный PDF файл================================================
FileNames = saveFolder & "/" & FileName & ".pdf" '<--Собираем путь и имя файла в одну переменную
CreateObject("WScript.Shell").Run """" & FileNames & """" '<--Автоматически открывает PDF-file
'====================================/Автоматически запускаем только что конвертированный PDF файл================================================

Application.Quit SaveChanges:=wdDoNotSaveChanges '<--Закроет Word document без сохранении
Exit Sub

ProblemSaving:
MsgBox "Калыс, возникла проблема с сохранением PDF-файла. Наиболее распространенной причиной этого является" & _
" по оригинальному PDF-файлу, который уже открыт, пожалуйста, сначала закройте открытый PDF-файл и пересохраните.", vbCritical
Application.Quit SaveChanges:=wdDoNotSaveChanges '<--Закроет Word document без сохранении
CreateObject("WScript.Shell").Run """" & FileNames & """"
Exit Sub

End Sub

И вот теперь я хочу чтобы это код работал в PL plus (oracle) в разделе "Клиент скрипт" понимаете? я вставил туда и код не работает ошибку не выдает??
Видимо я не правильно указываю, но помогите все равно, решать по быстрее..
Внизу я прикрепил фото где "Клиент скрипт" Внутри есть такой код (это переменные для шаблонов) внутри функции, я открыл еще одну функцию и пробовал туда вставить - не получилось, написал внутри существующей функции тоже не получилось.

Внизу я прикрепил фото где "Клиент скрипт" Внутри есть такой код (это переменные для шаблонов) внутри функции, я открыл еще одну функцию и пробовал туда вставить - не получилось, написал внутри существующей функции тоже не получилось.

Elic, если не хочешь помочь, то я не заставляю тебя, меркантильный.

Elic, я вообще прошу помощь у программистов а не у тебя..