BorlandTalk.com

HD · Guest

Hi,

I am trying to create a Word document with Delphi 7, using late binding... I
am using late binding because I have found out that the code usually works,
whatever the Word version on the client's computer.
What I usually do is that I go to word and record a macro with the actions I
need. Then, I am usually able to make it work in Delphi, using the
properties of the macro.

Here is my problem... The macro in Word is using the property "Selection"
and in Delphi, I am having a hard time using this property. I have tried
with the "Range" property and it seems to work, but that would mean that I
cannot use the Macro to help me with properties and methods.
Here is a part of my code using the "selection" property (it does not work):

oWord := CreateOleObject('word.application');
oWord.visible := False;
try
if FileExists('C:Test.doc') then
DeleteFile('C:Test.doc');
oWord.Documents.Open('C:Test.doc');
oDocument := oWord.Documents.add;
oSelection := oDocument.Select;
oSelection.TypeText('This is a line of text I want to write in the
document');
oSelection.TypeParagraph;
oDocument.SaveAs('c:Test.doc');
finally
if not varIsEmpty(oWord) then
oWord.Quit;
end;

George Birbilis · Guest

you mean the .Select method fails?
what error do you get (use try/try/except/finally block so that you can get
some error message or something at the except section)

HD · Guest

Thanks George for helping me out.
I finally got it to work... I do not need to use oDocument variable
anymore... it seems that when I add the document, it automatically recognize
the oWord.Selection as being the document itself. I have part of the code
below... But I am having another problem when I want to change the
properties of the table...
When I write:
oWord.Selection.Tables(1).Borders(wdBorderLeft).LineStyle :=
wdLineStyleNone;
I get an error message telling me that tables(1) is not a method. Any ideas
as to why and how to fix it?

Thanks,

HDumas

oWord := CreateOleObject('word.application');
oWord.visible := False;
try
oWord.documents.add;
oWord.Selection.Font.Bold := True;
oWord.Selection.ParagraphFormat.Alignment := wdAlignParagraphCenter;
oWord.Selection.Font.Size := 16;
oWord.Selection.TypeText('LISTE DES ATTRIBUTIONS INTERVENANTS/TABLES' +
#13+#10 +#13+#10);
oWord.ActiveDocument.Tables.Add(oWord.Selection.Range,
sqlTouteTableWord.RecordCount, 2,
wdWord9TableBehavior,
wdAutoFitContent);
..........

oWord.ActiveDocument.SaveAs('c:TouteTable.doc')
finally
if not varIsEmpty(oWord) then
oWord.Quit;
end;

"George Birbilis" <birbilis (AT) kagi (DOT) com> a écrit dans le message de
news:425ec675 (AT) newsgroups (DOT) borland.com...

George Birbilis · Guest

HD · Guest

Thanks again George,
I don't know why I did not think of that... I changed the () for [] and used
the 1 and the 0 index.
Now I get a different error message: "Item" is not a property.

I have tried:
oWord.ActiveDocument.Tables[0].Borders(wdBorderLeft).LineStyle :=
wdLineStyleNone;
oWord.ActiveDocument.Tables[1].Borders(wdBorderLeft).LineStyle :=
wdLineStyleNone;
oWord.Selection.Tables[0].Borders(wdBorderLeft).LineStyle :=
wdLineStyleNone;
oWord.Selection.Tables[1].Borders(wdBorderLeft).LineStyle :=
wdLineStyleNone;

but regardless, it always gives me the same message.
You have any ideas on this one??? Thanks.

HDumas

"George Birbilis" <birbilis (AT) kagi (DOT) com> a écrit dans le message de
news:4263bfa7 (AT) newsgroups (DOT) borland.com...

Mike Shkolnik · Guest

yourTable.Borders.Item(wdBorderLeft).LineStyle := wdLineStyleNone;

--
With best regards, Mike Shkolnik
E-mail: [email]mshkolnik (AT) scalabium (DOT) com[/email]
WEB: http://www.scalabium.com

"HD" <dumh (AT) hotmail (DOT) com> wrote

George Birbilis · Guest

Nikolay · Guest

yourtable.bordes.item(ITEMCONSTANT) is the way
and it is a principle on each collection for example
oword.documents.item(ITEM) and so on.

"HD" <dumh (AT) hotmail (DOT) com> wrote: