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: 07:28 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: 12:28 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: 07:28 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)
The leading translation software used by over 270,000 translators.
Designed with your feedback in mind, Trados Studio 2022 delivers an unrivalled, powerful desktop
and cloud solution, empowering you to work in the most efficient and cost-effective way.
Create your account in minutes, and start working! 3-month trial for agencies, and free for freelancers!
The system lets you keep client/vendor database, with contacts and rates, manage projects and assign jobs to vendors, issue invoices, track payments, store and manage project files, generate business reports on turnover profit per client/manager etc.