Как програмно сделать в Ворде границы таблицы прозрачными?

[monrus]

Как програмно сделать в Ворде границы таблицы прозрачными? И как скопировать с одного вордовского файла определенную таблицу в другой файл?

[RXL]

monrus, плодить одинаковые темы не надо!

Поиском попробуй.

[monrus]

Одно на ВБ, другое на ДЕльфях

[RomCom]

На VBA:

Код:

Sub SetNoneBorder() 'убираем границы таблицы
    With Application.ActiveDocument.Tables(1) 'нужная таблица
        .Borders(wdBorderLeft).LineStyle = wdLineStyleNone
        .Borders(wdBorderRight).LineStyle = wdLineStyleNone
        .Borders(wdBorderTop).LineStyle = wdLineStyleNone
        .Borders(wdBorderBottom).LineStyle = wdLineStyleNone
        .Borders(wdBorderHorizontal).LineStyle = wdLineStyleNone
        .Borders(wdBorderVertical).LineStyle = wdLineStyleNone
        .Borders(wdBorderDiagonalDown).LineStyle = wdLineStyleNone
        .Borders(wdBorderDiagonalUp).LineStyle = wdLineStyleNone
        .Borders.Shadow = False
    End With
End Sub

Sub CopyTable() 'капирование таблици
    Application.ActiveDocument.Tables(1).Select 'выделяем нужную таблицу
    Selection.Copy 'копируем в буфер
    Documents.Add DocumentType:=wdNewBlankDocument 'создаем новый документ
    Selection.PasteAndFormat (wdPasteDefault) 'вставляем из буфера
End Sub

[monrus]

Спасибо, тема закрыта