Можно ли переписать этот скрипт VBA на 1С:


   Dim oMergedDoc As Document
   Set oMergedDoc = ActiveDocument
   oMergedDoc.MailMerge.DataSource.ActiveRecord = wdFirstRecord
   
   Dim i As Integer
   With oMergedDoc.MailMerge
       For i = 1 To .DataSource.RecordCount

            ' здесь анализ записи

           .DataSource.ActiveRecord = wdNextRecord
           DoEvents
       Next
   End With



В частности, через COM не даёт устанавливать ActiveRecord.

типа

ScrptCtrl=Новый COMObject("MSScriptControl.ScriptControl");
ScrptCtrl.Language="vbscript";
ScrptCtrl.AddCode(ТекстБасик);
ScrptCtrl.Run();
? не то?

(1) спасибо, надо попробовать, но интересен вариант через COM:


MSWord = новый COMОбъект("Word.Application");
MSWord.Documents.Open(ИмяФайла);    
MergedDoc = MSWord.ActiveDocument();

MergedDoc.MailMerge.DataSource.ActiveRecord = -4; //wdFirstRecord
 
....