Talk and Share Programming

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure InsertLines(LineNum : Integer);
procedure CreateMailMergeDataFile;
procedure FillRow(Doc : Variant; Row : Integer;
Text1,Text2,Text3,Text4 : String);
private
{ Private declarations }

public
wrdApp, wrdDoc: Variant;
{ Public declarations }
end;

var
Form1: TForm1;

implementation

uses ComObj;

Const wdAlignParagraphLeft = 0;
Const wdAlignParagraphCenter = 1;
Const wdAlignParagraphRight = 2;
Const wdAlignParagraphJustify = 3;
Const wdAdjustNone = 0;
Const wdGray25 = 16;
Const wdGoToLine = 3;
Const wdGoToLast = -1;
Const wdSendToNewDocument = 0;

{$R *.DFM}

procedure TForm1.InsertLines(LineNum : Integer);
var
iCount : Integer;
begin
for iCount := 1 to LineNum do
wrdApp.Selection.TypeParagraph;
end;

procedure TForm1.FillRow(Doc : Variant; Row : Integer;
Text1,Text2,Text3,Text4 : String);

begin
Doc.Tables.Item(1).Cell(Row,1).Range.InsertAfter(Text1);
Doc.Tables.Item(1).Cell(Row,2).Range.InsertAfter(Text2);
Doc.Tables.Item(1).Cell(Row,3).Range.InsertAfter(Text3);
Doc.Tables.Item(1).Cell(Row,4).Range.InsertAfter(Text4);
end;

procedure TForm1.CreateMailMergeDataFile;
var
wrdDataDoc : Variant;
iCount : Integer;
begin
// Create a data source at C:\DataDoc.doc containing the field data
wrdDoc.MailMerge.CreateDataSource('C:\DataDoc.doc',,,'FirstName, LastName,' +
' Address, CityStateZip');
// Open the file to insert data
wrdDataDoc := wrdApp.Documents.Open('C:\DataDoc.doc');
for iCount := 1 to 2 do
wrdDataDoc.Tables.Item(1).Rows.Add;
// Fill in the data
FillRow(wrdDataDoc, 2, 'Steve', 'DeBroux',
'4567 Main Street', 'Buffalo, NY 98052');
FillRow(wrdDataDoc, 3, 'Jan', 'Miksovsky',
'1234 5th Street', 'Charlotte, NC 98765');
FillRow(wrdDataDoc, 4, 'Brian', 'Valentine',
'12348 78th Street Apt. 214', 'Lubbock, TX 25874');
// Save and close the file
wrdDataDoc.Save;
wrdDataDoc.Close(False);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
StrToAdd : String;
wrdSelection, wrdMailMerge, wrdMergeFields : Variant;
begin
// Create an instance of Word and make it visible
wrdApp := CreateOleObject('Word.Application');
wrdApp.Visible := True;
// Create a new document
wrdDoc := wrdApp.Documents.Add();
wrdDoc.Select;

wrdSelection := wrdApp.Selection;
wrdMailMerge := wrdDoc.MailMerge;

// Create MailMerge data file
CreateMailMergeDataFile;


// Create a string and insert it into the document
StrToAdd := 'State University' + Chr(13) +
'Electrical Engineering Department';
wrdSelection.ParagraphFormat.Alignment := wdAlignParagraphCenter;
wrdSelection.TypeText(StrToAdd);

InsertLines(4);

// Insert Merge Data
wrdSelection.ParagraphFormat.Alignment := wdAlignParagraphLeft;
wrdMergeFields := wrdMailMerge.Fields;

wrdMergeFields.Add(wrdSelection.Range,'FirstName');
wrdSelection.TypeText(' ');
wrdMergeFields.Add(wrdSelection.Range,'LastName');
wrdSelection.TypeParagraph;
wrdMergeFields.Add(wrdSelection.Range,'Address');
wrdSelection.TypeParagraph;
wrdMergeFields.Add(wrdSelection.Range,'CityStateZip');

InsertLines(2);

// Right justify the line and insert a date field with
// the current date
wrdSelection.ParagraphFormat.Alignment := wdAlignParagraphRight;
wrdSelection.InsertDateTime('dddd, MMMM dd, yyyy',False);

InsertLines(2);

// Justify the rest of the document
wrdSelection.ParagraphFormat.Alignment := wdAlignParagraphJustify;

wrdSelection.TypeText('Dear ');
wrdMergeFields.Add(wrdSelection.Range,'FirstName');

wrdSelection.TypeText(',');
InsertLines(2);

// Create a string and insert it into the document
StrToAdd := 'Thank you for your recent request for next ' +
'semester''s class schedule for the Electrical ' +
'Engineering Department. Enclosed with this ' +
'letter is a booklet containing all the classes ' +
'offered next semester at State University. ' +
'Several new classes will be offered in the ' +
'Electrical Engineering Department next semester. ' +
'These classes are listed below.';
wrdSelection.TypeText(StrToAdd);

InsertLines(2);

// Insert a new table with 9 rows and 4 columns
wrdDoc.Tables.Add(wrdSelection.Range,9,4);
wrdDoc.Tables.Item(1).Columns.Item(1).SetWidth(51,wdAdjustNone);
wrdDoc.Tables.Item(1).Columns.Item(2).SetWidth(170,wdAdjustNone);
wrdDoc.Tables.Item(1).Columns.Item(3).SetWidth(100,wdAdjustNone);
wrdDoc.Tables.Item(1).Columns.Item(4).SetWidth(111,wdAdjustNone);
// Set the shading on the first row to light gray

wrdDoc.Tables.Item(1).Rows.Item(1).Cells
.Shading.BackgroundPatternColorIndex := wdGray25;
// BOLD the first row
wrdDoc.Tables.Item(1).Rows.Item(1).Range.Bold := True;
// Center the text in Cell (1,1)
wrdDoc.Tables.Item(1).Cell(1,1).Range.Paragraphs.Alignment :=
wdAlignParagraphCenter;

// Fill each row of the table with data
FillRow(wrdDoc, 1, 'Class Number', 'Class Name', 'Class Time',
'Instructor');
FillRow(wrdDoc, 2, 'EE220', 'Introduction to Electronics II',
'1:00-2:00 M,W,F', 'Dr. Jensen');
FillRow(wrdDoc, 3, 'EE230', 'Electromagnetic Field Theory I',
'10:00-11:30 T,T', 'Dr. Crump');
FillRow(wrdDoc, 4, 'EE300', 'Feedback Control Systems',
'9:00-10:00 M,W,F', 'Dr. Murdy');
FillRow(wrdDoc, 5, 'EE325', 'Advanced Digital Design',
'9:00-10:30 T,T', 'Dr. Alley');
FillRow(wrdDoc, 6, 'EE350', 'Advanced Communication Systems',
'9:00-10:30 T,T', 'Dr. Taylor');
FillRow(wrdDoc, 7, 'EE400', 'Advanced Microwave Theory',
'1:00-2:30 T,T', 'Dr. Lee');
FillRow(wrdDoc, 8, 'EE450', 'Plasma Theory',
'1:00-2:00 M,W,F', 'Dr. Davis');
FillRow(wrdDoc, 9, 'EE500', 'Principles of VLSI Design',
'3:00-4:00 M,W,F', 'Dr. Ellison');

// Go to the end of the document

wrdApp.Selection.GoTo(wdGotoLine,wdGoToLast);
InsertLines(2);

// Create a string and insert it into the document
StrToAdd := 'For additional information regarding the ' +
'Department of Electrical Engineering, ' +
'you can visit our website at ';
wrdSelection.TypeText(StrToAdd);
// Insert a hyperlink to the web page
wrdSelection.Hyperlinks.Add(wrdSelection.Range,'http://www.ee.stateu.tld');
// Create a string and insert it into the document
StrToAdd := '. Thank you for your interest in the classes ' +
'offered in the Department of Electrical ' +
'Engineering. If you have any other questions, ' +
'please feel free to give us a call at ' +
'555-1212.' + Chr(13) + Chr(13) +
'Sincerely,' + Chr(13) + Chr(13) +
'Kathryn M. Hinsch' + Chr(13) +
'Department of Electrical Engineering' + Chr(13);
wrdSelection.TypeText(StrToAdd);

// Perform mail merge
wrdMailMerge.Destination := wdSendToNewDocument;
wrdMailMerge.Execute(False);

// Close the original form document
wrdDoc.Saved := True;
wrdDoc.Close(False);

// Notify the user we are done.
ShowMessage('Mail Merge Complete.');

// Clean up temp file
DeleteFile('C:\DataDoc.doc');

end;

end.

Microsoft Word is an Automation server, which is a particular type of COM server application. Automation servers can be controlled either by talking directly to the COM interface defined by the application, or by using a Variant to talk (implicitly) to the IDispatch interface supported by the application.

To automation Word with a Variant variable (supported since Delphi 2), you initialise the Variant with a call to CreateOleObject (from the ComObj unit). Then, the Variant acts just like the object exposed by the utomation server. You can call methods and access properties, so long as you know what they are. When Word is installed, there is an optional VBA help file that can be installed as well, which describes all the functionality supported by the Word Automation object(s).

Automation through a Variant allows optional parameters to be omitted, where you are happy with their default values. So, if you are automating Microsoft Word, and you wish to save a document to disk you can call the SaveAs method of the document object, and ignore most of the eleven arameters that it takes, as shown below

More info: Delphi takes control

~~~~~~~~~~~~~~~~~~~~~~~~~
uses
ComObj;

procedure TForm1.Button1Click(Sender: TObject) ;
var
WordApplication, WordDocument: Variant;
begin
WordApplication := CreateOleObject('Word.Application') ;
WordDocument := WordApplication.Documents.Add;
WordApplication.Selection.TypeText('Hello world') ;
WordDocument.SaveAs(FileName := 'C:\Doc.Doc',
AddToRecentFiles := False) ;
WordApplication.Quit(False)
end;

#

Start the Microsoft Word application. At the top, in between "Insert" and "Tools," Click on "Format" (blue highlighted section with the blue circle in the caption).
#
Step 2

Scroll down to "Paragraph" (blue highlighted text with blue arrow in caption) and right click it. This will open up the "Paragraph options" box and allow you to customize a few things, including auto-indent.
#
Step 3

Go to the "Indentation" box in the second section from the top, and hit the drop-down arrow in the "Special" column (the left option in the red box in caption), and choose "First Line." Then click the drop-down arrow in the "By" column and choose how much indent you wish the document to have--standard is 0.5. Then, click “OK” (located in the green box in caption) and your document will auto-indent by half an inch at the start of every new paragraph.

Set Tabs Using the Ruler Toolbar
1.
Step 1

Go to the View menu and select Ruler.
2.
Step 2

Locate the small box at the left end of the ruler. Click the box until the type of tab you want to insert (left, right, center, decimal) appears. If you can't tell what a tab is from the picture on the button, press the right mouse button and hover over the box.
3.
Step 3

Click on the horizontal ruler in your document window in the position where you want to place the tab. A tab mark appears on the ruler.
4.
Step 4

Press the Tab key to advance to your new tab stop.
Set Tabs Using the Tabs Command in the Format Menu
5.
Step 1

Select the text to which you want to apply tabs.
6.
Step 2

Go to the Format menu and select Tabs.
7.
Step 3

Select the alignment you want for the tabs you are setting (left, right, center, and so on).
8.
Step 4

Enter a number in inches in the Tab Stop Position box.
9.
Step 5

Click the Set button to set the new tab stop.

Ada suatu saat di mana kita tidak ingin paragraf yang kita buat terpecah saat berganti halaman di Microsoft Word. Atau kita tidak ingin mencegah hanya ada satu atau dua kata dari paragraf tersebut pada halaman berikutnya.

Begini cara membuat paragraf menjadi satu kesatuan:
1. Seleksi paragraf yang akan diberi efek ’kesatuan’ ini.
2. Klik menu [Format] > [Paragraf], kemudian klik tab [Line and Pagebreaks].
3. Klik kotak cek [Keep lines together].

Untuk mencegah terpisahnya sebuah paragraf dengan subjudulnya,
1. Seleksi paragraf tersebut beserta subjudulnya.
2. Dengan langkah seperti di atas, klik kotak cek [Keep with next].

Anda sering menncetak suatu dokumen Word dan Anda harus selalu membalik urutan halaman ? Hal ini tentu terasa membosankan. Sebenarnya Anda bisa mencetak dokumen Word dengan uratan terbalik (dari nomor halaman besar ke kecil) sehingga Anda tidak perlu harus membalik urutannya. Caranya dari menu Tools/Option/Print tandai Reverse Print Order lalu klik OK.