Вход | Регистрация

1С:Предприятие ::

Метки: 

V8: Перебрать список слияния MS word через COM

Я
   Gesperid
 
26.12.12 - 14:47
Можно ли переписать этот скрипт 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.
 
 
   НЕА123
 
1 - 26.12.12 - 15:03
типа

ScrptCtrl=Новый COMObject("MSScriptControl.ScriptControl");
ScrptCtrl.Language="vbscript";
ScrptCtrl.AddCode(ТекстБасик);
ScrptCtrl.Run();
? не то?
   Gesperid
 
2 - 26.12.12 - 16:58
(1) спасибо, надо попробовать, но интересен вариант через COM:

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

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



Список тем форума
Рекламное место пустует Рекламное место пустует
ВНИМАНИЕ! Если вы потеряли окно ввода сообщения, нажмите Ctrl-F5 или Ctrl-R или кнопку "Обновить" в браузере.
Тема не обновлялась длительное время, и была помечена как архивная. Добавление сообщений невозможно.
Но вы можете создать новую ветку и вам обязательно ответят!
Каждый час на Волшебном форуме бывает более 2000 человек.
Рекламное место пустует