Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Последние темы форума

Показать новые сообщения »

Почтовая рассылка

Подписчиков: 6468
Последний выпуск: 19.06.2015

Как работать с объектом selection ячейки таблицы word из приложения Excel в ВБА

339
23 мая
Fellinggood
170 / / 27.04.2009
Как обращаться к объекту selection ячейки таблицы word из приложения Excel, так как при обычном обращении выдается ошибка.

Sub Add_Doc_Zadvizhek()
Dim oWord As Object
Dim oDocument As Object
Dim ApplWord As Object
Dim Mytime, myTimeSokr As String
Dim MyDate As String
Dim TimeDate As String
Dim NameWihtoutDate, SaveFileName As String
Dim Dlina_Mytime As Integer
Dim Putfile As String
Dim tableNew As Object
Dim docActive As Object
Dim i As Integer
Dim myRange As Object

Set oWord = CreateObject("Word.Application")
Set oDocument = oWord.Documents.Add
Set docActive = oWord.ActiveDocument

ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=1, NumColumns:= _
4, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
wdAutoFitFixed

With Selection.Tables(1)
If .Style <> "Сетка" Then
.Style = "Сетка"
End If
.ApplyStyleHeadingRows = True
.ApplyStyleLastRow = False
.ApplyStyleFirstColumn = True
.ApplyStyleLastColumn = False
.ApplyStyleRowBands = True
.ApplyStyleColumnBands = False
End With

Selection.MoveDown Unit:=wdLine, Count:=2
selection.TypeParagraph
selection.TypeParagraph
274
25 мая
pashulka
985 / / 19.09.2004
Код:
Const wdWord9TableBehavior = 1
Const wdAutoFitFixed = 0

Sub Add_Doc_Zadvizhek()
    Dim objWord As Object, objDocument As Object

    Set objWord = CreateObject("Word.Application")
    Set objDocument = objWord.Documents.Add

    With objDocument.Tables.Add(Range:=objDocument.Range, _
         NumRows:=1, NumColumns:=4, DefaultTableBehavior:= _
         wdWord9TableBehavior, AutoFitBehavior:=wdAutoFitFixed)
         
         '.Style = "Сетка"
         .ApplyStyleHeadingRows = True
         .ApplyStyleLastRow = False
         .ApplyStyleFirstColumn = True
         .ApplyStyleLastColumn = False
         .ApplyStyleRowBands = True
         .ApplyStyleColumnBands = False
    End With
   
    objWord.Visible = True 'Для наглядности
End Sub
339
27 мая
Fellinggood
170 / / 27.04.2009
Цитата: pashulka
Код:
Const wdWord9TableBehavior = 1
Const wdAutoFitFixed = 0

Sub Add_Doc_Zadvizhek()
    Dim objWord As Object, objDocument As Object

    Set objWord = CreateObject("Word.Application")
    Set objDocument = objWord.Documents.Add

    With objDocument.Tables.Add(Range:=objDocument.Range, _
         NumRows:=1, NumColumns:=4, DefaultTableBehavior:= _
         wdWord9TableBehavior, AutoFitBehavior:=wdAutoFitFixed)
         
   
    objWord.Visible = True 'Для наглядности
End Sub

Спасибо

55K
06 июля
ЗАРАБОТОК КРИПТОВАЛЮТЫ
202 / / 06.07.2018
____________________
Заработок от 20 000 рублей в день !!!
- Вам нужен готовый, уже настроенный метод заработка?
- Без сложных курсов, в которых вы не можете разобраться.
- Без рутинной работы.
- Без обмана и чтобы деньги были достойные.
- Именно готовый заработок, а не бесполезный курс!
Подробности на сaйте http://mod-servis.ru

____________________
Заработок от 20 000 рублей в день !!!

- Вам нужен готовый, уже настроенный метод заработка?
- Без сложных курсов, в которых вы не можете разобраться.
- Без рутинной работы.
- Без обмана и чтобы деньги были достойные.
- Именно готовый заработок, а не бесполезный курс!
Подробности на сaйте http://mod-servis.ru

____________________

76430

Знаете кого-то, кто может ответить? Поделитесь с ним ссылкой.

Ваш ответ

Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог