BorlandTalk.com

Richard · Guest

Hi,
I am using D6 with sp2, XP and SP2 and Word 2002.
I have done the Word macro bit and have converted the VB macro code into
pascal to set a border round each page in a Word document. I want the border
to be anchored to the edge of the page not the text, which is the
DistanceFrom property. There are two options, wdBorderDistanceFromText and
wdBorderDistanceFromPageEdge, but regardless of which I choose it always
anchors the borders to the text. In standalone Word it behaves properly when
I make the appropriate selection.

This is the code:

worddocument1.Paragraphs.Format.Borders.item(wdBorderLeft).LineStyle :=
wdLineStyleSingle;
worddocument1.Paragraphs.Format.Borders.Item(wdBorderLeft).LineWidth :=
wdLineWidth050pt;
worddocument1.Paragraphs.Format.Borders.Item(wdBorderLeft).Color :=
wdColorAutomatic;
[repeats for the other 3 edges]

worddocument1.Paragraphs.Format.Borders.DistanceFrom :=
wdBorderDistanceFromPageEdge; // problem line
worddocument1.Paragraphs.Format.Borders.AlwaysInFront := True;// the rest
of this seems to work ok
worddocument1.Paragraphs.Format.Borders.SurroundHeader := True;
worddocument1.Paragraphs.Format.Borders.SurroundFooter := True;
worddocument1.Paragraphs.Format.Borders.JoinBorders := False;
worddocument1.Paragraphs.Format.Borders.DistanceFromTop := 24;
worddocument1.Paragraphs.Format.Borders.DistanceFromLeft := 24;
worddocument1.Paragraphs.Format.Borders.DistanceFromBottom := 24;
worddocument1.Paragraphs.Format.Borders.DistanceFromRight := 24;
worddocument1.Paragraphs.Format.Borders.Shadow := true;
worddocument1.Paragraphs.Format.Borders.EnableFirstPageInSection := True;
worddocument1.Paragraphs.Format.Borders.EnableOtherPagesInSection := True;
worddocument1.Paragraphs.Format.Borders.ApplyPageBordersToAllSections;

Has anyone else come across this one, or got a workround?
Any help greatly appreciated
Richard

Oliver Townshend · Guest