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

  • Рекомендуем проверить настройки временной зоны в вашем профиле (страница "Внешний вид форума", пункт "Часовой пояс:").
  • У нас больше нет рассылок. Если вам приходят письма от наших бывших рассылок mail.ru и subscribe.ru, то знайте, что это не мы рассылаем.
   Начало  
Наши сайты
Помощь Поиск Календарь Почта Войти Регистрация  
 
Страниц: [1]   Вниз
  Печать  
Автор Тема: VBA - Excel и Office  (Прочитано 16497 раз)
0 Пользователей и 1 Гость смотрят эту тему.
baldr
Команда клуба

cy
Offline Offline
Пол: Мужской
Дорогие россияне


WWW
« : 29-07-2003 14:23 » 

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

Приличный компьютер всегда будет стоить дороже 1000 долларов, потому что 500 долларов - это не вполне прилично
baldr
Команда клуба

cy
Offline Offline
Пол: Мужской
Дорогие россияне


WWW
« Ответ #1 : 29-07-2003 15:09 » 

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

Приличный компьютер всегда будет стоить дороже 1000 долларов, потому что 500 долларов - это не вполне прилично
Гром
Птычк. Тьфу, птычник... Вот!
Готовлюсь к пенсии

il
Offline Offline
Пол: Мужской
Бодрый птах


« Ответ #2 : 29-07-2003 15:40 » 

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

А птичку нашу прошу не обижать!!!
baldr
Команда клуба

cy
Offline Offline
Пол: Мужской
Дорогие россияне


WWW
« Ответ #3 : 29-07-2003 15:51 » 

Согласен на C++... Улыбаюсь Но уже более подробно.
Записан

Приличный компьютер всегда будет стоить дороже 1000 долларов, потому что 500 долларов - это не вполне прилично
Гром
Птычк. Тьфу, птычник... Вот!
Готовлюсь к пенсии

il
Offline Offline
Пол: Мужской
Бодрый птах


« Ответ #4 : 29-07-2003 18:13 » 

Ага - Улыбаюсь посмотрим...
Записан

А птичку нашу прошу не обижать!!!
little
Помогающий

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

« Ответ #5 : 30-07-2003 07:04 » 

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

cy
Offline Offline
Пол: Мужской
Дорогие россияне


WWW
« Ответ #6 : 30-07-2003 07:59 » 

little, гранд респект!
  И как я не подумал об этом!! Улыбаюсь
Записан

Приличный компьютер всегда будет стоить дороже 1000 долларов, потому что 500 долларов - это не вполне прилично
GeoHunter
Гость
« Ответ #7 : 13-09-2006 12:07 » 

Всем привет! Я как раз хотел поинтересоваться этой темой, но глубже
Просто запустит Ворд и что-то накропать - получается при помощи
поздней привязки
_________________
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
Молодой специалист

ru
Offline Offline

« Ответ #8 : 13-09-2006 12:20 » 

__________________
НО ХОТЬ УБЕЙТЕ НЕМОГУ СОЗДАТЬ ТАБЛИЦУ,
А ОЧЕНЬ НАДО! ОПЫТА МАЛО!
ПОМОЖИТЕ
 Здесь была моя ладья...

попробуйте
Код:
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

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

I Have Nine Lives You Have One Only
THINK!
GeoHunter
Гость
« Ответ #9 : 13-09-2006 12:36 » new

Спасибо! Но я ест-но это пробовал, в ворде все прекрасно и через запись и так, на Ексел ругается - выдает разные ошибки А черт его знает...
Записан
Страниц: [1]   Вверх
  Печать  
 

Powered by SMF 1.1.21 | SMF © 2015, Simple Machines