Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Работа с документов Word из VBA Excel / 4 сообщений из 4, страница 1 из 1
14.12.2006, 09:37
    #34198662
ErmakIgor
ErmakIgor
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Работа с документов Word из VBA Excel
Ребяты, нужно в готовый документ word в ячейку первой таблицы вставить числовое значение.
Подскажите конструкцию на VBA, позволяющую это сделать.

Заранее благодарю
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.12.2006, 10:21
    #34198817
Ashton
Ashton
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Работа с документов Word из VBA Excel
Код: plaintext
1.
2.
3.
4.
5.
6.
Public Sub AddValue()
    Dim tbl As Word.Table
    
    Set tbl = ActiveDocument.Tables( 1 )
    
    tbl.Cell( 1 ,  1 ).Range =  123 
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.12.2006, 10:33
    #34198864
ErmakIgor
ErmakIgor
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Работа с документов Word из VBA Excel
Я с помощью следующего текста открываю нужный документ

Set MyXL = GetObject("c:\plast\aaa.doc")
MyXL.Application.Visible = True
MyXL.Application.WindowState = wdWindowStateNormal

Ваш код

Public Sub AddValue()
Dim tbl As Word.Table

Set tbl = ActiveDocument.Tables(1)

tbl.Cell(1, 1).Range = 123
End Sub

Приспособить не получается,
Подскажите пожалуйста как приспособить?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.12.2006, 10:51
    #34198952
Ashton
Ashton
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Работа с документов Word из VBA Excel
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
    Dim wdDoc As Word.Document

    Set wdDoc = GetObject("D:\1\aaa.doc")
    
    wdDoc.Application.Visible = True
    wdDoc.Application.WindowState = wdWindowStateNormal
    
    wdDoc.Tables( 1 ).Cell( 1 ,  1 ).Range =  123
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Работа с документов Word из VBA Excel / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 448ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2164809]:
 0ms
get settings:
 8ms
get forum list:
 15ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 142ms
get topic data:
 7ms
get forum data:
 2ms
get page messages:
 31ms
get tp. blocked users:
 1ms
others: 238ms
total:  448ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]