Switch to Paint Shop Pro and press CTRL+V. Press CTRL+C to copy the text to the Clipboard.Ĥ. Select the text you want to be upside down.ģ. Within Word, type and format your text as you want it.Ģ. The drawback with this option is the WordArt does not give you the range of text control that Word does, and it is not meant to be used with large selections of text.Īnother option is to create your text in a different application (example: create a fully rotated text object using PowerPoint) and then insert it into the template as an object.įinally, if you have access to a graphics program, such as Paint Shop Pro, you could also try these steps:ġ. Your text is actually saved in your document as a graphics object, which Word allows you to rotate freely. If the information you have to print upside down is short, you could use WordArt. Of course, you would have to rotate the paper by 180 degrees for each printing pass. The easiest solution is to simply put your paper through the printer twice, once for the right side-up text and once for the upside-down text. For more information please consult with Microsoft. There are several options you can try to achieve the upside-down printing. RotationShapeRange.Some printing projects require text to be printed both right side-up and upside-down on the same paper. RotationShapeRange.RelativeHorizontalPosition = wdRelativeHorizontalPositionPage RotationArray(UBound(RotationArray)) = iShapeIndexĪnd after the ShapeRange is fully populated: If bIsDimensioned = True Then ReDim Preserve RotationArray(0 To UBound(RotationArray) + 1) As Variant ReDim Preserve RotationArray(0 To 0) As Variant Instead of rotating every Word.Shape individually, I gather them all in a ShapeRange via their Indexes (or whatever the plural is on that one) and rotate them all at once. Activate and the like but nothing seems to work. Additionally if I set the visibility for the Word-Document to TRUE, debug through, and fullscreen the Word-Document before the script performs the rotation, it will rotate any Word.Shape every time. Although I the first Word.Shape meeting the criteria will be rotated, any others will not. '- Kontrolle ob rotiert oder natives Querformat. '- Kontrolle ob Bild im Querformat vorliegt.
SiAspectRatio = oShapeToCheck.Height / oShapeToCheck.Width If oShapeToCheck.Height > 0 And oShapeToCheck.Width > 0 Then '- Seitenverhältnis und Rotation berechnen. Here's how the loop is designed: For Each wrdShape In wrdDoc.ShapesĪnd now the part that's acting up: Private Function CheckFormat(oShapeToCheck As Word.Shape) As Boolean Here's how the Word-Document comes to be (opens a PDF with one Shape per page): Set wrdDoc = (FileName:=sToSaveAs, Visible:=False)
I need to rotate Word.Shapes in a single Word-Document, but my script will only rotate the first one, and i can't figure out why.
0 kommentar(er)
