[Ms Office] Вопрос

Alena_08_11

Есть таблица в Excel
Столбец A - фамилия
Столбец B - Someshit
Cтолбец C - Год
Можно ли, на основе всего этого сделать в word документ, в котором будут построчно перечислены данные в виде
 Фамилия Someshit Год
Максимум на что хватает моих знаний - это на формулу типа "=A1&" "&B1&" "&C1 в отдельном столбце, и потом перенос его в word (через блокнот, чтобы он там не пытался делать таблицу)- но тогда на целую строку будет один и тот же формат, а нужно чтобы фамилия была жирным, Someshit курсивом, а Год обычным.

hwh2010

сгенери html в формате

<b>Фамилия</b> <i>Someshit</i> Год

Если надо, потом открой вордом и сохрани в вордоффском формате

SergZ495

Можно ли, на основе всего этого сделать в word документ, в котором будут построчно перечислены данные в виде

Можно. Ботай слияние.
И еще, можно например в экселе с помощью макроса сделать строчку в которой первое слово будет курсивом, второе жирное и.т.д.
 

Range("J6").Select

    ActiveCell.FormulaR1C1 = "авываапавыеау"

    With ActiveCell.Characters(Start:=1, Length:=1).Font

        .Name = "Arial Cyr"

        .FontStyle = "êóðñèâ"

        .Size = 10

        .Strikethrough = False

        .Superscript = False

        .Subscript = False

        .OutlineFont = False

        .Shadow = False

        .Underline = xlUnderlineStyleNone

        .ColorIndex = xlAutomatic

    End With

    With ActiveCell.Characters(Start:=2, Length:=1).Font

        .Name = "Arial Cyr"

        .FontStyle = "îáû÷íûé"

        .Size = 10

        .Strikethrough = False

        .Superscript = False

        .Subscript = False

        .OutlineFont = False

        .Shadow = False

        .Underline = xlUnderlineStyleNone

        .ColorIndex = xlAutomatic

    End With

    With ActiveCell.Characters(Start:=3, Length:=3).Font

        .Name = "Arial Cyr"

        .FontStyle = "êóðñèâ"

        .Size = 10

        .Strikethrough = False

        .Superscript = False

        .Subscript = False

        .OutlineFont = False

        .Shadow = False

        .Underline = xlUnderlineStyleNone

        .ColorIndex = xlAutomatic

    End With

    With ActiveCell.Characters(Start:=6, Length:=1).Font

        .Name = "Arial Cyr"

        .FontStyle = "îáû÷íûé"

        .Size = 10

        .Strikethrough = False

        .Superscript = False

        .Subscript = False

        .OutlineFont = False

        .Shadow = False

        .Underline = xlUnderlineStyleNone

        .ColorIndex = xlAutomatic

    End With

    With ActiveCell.Characters(Start:=7, Length:=1).Font

        .Name = "Arial Cyr"

        .FontStyle = "ïîëóæèðíûé"

        .Size = 10

        .Strikethrough = False

        .Superscript = False

        .Subscript = False

        .OutlineFont = False

        .Shadow = False

        .Underline = xlUnderlineStyleNone

        .ColorIndex = xlAutomatic

    End With

    With ActiveCell.Characters(Start:=8, Length:=1).Font

        .Name = "Arial Cyr"

        .FontStyle = "îáû÷íûé"

        .Size = 10

        .Strikethrough = False

        .Superscript = False

        .Subscript = False

        .OutlineFont = False

        .Shadow = False

        .Underline = xlUnderlineStyleNone

        .ColorIndex = xlAutomatic

    End With

    Range("L15").Select  

Че нить теипа такого только вместо "авываапавыеау" значение вот этой ячейки A1&" "&B1&" "&C1 или аналог написаный в коде макроса.
Ну и старты и ленги нужным образом проставить.

SergZ495

êóðñèâ

С кодировками че-то не то, вместо êóðñèâ должно быть Bold или "полужирный".

mudvaynefan

Разве не подойдет скопипастить в ворд таблицу, а потом преобразовать таблицу в текст в ворде?

lubanj

расскажи как преобразовывать в текст.

saveliev_a

Ну писец вопросы пошли. Скоро будут спрашивать, как Пуск нажать.

lubanj

епт. с первого подхода не нашел как это делается в ворде. пришлось в справку лазезть. там есть.
выделить таблицу-макет-преобразовать в текст

mudvaynefan

Меня немного смутило слово "макет"
На всякий случай вот скриншот

Alena_08_11

Спасибо, то что надо.

lubanj

Меня немного смутило слово "макет"

у меня стоит новый 2007-ой офис. меня оно тоже смутило, поэтому и не нашел сам как конвертить и в справку пришлось залезть