Шрифт для вывода в Word

[Прокопьева]

Подскажи плиззз, кто знает,
можно ли из кода Аксапты управлять шрифтом того текста, что выводиться, например, в Word. В частности меня интересует размер шрифта и как вывести зачеркнутый текст.

[monk]

Если нужно что-то сделать в Word из Axapta. Делаете это в Worde c записью макроса, потом смотрите код макроса на VBA и переносите в Ax.

[Roman777]

Вот пара функций, которые нужно написать в классе ComWordDocument_RU (или в его наследнике):

PHP код:

// Размер шрифта
void setFontSize(int    _size)
{
    COM Selection;
    COM font;

    try
    {
        selection =  m_comApplication.selection();
        font      =  selection.font();
        font.size(_size);
    }

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

    this.finalizeCOM(selection);
} 


PHP код:

// Зачеркнутый текст
void setFontStrikeThrough(boolean    _strike = true)
{
    COM Selection;
    COM font;

    try
    {
        selection =  m_comApplication.selection();
        font      =  selection.font();
        font.StrikeThrough(_strike);
    }

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

    this.finalizeCOM(selection);
} 


Пример использования:

PHP код:

static void Job24(Args _args)
{
    ComWordDocument_RU  wd = new ComWordDocument_RU();
    ;

    wd.newFile("w:\\doc1.doc", true);
    wd.setFontStrikeThrough();
    wd.setFontSize(60);
    wd.insertValue("rr", "Test");      
}