Solved

MS Word - Autosize Font in Text Boxes

Posted on 2013-10-22
8
1,491 Views
Last Modified: 2013-10-28
Hello, MS Word experts. Let's say I create a text box that is defined with a specific textbox size (say 2" x 1") and a specific font size (say 12pt).

Is there a way to make that text box's font automatically decrease to fit the 2"x1" so the text, if it's longer than 2", is fully seen in the box? I, basically, don't want to have to make the box bigger if there is text in it that doesn't fit the initial sizes.

I'm asking because I want to send text to a text box from a .NET program and the text that gets sent may be longer than the specified dimensions of the textbox.

Thanks!
0
Comment
Question by:infotechelg
  • 5
  • 3
8 Comments
 
LVL 35

Expert Comment

by:Kimputer
ID: 39592861
Probably something along the line of:
Private Sub TextBox1_Change()
If Len(TextBox1.Text) > 10 Then
    TextBox1.Font.Size = 5
Else
    TextBox1.Font.Size = 20
End If
End Sub

Open in new window

You need to do the tweaking, as in, decide lenght of text, and fontsize. Maybe add more case or ifs.
0
 

Author Comment

by:infotechelg
ID: 39594086
This is a macro, then, in Word?
0
 
LVL 35

Expert Comment

by:Kimputer
ID: 39594180
Officially, it's not a macro perse, as those are things you run manually. This one is more Event driven (it changes while you type in the textbox), but you have to put it in the same spot (ALT+F11 to open VBA editor)
0
Announcing the Most Valuable Experts of 2016

MVEs are more concerned with the satisfaction of those they help than with the considerable points they can earn. They are the types of people you feel privileged to call colleagues. Join us in honoring this amazing group of Experts.

 

Author Comment

by:infotechelg
ID: 39594215
But I will not be typing in the textbox. .NET is going to populate a text box with text. Will it still work?
0
 

Author Comment

by:infotechelg
ID: 39594237
I don't think this is going to work for me. I find it hard to believe there's no option in Word for text to fit into the confined space of a textbox. It seems like something that would be a common request.
0
 
LVL 35

Expert Comment

by:Kimputer
ID: 39594295
This code works as long as there are changes made to the textbox. That could be typing, but automated population should also work.
The properties for a textbox are all layed out before you. There are no secret properties that allow you to automatically adjust the font, not even in the Visual Basic 2010 edition (more advanced than Words VBA Textbox).
0
 

Accepted Solution

by:
infotechelg earned 0 total points
ID: 39595588
I ended up handling this in the .NET code. Hopefully, MS will add this feature sometime in the future.
0
 

Author Closing Comment

by:infotechelg
ID: 39605122
Went a different route.
0

Featured Post

Free Tool: Site Down Detector

Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

This is written from a 'VBA for MS Word' perspective, but I am sure it applies to most other MS Office components where VBA is used.  One thing that really bugs me is slow code, ESPECIALLY when it's mine!  In programming there are so many ways to…
This article describes how to use the Send to Mail Recipient command. The instructions apply generally to Office 2007 and later versions, but Microsoft® Word 2013 was used for the specific steps and figures.  What is Send to Mail Recipient? Send…
In this video, we show how to convert an image-only PDF file into a PDF Searchable Image file, that is, a file with both the image (typically from scanning) and text, which is created in an automated fashion with Optical Character Recognition (OCR) …
This video walks the viewer through the process of creating envelopes and labels, with multiple names and addresses. Navigate to the “Start Mail Merge” button in the Mailings tab: Follow the step-by-step process until asked to find the address doc…

820 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question