Форум программистов «Весельчак У»
  *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

  • Рекомендуем проверить настройки временной зоны в вашем профиле (страница "Внешний вид форума", пункт "Часовой пояс:").
  • У нас больше нет рассылок. Если вам приходят письма от наших бывших рассылок mail.ru и subscribe.ru, то знайте, что это не мы рассылаем.
   Начало  
Наши сайты
     
  Галерея  
  Весельчак У  
  Наша Вики  
  Хранилище  
  Проекты  
     
Правила
     
  Правила форума Правила русского языка  
     
Помощь Поиск Календарь Почта Войти Регистрация  
Форум программистов «Весельчак У» > Программирование > VisualBasic (Модератор: Naghual) > Тема: Как програмно сделать в Ворде границы таблицы прозрачными?
 
Страниц: [1]   Вниз
« предыдущая тема следующая тема »
  Печать  
Автор Тема: Как програмно сделать в Ворде границы таблицы прозрачными?  (Прочитано 10839 раз)
0 Пользователей и 2 Гостей смотрят эту тему.
monrus
Опытный

ru
Offline Offline
« : 16-06-2006 20:46 » new
Как програмно сделать в Ворде границы таблицы прозрачными? И как скопировать с одного вордовского файла определенную таблицу в другой файл?
Записан
RXL
Технический
Администратор

Offline Offline
Пол: Мужской

WWW
« Ответ #1 : 16-06-2006 21:19 » 
monrus, плодить одинаковые темы не надо!

Поиском попробуй.
Записан
... мы преодолеваем эту трудность без синтеза распределенных прототипов. (с) Жуков М.С.
monrus
Опытный

ru
Offline Offline
« Ответ #2 : 16-06-2006 21:22 » 
Одно на ВБ, другое на ДЕльфях
Записан
RomCom
Опытный

ru
Offline Offline
Пол: Мужской

WWW
« Ответ #3 : 17-06-2006 05:11 » 
На 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
« Последнее редактирование: 19-12-2007 18:27 от Алексей1153++ » Записан
R.O.M.C.O.M.: Robotic Operational Mathematics and Ceaseless Observation Machine
monrus
Опытный

ru
Offline Offline
« Ответ #4 : 19-06-2006 20:13 » 
Спасибо, тема закрыта
Записан
Страниц: [1]   Вверх
  Печать  
« предыдущая тема следующая тема »
 
Форум программистов «Весельчак У» > Программирование > VisualBasic (Модератор: Naghual) > Тема: Как програмно сделать в Ворде границы таблицы прозрачными?

Powered by SMF 1.1.21 | SMF © 2015, Simple Machines