BorlandTalk.com

Sjors Dubbeljoe Boes · Guest

Hello,

I have managed to insert two pages into another file, this file is a
template with one bookmark. But I want to have a page break BETWEEN the two
pages. Somehow the page breaks appear before the two pages. Here is my code,
what am I doing wrong? Any help is welcome! :-)

//=================================================

unit WordFilesSamen;

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

type
TForm1 = class(TForm)
Button1: TButton;
function ReplaceTM(var aWDoc : TWordDocument; TM_Name, MyText: String):
Integer;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var MyWAP : TWordApplication;
MyWDoc : TWordDocument;
MyRange : Range;
exeDir : String;
ovDirection, ovBreakKind, ovstrNwFNm, ovstrTemplate, ovItemIndex,
ovRange, ovConfirmConversions, ovLink, ovAttachment, ovTBNm, ovVarFalse,
ovVarTrue: OLEVariant;
rtnCode : integer;
wsFileName : WideString;

begin
MyWAP := TWordApplication.Create(Application);
MyWDoc := TWordDocument.Create(Application);

exeDir := ExtractFilePath(application.exename);
ovstrTemplate := exeDir + 'WordTemplate.DOT';
ovVarFalse := false;
ovVarTrue := true;
ovItemIndex := 1;

MyWAP.Documents.Add(ovstrTemplate, ovVarFalse, EmptyParam, ovVarTrue);
MyWDoc.ConnectTo(MyWAP.Documents.Item(ovItemIndex));

wsFileName := 'C:\tmp\testa.doc';
ovRange := EmptyParam;
ovConfirmConversions := EmptyParam;
ovLink := EmptyParam;
ovAttachment := EmptyParam;

ovTBNm := 'Allemaal';
MyRange := MyWDoc.Bookmarks.Item(ovTBNm).Range;
MyRange.InsertFile(wsFileName, ovRange, ovConfirmConversions, ovLink,
ovAttachment );

ovBreakKind := wdPageBreak;
ovDirection := wdCollapseEnd; //dunno what this is just copied it
from google
MyRange.Collapse(ovDirection);
MyRange.InsertBreak(ovBreakKind);

wsFileName := 'C:\tmp\testb.doc';
MyRange.InsertFile(wsFileName, ovRange, ovConfirmConversions, ovLink,
ovAttachment );

MyRange.InsertBreak(ovBreakKind);

rtnCode := ReplaceTM(MyWDoc, ovTBNm, '');

ovstrNwFNm := 'C:\tmp\NewFile.doc';
MyWDoc.SaveAs(ovstrNwFNm);

MyWDoc.Close;
MyWDoc.Destroy;
MyWAP.Quit;
MyWAP.Destroy;

end;

function TForm1.ReplaceTM(var aWDoc : TWordDocument; TM_Name, MyText:
String): Integer;
// Replaces the given Bookmark with the given Text
// Returns 0 when ok, -1 on Error
var LocalName, LocalText : OLEVariant;
begin
// Check if Bookmark exists
LocalName := TM_Name;
LocalText := MyText;
If aWDoc.Bookmarks.exists(LocalName) then begin
aWDoc.Bookmarks.Item(LocalName).Range.Text := LocalText;
// Now bookmark should no longer exist
If aWDoc.Bookmarks.exists(LocalName) then
result := -1
else
result := 0;
end
else
result := -1;
end;

end.

//====================================
//====================================

program Samen;

uses
Forms,
WordFilesSamen in 'WordFilesSamen.pas' {Form1},
Word_TLB in 'C:\Running\...\lib\Imports\Word_TLB.pas',
Office_TLB in 'C:\Running\...\lib\Imports\Office_TLB.pas',
VBIDE_TLB in 'C:\Running\...\lib\Imports\VBIDE_TLB.pas';

{$R *.res}

begin
Forms.Application.Initialize;
Forms.Application.CreateForm(TForm1, Form1);
Forms.Application.Run;
end.

Sjors Dubbeljoe Boes · Guest

"Sjors Dubbeljoe Boes" <m.devries (AT) ingcarlease (DOT) com> wrote

Oliver Townshend · Guest

Sjors · Guest

"Oliver Townshend" <oliveratzipdotcomdotau> wrote

Deborah Pate (TeamB) · Guest

<<Sjors Dubbeljoe Boes:
ovDirection := wdCollapseEnd; //dunno what this is just copied
it from google

Deborah Pate (TeamB) · Guest

<<Sjors:
I presume I cannot add bookmarks to the template dynamically

Sjors · Guest

"Deborah Pate (TeamB)" <Debs (AT) djpate (DOT) freeserve.co.not-this-bit.uk> wrote

Sjors Dubbeljoe Boes · Guest

"Deborah Pate (TeamB)" <Debs (AT) djpate (DOT) freeserve.co.not-this-bit.uk> wrote

Thnx this works then:

ovTBNm := 'Allemaal';
BM := MyWDoc.Bookmarks.Item(ovTBNm);

// No, no, no you stupid fool, do not put this here this does not work
// MyR := BM.Range;

for Idx := 5 downto 1 do // then the samen.doc starts with test1.doc not
test5.doc
begin
wsFileName := 'C:\tmp\test'+ IntToStr(Idx) +'.doc';
MyR := BM.Range; //resets it at the right position, correct Ms.
Pate??

if Idx <> 1 then // you do not want to START with a pagebreak!
begin
MyR.Collapse(ovDirection); // Prevents the bookmark being
overwritten
MyR.InsertBreak(ovBreakKind);

MyR.InsertParagraphAfter; // Position the range after the break
MyR.Collapse(ovDirection);
end;

MyR.InsertFile(wsFileName, EmptyParam, EmptyParam,
EmptyParam, EmptyParam);
end;

Deborah Pate (TeamB) · Guest

<<Sjors Dubbeljoe Boes:
MyR := BM.Range; //resets it at the right position, correct Ms.
Pate??