I'd like to draw a path -- a simple arc -- and type along it (to make
labels on a map). Is this possible in Word?
Yes, but not in a way that is in any sense feasible for most users. Doing
so requires the use of Word's PRINT field, a good command
of postscript code and a postscript printer (or to PDF via Adobe Acrobat's
'print driver', for example). Presumably, the same could
be done by someone well versed in other printer languages.
Just as an example, the following PRINT field uses postscript code to
print "The quick brown fox jumps over the lazy dog." around a
circle:
{PRINT \p page "
/pi 3.14159265358979 def
% The circletext routine describes how to print text in a circle
/circletext
{cirtextdict begin
/radius exch def
/centreangle exch def
/ptsize exch def
/str exch def
/xradius radius ptsize 3 div sub def
gsave
centreangle str findhalfangle sub rotate
str
{/charcode exch def
( ) dup 0 charcode put placechar
} forall
grestore
end
}def
/cirtextdict 20 dict def
cirtextdict begin
/findhalfangle
{stringwidth pop 2 div
2 xradius mul pi mul div 360 mul
}def
/placechar
{/char exch def
/halfangle char findhalfangle def
gsave
halfangle rotate
radius 0 translate
90 rotate
char stringwidth pop 2 div neg 0 moveto
char show
grestore
halfangle 2 mul rotate
}def
end
% Define the circle's size, position and text
wp$x wp$right sub wp$left add 2 div wp$y wp$top sub wp$bottom add 2 div
translate
/Right 0 def % Set the circle's horizontal position
/Up 0 def % Set the circle's vertical position
/CRadius 45 def % Set the circle's radius
/TRadius CRadius 4 sub def % Position the text inside the circle
/Text (The quick brown fox jumps over the lazy dog.) def
/MyCircle {/saveobj save def % save current state
.5 setlinewidth % set thickness of line
newpath % create a new path
Right Up CRadius 0 360 arc % define the circle's arc
closepath stroke % close the path and draw it
/Courier findfont % select the font
9 scalefont setfont % set the font size & make it current
Right Up translate % set a new origin to match the circle
Text % the text to output
180 rotate Text
8 270 TRadius circletext % use the circletext to write the text
saveobj restore} def % restore current state
% Output the result
MyCircle"}
There are a numerous variables in the latter parts of this code that you
could adjust. First off, you can change the text, in this
case "The quick brown fox jumps over the lazy dog.". You could also change
the circle's position, defined by the 'Right' and 'Up'
coordinates, its radius 'Cradius' and the radius of the text 'TRadius' -
in this case, 'CRadius 4 sub' puts the bottom edge of the
text 4pts inside the circle, whereas 'CRadius 5 add' would put it 5pts
outside the circle. These units are all in points. Similarly,
you could change the '0 360' to alter the start and end points of the arc,
which you can also leave open by deleting 'closepath'.
To work with the lower left corner of the page as the origin, delete the
line:
wp$x wp$right sub wp$left add 2 div wp$y wp$top sub wp$bottom add 2 div
translate
and adjust the 'Right' and 'Up' coordinates to suit.
And that's just a simple example. The postscript manuals, from which the
above is adapted, have sample code for printing text along
more complex arcs.
Note: Word doesn't even give you a preview of the output.
So, as I said: "not in a way that is in any sense feasible for most
users".
--
Cheers
macropod
[Microsoft MVP - Word]
message
I'd like to draw a path -- a simple arc -- and type along it (to make
labels on a map). Is this possible in Word?
When I try WordArt, and I increase the curve of the line of type, it
stretches the type rather than simply curving the line.
If it can be done in Publisher or PowerPoint, that would be fine too.-
><w:r><w