Союз образовательных сайтов

AutoCAD

Проектирование
AutoLISP и VisualLISP
VBA
Delphi

Autodesk Inventor

Проектирование
Программирование

Разное

Программирование в Delphi
Статьи

Студенту

Лекции
Лабораторные работы

Скачать

Документация
Программы
Разное

Контакты

<< Назад

Загрузка таблицы типов Microsoft Outlook 98 и 2000

Примеры на этой странице показывают как получить доступ к интерфйсам компонентов Microsoft Office через ActiveX. Ниже приведен код программ на языке AutoLISP, кторый позволяет работать с каждым элементом приложений, таких как Word, Excel, Access, PowerPoint, Outlook.

Загрузка библиотеки типов для Microsoft Outlook 98 и 2000

(defun vlxx-Typelib-Outlook98 ( / tlfile)
  (if (null msoc-olAddressEntries)
    (if (setq tlfile 
      (strcat (getenv "systemdrive")
        "\\Program Files\\Microsoft Office\\Office\\msoutl85.olb"))
      (progn
        (vlax-Import-Type-Library
          :tlb-filename       tlfile
          :methods-prefix     "msom-"
          :properties-prefix  "msop-"
          :constants-prefix   "msoc-"
        )
        T
      )
    ); endif
    T ;; уже загружена
  ); endif
)

Загрузка библиотеки типов для Microsoft ADO (ActiveX Data Objects)

(defun vlxx-Typelib-ADO (/ tlfile)
  (if (null adom-append)
    (if (setq tlfile
      (strcat (getenv "systemdrive")
        "\\Program Files\\Common Files\\System\\Ado\\msado15.dll"
      ))
      (progn
        (vlax-Import-Type-Library
          :tlb-filename tlfile
          :methods-prefix    "adom-"
          :properties-prefix "adop-"
          :constants-prefix  "adoc-"
        )
        T
      )
    )
    T ;; уже загружена
  )
)

Загрузка библиотеки типов для Microsoft PowerPoint 97 и 2000

(defun vlxx-Typelib-PowerPoint97 ( / tlfile)
  (if (null mspc-ppActionEndShow)
  (if (setq tlfile
      (strcat (getenv "systemdrive")
        "\\Program Files\\Microsoft Office\\Office\\msppt8.olb"))
      (progn
        (vlax-Import-Type-Library
          :tlb-filename       tlfile
          :methods-prefix     "mspm-"
          :properties-prefix  "mspp-"
          :constants-prefix   "mspc-"
        )
        T
      )
    ); endif
    T
  ); endif
)

Загрузка библиотеки типов для Microsoft Excel 97 и 2000

(defun vlxx-TypeLib-Excel8 ( / tlfile)
  (findfile
    (strcat
      (getenv "systemdrive"); например для Windows NT and 2000: "C:"
      "\\Program Files\\Microsoft Office\\Office\\Excel8.olb"
    )
  )
)

(defun vlxx-Load-TypeLib-Excel8 ( / tlbfile out)
  (cond
    ( (null msxl-xl24HourClock)
      (if (setq tlbfile (vlxx-TypeLib-Excel8))
        (progn
          (princ "\nИнициализация Microsoft Excel...")
          (vlax-Import-Type-Library
            :tlb-filename      tlbfile
            :methods-prefix    "msxl-"
            :properties-prefix "msxl-"
            :constants-prefix  "msxl-"
          )
          (if msxl-xl24HourClock (setq out T))
        )
      )
    )
    ( T (setq out T) )
  )
  out
)

Загрузка библиотеки типов для Microsoft Word 97 и 2000

(defun vlxx-Typelib-Word97 ( / tlfile)
  (if (null mswc-wd100Words)
  (if (setq tlfile
      (strcat (getenv "systemdrive")
        "\\Program Files\\Microsoft Office\\Office\\msword8.olb"))
      (progn
        (vlax-Import-Type-Library
          :tlb-filename tlfile
          :methods-prefix "mswm-"
          :properties-prefix "mswp-"
          :constants-prefix "mswc-"
        )
        T
      )
    ); endif
  T
  ); endif
)

Чтобы быть в курсе всех событий, получения необходимой и интересной информации, подпишись на рассылку "Создание САПР на базе продуктов Autodesk"