ComWordDocument_RU

[DreamCreator]

Добрый День!

Хочу сформировать отчет на базе вордовского шаблона. Структура отчета следующая - есть акт содержащий заголовок и строки, и мне надо этот акт на каждой итерации выводить в один текущий документ word, т.е. получится в одном вордовском файле будет много актов. Акт содержит заголовок м строки.

Как реализовать один акт я знаю -- воспользовавшись методами insertValue в загловочной части и tableInsertValue в строках.

А вот как реализовать вывод нескольких актов?

upd: Оговорку поправил, Спасибо!

[Владимир Максимов]

Копированием.

Я так понимаю, что один акт - это одна таблица. Создай в шаблоне документа Word сразу 2 одинаковых таблицы. Заполнение начинай со второй. Надо новый акт, создаешь новую таблицу, как копию первой в конце листа. По окончании формирования документа удаляешь уже не нужную первую таблицу.

Какие для этого нужны команды посмотри через запись макроса.

[AndyD]

Другой вариант: открывать два шаблона сразу (или шаблон и пустой документ) - данные вносим в один из них и копируем в другой. Чтобы не заморачиваться с очисткой просто переоткрываем шаблон

[DreamCreator]

Подскажите пожалуйста как скопировать?

[Writer]

Цитата:

Сообщение от DreamCreator

Подскажите пожалуйста как скопировать?

Сначала необходимо выделить участок копирования в нужном документе. Для всего документа писал следующие методы:

//select all document ([Ctrl] + [A])
void selectAll()
{
    COM         аctiveWindow;
    COM         selection;

    try
    {
        selection = m_comApplication.selection();
        selection.WholeStory();
    }

    catch(exception::Error)
    {
         checkFailed(strFmt("@SYS19306", funcName()));
    }

    if (selection)
        selection.finalize();

}

Затем копирую:

//copy select range ([Ctrl] + [C])
void copy()
{
    COM         аctiveWindow;
    COM         selection;

    try
    {
        selection = m_comApplication.selection();
        selection.Copy();
    }

    catch(exception::Error)
    {
         checkFailed(strFmt("@SYS19306", funcName()));
    }

    if (selection)
        selection.finalize();

}

Теперь для нужного COM обекта Word делаю вставку:

//paste copy buffer ([Ctrl] + [V])
void paste()
{
    COM         аctiveWindow;
    COM         selection;

    try
    {
        selection = m_comApplication.selection();
        selection.Paste();
    }

    catch(exception::Error)
    {
         checkFailed(strFmt("@SYS19306", funcName()));
    }

    if (selection)
        selection.finalize();
}

И не забывайте про то, что если вставку нужно сделать в определенном месте документа, а не на текущей позиции курсора, переместите курсов в это место перед вставкой.

[DreamCreator]

Спасибо!

[blokva]

Цитата:

Сообщение от DreamCreator

Спасибо!

Я в свое время нашел, на мой взгляд очень красивый вариант:
Файл шаблона, содержит ОДИН документ. Сначала создается новый файл на основе этого шаблона, заполняется, а когда надо создать еще один документ в этом же файле просто делается вставка в него....того же файла шаблона .... и аккуратно появляется еще один, например Акт

[fur-lined]

Братцы, может кто знает как програмно перейти на следующую строку (перевод каретки) в документе Word?
Стоит задача вывести в цикле несколько однотипных строк..

[Eldar9x]

Selection.TypeParagraph, получив перед этим Selection, разумеется.
И вообще, есть такая классная штука, как запись макроса, и в ворд, и в ексель. Пускаете запись, что-то делаете, что не знаете как спрограммировать, и получаете макрос, с требуемым вам кодом.

[fur-lined]

Цитата:

Сообщение от Eldar9x

Selection.TypeParagraph, получив перед этим Selection, разумеется..

Как получить то?

        ?ctiveWindow = m_comDocument.activeWindow();
        selection    = ?ctiveWindow.selection();
        selection.TypeParagraph();

Не получается..

[fur-lined]

        selection   = m_comApplication.selection();
        selection.TypeParagraph();

Тоже не работает..
Неужели никто не знает как определить местонахождение курсора?

Цитата:

Сообщение от fur-lined

        selection   = m_comApplication.selection();
        selection.TypeParagraph();

Тоже не работает..
Неужели никто не знает как определить местонахождение курсора?

Добрый день, код выводит 11111, переводит каретку и выводит 22222

static void WordTest(Args _args)
{
  ComWordDocument_RU   doc;
  Com                  d, w, s;
  ;
  doc              = new ComWordDocument_RU();
  doc.newFile('',true);
  d = doc.getComDocument();
  w = d.activewindow();
  s = w.selection();
  s.typetext('11111');
  s.typeparagraph();
  s.typetext('22222');
}

[Eldar9x]

вот так, например, или класс ComOfficeDocument_RU, дописать, чтобы m_comApplication получить:

static void Job4(Args _args)
{
    ComWordDocument_RU  comApi;
    Com                 doc;
    Com                 app;
    Com                 sel;
    ;

    comApi = new ComWordDocument_RU();

    comApi.newFile();

    doc = comApi.getComDocument();
    
    // получим m_comApplication
    app = doc.Application(); 

    comApi.visible(true);

    sel = app.selection();
 
    sel.typeText("dfdfd");
    sel.TypeParagraph();
    sel.TypeParagraph();
    sel.typeText("fgfggf");
}

[petergunn]

Цитата:

Сообщение от fur-lined

Братцы, может кто знает как програмно перейти на следующую строку (перевод каретки) в документе Word?
Стоит задача вывести в цикле несколько однотипных строк..

Предложу еще 1 вариант: добавить символ '\n' к выводимому тексту

static void ComWordNewLine(Args _args)
{
    ComWordDocument_RU  comWord ;
    #define.NewLine('\n')
    ;
    
    comWord = new ComWordDocument_RU() ;
    comWord.newFile( '', false ) ;
    
    comWord.selectionInsertValue( '1111' + #NewLine ) ;
    comWord.selectionInsertValue( '2222' + #NewLine + #NewLine) ;
    comWord.selectionInsertValue( '3333' ) ;
    comWord.visible( true ) ;
}