[binary]

Доброго времени суток, уважаемые форумчане. Понимаю, что тема избита, но нигде не могу найти ответа на мою проблему.
Встала необходимость экспортировать данные из базы в таблицу документа MS Word.
После записи макроса перенёс код в Делфи.
Код макроса следующий:

Код:

Sub Макрос2()
'
' Макрос2 Макрос
' Макрос записан 29.04.2012 Admin
'
    ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=2, NumColumns:= _
        5, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
        wdAutoFitContent
    With Selection.Tables(1)
        If .Style <> "Сетка таблицы" Then
            .Style = "Сетка таблицы"
        End If
        .ApplyStyleHeadingRows = True
        .ApplyStyleLastRow = True
        .ApplyStyleFirstColumn = True
        .ApplyStyleLastColumn = True
    End With
End Sub

Код в Делфи

Код:

procedure TForm1.Button1Click(Sender: TObject);
 var Range_: Range;
 NumRows,NumColumns,DefaultTableBehavior,AutoFitBehavior: OleVariant;
begin
      
        Range_:= WordApplication1.Selection.Range;
         NumRows :=20;
         NumColumns:= 5;
         DefaultTableBehavior:= wdWord9TableBehavior;
         AutoFitBehavior:=  wdAutoFitContent;

        WordApplication1.ConnectKind:=ckNewInstance;
WordApplication1.AutoConnect:= true;
WordApplication1.Documents.Add(EmptyParam,EmptyParam,EmptyParam,EmptyParam);

WordApplication1.ActiveDocument.Tables.Add(Range_,
         NumRows,NumColumns,DefaultTableBehavior,AutoFitBehavior);

***

 WordApplication1.Visible:= true;
   WordApplication1.Disconnect;
end;

При добавлеии таблицы выдаёт ошибку "Указанный диапазон взят не из правильного документа или цепочки надписей ".
Помогите решить проблему. Заранее благодарен.

[Ildar-tsr]

Пробегитесь по процедуре клавишей F8. На какой строке вылетает ошибка?

[binary]

Ошибка вылетает при создании таблицы

Код:

WordApplication1.ActiveDocument.Tables.Add(Range_,
         NumRows,NumColumns,DefaultTableBehavior,AutoFitBehavior);

[Ildar-tsr]

Могу поспорить, что так добавится:

Код:

WordApplication1.ActiveDocument.Tables.Add(Range_,
         NumRows,NumColumns,0,1);

Только вот я не понимаю вашей логики, когда вы задаете NumRows и NumColumns тип OleVariant. Правильнее все-таки integer

[binary]

в данном случае компилятор выдаст сообщение, что тип передаваемых параметров должен быть индентичным

[Ildar-tsr]

Сообщение от binary

в данном случае компилятор выдаст сообщение, что тип передаваемых параметров должен быть индентичным

Не выдаст.

[binary]

Мне кажется, тут непонятки именно с Range, но что именно ума не приложу

[binary]

уже выдал )

[Ildar-tsr]

Пропишите так:

Код:

WordApplication1.ActiveDocument.Tables.Add(WordApplication1.Selection.Range,
         20,5,0,1);

[binary]

Если же определить переменные нужного типа, присвоить им значения ноль и единицу, как вы предложили, при создании таблицы возникает ошибка "неверный параметр"

[binary]

возможно я вас не понимаю, простите могу глупость...
Но я работаю с Word не через создание Ole-объекта, а через объект WordApplication, в котором инкапсулированы определённые функции и процедуры, в описании которых используются определённые типы. В связи с этим невозможно передать процедуре параметр целочисленного типа, если он задан как OleVariant

[binary]

я к тому, что указанный Вами код не будет компилироваться

[Ildar-tsr]

Сообщение от binary

возможно я вас не понимаю, простите могу глупость...
Но я работаю с Word не через создание Ole-объекта, а через объект WordApplication

Вашей глупости тут нет, это я подумал, что вы используете OLE-объект. Извините, но тут ничем к сожалению помочь не могу.