Автоматизация документов WORD

Delphi , Технологии , OLE Automation MSOffice

Оформил: DeeCo

Автор: Клименко Константин

2. Как подключить DLL в VBA

[Public | Private]Declarefunction name Lib "libname"[Alias
  "aliasname"][([arglist])][as type]

Public и Private

- разрешение на использование вызываемой функции в других процедурах и модулях и использование только в данном модуле.

• name - имя вызываемой функции.
• libname - имя библиотеки.

Alias

псевдоним, необходим, когда используются недопустимые символы или существует переменная, название которой совпадает с названием функции

• arglist - список передаваемых в функцию переменных

As type

тип функции
Если необходимо вызвать процедуру, то вместо Function указывается Sub, и соответственно опускается As type.
Например:

Declarefunction MyTest Lib "PrjWTest"(ByVal Ns as Byte) as string

Sub WordTest()
Dim S1, S2 as string
S1 = MyTest(1)
end Sub

3. Как в Delphi создать DLL

library PrjWTest;

uses
  Windows,
  Messages,
  SysUtils,
  Classes,
  Graphics,
  Controls,
  Forms,
  Dialogs,
  UnitWTest in 'UnitWTest.pas' {FormWTest};

var
  //Это наша форма
  MyForm: TFormWTest;

  {*********************Test************************************}

function Test: PChar; export; stdcall;
var
  TmpStr: string;
begin
  TmpStr := '';
  //Вызываем форму
  if MyForm.ShowModal = mrOk then
  begin
    //Считываем текст с Edit
    TmpStr := MyForm.Edit1.Text;
  end;
  //Желательно указать конец строки
  TmpStr := TmpStr + #0;
  //Возвращаем текст
  Test := PChar(TmpStr);
end;

{*********************MyTest************************************
Данную функцию вызываем из Word}

function MyTest(N: Byte): PChar; export; stdcall;
begin
  //Посылаем в Edit число, полученное из Word
  MyForm.Edit1.Text := IntToStr(N);
  //Вызываем вспомогательную функцию
  MyTest := Test;
end;

{*********************MyTest************************************
Создаем форму}

procedure CreateForm; export; stdcall;
begin
  MyForm := TFormWTest.Create(Application);
end;

{*********************MyTest************************************
Освобождаем форму}

procedure FreeForm; export; stdcall;
begin
  MyForm.Free;
end;

exports
  CreateForm Index 1,
  MyTest Index 2,
  FreeForm Index 3;

//{$R *.RES}
begin
  {  Application.Initialize;
    Application.CreateForm(TFormGsk, FormGsk);
    Application.CreateForm(TDataModule2, DataModule2);
    Application.CreateForm(TFormListBoxs, FormListBoxs);
    Application.CreateForm(TFormCreateSk, FormCreateSk);
    Application.CreateForm(TFormAddKontr, FormAddKontr);
    Application.Run;}
end.

4. Проблемы, возникающие при передаче данных.

//Приводим полученный текст в "нормальный" текстовый вид

function StrToStr(St as string) as string
  Dim EndStr as Long
  //Определяем количество символов до конца строки
  EndStr = InStr(1, St, Chr$(0))
  if EndStr <>
0 then
  //Вырезаем и возвращаем нужную информацию
    StrToStr = Left(St, EndStr - 1)
else
  StrToStr = ""
end if


endfunction

//Подключаемые функции в DLL
Declare Sub CreateForm Lib "PrjWTest"()

Declarefunction MyTest Lib "PrjWTest"(ByVal Ns as Byte) as string
  Declare Sub FreeForm Lib "PrjWTest"()

//Переходим к метке Label
Sub GotoBookMark(label as string)
Selection.goto What := wdGoToBookmark, Name := label
  with ActiveDocument.Bookmarks
    .DefaultSorting = wdSortByName
    .ShowHidden = False
end with
end Sub

//Вставляет текст NK между закладками BeginBookM и EndBookM
Sub NewTxt(BeginBookM as string, EndBookM as string, NK as string)
//Переходим к первой закладке
GotoBookMark(BeginBookM)
//Выделяем старый текст между закладками
Selection.Extend
//Переходим к второй закладке
GotoBookMark(EndBookM)
//Отступаем чтобы не захватить закладку
Selection.MoveLeft unit := wdCharacter, Count := 1
  //Заменяем старый текст на новый
  Selection.TypeText Text := NK
end Sub

Sub WordTest()
Dim S1, S2 as string
//Загружаем DLL и форму
CreateForm
//Считываем данные с Edit
S1 = MyTest(1)
S2 = S1
//Преобразуем в нормальный текст
S2 = StrToStr(S2)
//Вставляем текст между закладками
NewTxt "BeginTest", "EndTest", S2

//Удаляем формы и выгружаем DLL
FreeForm

Exit Sub
end Sub

Автоматизация документов WORD: создание динамически подключаемых библиотек (DLL) для упрощения работы с текстовым редактором Word.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: OLE Automation MSOffice ::