Экспорт в Word таблицы со столбцами выделенной ширины

[sirius84]

вопрос ко всем знающим. люди, как сделать экспорт столбцов таблицы в Word, чтобы их ширина (на выходе) была переменной, т.е. не зависела бы от длины строк (ну, может допускала бы перенос в ячейках выводимой таблицы word - чтоб в ячейке было бы по 2 строки или больше, сколько нужно). Например, если в Excel я сузил (вручную) столбец перед выделением, такая же ширина у него вывелась бы в Word.

вот код:

 Dim t As Word.Range
' пропуск по путям шаблонов и т.п.
Set wdDoc = wdApp.Documents.Add(myWordFile)
        
    Set t = wdDoc.Content
    t.Paste
    With t
        .Tables(1).Columns(1).SetWidth 20, wdAdjustSameWidth
        .Tables(1).Columns(2).SetWidth 20, wdAdjustSameWidth
    End With
     
    wdApp.Visible = True
    wdApp.ActiveDocument.PageSetup.Orientation = 1
  
    wdApp.Activate

сейчас просто в ворде выводит на листе альбомного формата, но все равно неудобно.

P.S. смотрел кой-какие примеры, но по их образцу ширина все равно не меняется:

http://www.tech-archive.net/Archive/.../msg00019.html

[EducatedFool]

Используем PasteExcelTable
http://www.programmersforum.ru/showp...93&postcount=2
или обходимся вообще без макросов:
http://www.programmersforum.ru/showp...14&postcount=5

[jerko]

Думаю,что можно это сделать через функцию "Специальная вставка-Связать" и выбрать, например связь как изображение. Тогда дажетаблицу не надо рисовать

[sirius84]

to EducatedFool:

Спасибо, Гуру! ) первое решение просто улётное. И главное - просто.

[eol]

спасибо, очень помог пример,
а можно сделать так, чтобы таблица была немного смещена влево (осттуп -1) а также шрифт вставленной таблицы был уплотненным, допустим на 0.5, т.к. таблица при переносе нормально не влезает