This site uses cookies.
Some of these cookies are essential to the operation of the site,
while others help to improve your experience by providing insights into how the site is being used.
For more information, please see the ProZ.com privacy policy.
Macro to Insert Text Boxes with No Borders in Word
Thread poster: Reed James
Reed James Chile Local time: 18:52 Member (2005) Spanish to English
Sep 20, 2016
Hello. I have this macro that will allow me to insert a text box of a fixed size with borders in a Word document: Dim Box As Shape Set Box = ActiveDocument.Shapes.addTextBox( _ Orientation:=msoTextOrientationHorizontal, _ Left:=50, Top:=50, Width:=100, Height:=100) 'This adds text to the box... Box.TextFrame.TextRange.Text = "Truck" However, I don't know how to do this with the borderless text box. Does anyone know? Thanks.
Subject:
Comment:
The contents of this post will automatically be included in the ticket generated. Please add any additional comments or explanation (optional)
Dan Lucas United Kingdom Local time: 21:52 Member (2014) Japanese to English
Set to not visible?
Sep 20, 2016
Reed James wrote: Hello. I have this macro that will allow me to insert a text box of a fixed size with borders in a Word document: However, I don't know how to do this with the borderless text box. Does anyone know? Thanks.
If you mean just getting rid of the line round the edge of the box, try this:
Dim Box As Shape Set Box = ActiveDocument.Shapes.AddTextbox( _ Orientation:=msoTextOrientationHorizontal, _ Left:=50, Top:=50, Width:=100, Height:=100)
With Box .TextFrame.TextRange.Text = "Truck" .Line.Visible = msoFalse End With
Works here on Word 2016 and will probably work for earlier versions.
Dan
Subject:
Comment:
The contents of this post will automatically be included in the ticket generated. Please add any additional comments or explanation (optional)
Reed James Chile Local time: 18:52 Member (2005) Spanish to English
TOPIC STARTER
That works!
Sep 20, 2016
Hey thanks Dan! You don't know how long I've been creating text boxes and then making them borderless. Longer than I care to remember.
Subject:
Comment:
The contents of this post will automatically be included in the ticket generated. Please add any additional comments or explanation (optional)
Translation Office 3000 is an advanced accounting tool for freelance translators and small agencies. TO3000 easily and seamlessly integrates with the business life of professional freelance translators.
Create customer quotes and invoices from within Trados Studio
Trados Business Manager Lite helps to simplify and speed up some of the daily tasks, such as invoicing and reporting, associated with running your freelance translation business.