VBA - Excel и Office

[baldr]

Кто может подсказать, как сделать такие вещи на VBA:
1. Узнать версию Office. Просто в Office2000 отсутствуют многие полезные фичи, которые есть в OfficeXP. Надо знать версию MSOffice.
2. Через VBA-макрос из Excel открыть Word'овский *.doc-файл, в нем что-нибудь сделать и закрыть... Не могу вообще получить доступ к Word'овским документам из Excel'евского VBA.
Заранее благодарен.

[baldr]

Ну ладно, учитывая, что мне нужна была версия Excel, я нашел Application.Version и успокоился. Но Word я так и не могу открыть.

[Гром]

Увы - я подозреваю, что тут знающих так досконально системы Офиса просто нет.

[baldr]

Согласен на C++... Но уже более подробно.

[Гром]

Ага - посмотрим...

[little]

Подключай к VBA библиотеку объектов Ворда - Microsoft Word xx Object Library, там как минимум имеется объект Document, может еще чего найдешь. Только, возможно, придется отключить другую библиотеку, где также присутствует объект Document, а то поругаются.

[baldr]

little, гранд респект!
  И как я не подумал об этом!!

[GeoHunter]

Всем привет! Я как раз хотел поинтересоваться этой темой, но глубже
Просто запустит Ворд и что-то накропать - получается при помощи
поздней привязки
_________________
Dim WordApp As Object
Set WordApp = CreateObject("Word.Application")
    With WordApp
    .Documents.Add
   .With. Selection
   .Font.Size = 14
             .TypeText Text = "ого!"
End With
    End With
WordApp.Visible = True
__________________
НО ХОТЬ УБЕЙТЕ НЕМОГУ СОЗДАТЬ ТАБЛИЦУ,
А ОЧЕНЬ НАДО! ОПЫТА МАЛО!
ПОМОЖИТЕ
 

[HandKot]

__________________
НО ХОТЬ УБЕЙТЕ НЕМОГУ СОЗДАТЬ ТАБЛИЦУ,
А ОЧЕНЬ НАДО! ОПЫТА МАЛО!
ПОМОЖИТЕ
 

попробуйте

Код:

Dim doc as Document
With WordApp
    doc = .Documents.Add
   With doc
             .Font.Size = 14
             .TypeText Text = "ого!"
              Tables.Add Range:=Selection.Range, NumRows:=2, NumColumns:= _
                    5, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
                    wdAutoFitFixed
    End With
End With

ЗЫЖ очень помогает Сервис-Макрос-Начать запись
с последующим просмотром полученного кода

[GeoHunter]

Спасибо! Но я ест-но это пробовал, в ворде все прекрасно и через запись и так, на Ексел ругается - выдает разные ошибки