Developing.ru

Доброго времени суток)
Есть задача: необходимо преобразовать таблицу с данными в текст с символами "+" "|" "-". Может кто подскажет как это сделать. Может это уже реализованно в ворде или в макросах.
Пример (была обычная таблица):

... а стала вот такая:

т.е. был обьект таблица в открытом документе, а стал обычный текст вместо границ таблицы - символы с символами "+" "|" "-".
Жду Ваших мыслей. Заранее благодарен)

Нестандартный подход

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

PS
Я не делал так со времён Windows 95 и Word 6.0, кто знает, может такое еще есть...

Нехороший человек)) Как вспомню сколько я мучался, когда производил обратную операцию.

В Win7 к сожалению, никаких матричных принтеров, таких, чтобы совсем generic, похоже не осталось

Собственно превратить таблицу легко:

Код: Выделить всё

    Selection.Tables(1).Select
    Application.DefaultTableSeparator = "|"
    Selection.Rows.ConvertToText Separator:=wdSeparateByDefaultListSeparator, NestedTables:=True
    Selection.Font.Name = "Courier New"

Вот после этого остаётся только выровнять колонки пробелами по ширине и вставить "+----+---...." между строк.

Таблица не в Поверпойнте?

Developing.ru

Преобразование таблицы в текст

Преобразование таблицы в текст

Re: Преобразование таблицы в текст

Re: Преобразование таблицы в текст

Re: Преобразование таблицы в текст

Re: Преобразование таблицы в текст