IT SOLUTIONS
Your full service technology partner! 
Christophe Ravaut +Expand
+Expand
Personal Account . . .
Christophe Ravaut
Ieper, -- BE



Real Name:  Christophe Ravaut
Primary Role:  Coder
Title:  Software Engineer
Joined: Dec 2004 (21 years ago)
Visits: 88

Message Boards Activity

1 posts.
More...

Thread 1 of 1
Thread Starter or a Reply (but not last)  Group

Christophe Ravaut
RE: Excel and Word automation
This works on my pc. WordDocument1 is a TWordDocument, procedure TForm1.Button1Click(Sender: TObject);, var,    _x: Integer;,    xOleVariant: OleVariant ;, begin,    OleContainer1.CreateObject('WORD.Document', False);,    OleContainer1.Run;,    WordDocument1.ConnectTo( IDispatch(OleContainer1.OleObject)as _Document);,    for _x := 1 To WordDocument1.CommandBars.Count do,    begin,      xOleVariant := _x ;,      if (WordDocument1.CommandBars.Item[xOleVariant].Type_=0) then,      begin, ,       WordDocument1.CommandBars.Item[xOleVariant].Set_Visible(False) ;,      end;,    end ;,    OleContainer1.DoVerb(ovShow);, end;,
Posted to MB Topic: Delphi COM / ActiveX / DCOM « Delphi Board
16 years ago
Nothing New Since Your Last Visit
Pascal and Delphi Coding

KB Comments

Read +Add Comment
What about the TimeZone? see http://www.swissdelphicenter.ch/en/showcode.php?id=90
Posted 17 years ago
Regarding...
Setting the System Time in Delphi
SetSystemTime Example
Go ahead!   Use Us! Call: 916-726-5675  Or visit our new sales site: 
www.prestwood.com


©1995-2025 Prestwood IT Solutions.   [Security & Privacy]