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

Ваш аккаунт

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

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

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

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

340
23 мая 2018 года
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
275
25 мая 2018 года
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
340
27 мая 2018 года
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

Спасибо

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