Solved

MS Word - Autosize Font in Text Boxes

Posted on 2013-10-22
8
1,454 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
Windows Server 2016: All you need to know

Learn about Hyper-V features that increase functionality and usability of Microsoft Windows Server 2016. Also, throughout this eBook, you’ll find some basic PowerShell examples that will help you leverage the scripts in your environments!

 

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

ScreenConnect 6.0 Free Trial

Want empowering updates? You're in the right place! Discover new features in ScreenConnect 6.0, based on partner feedback, to keep you business operating smoothly and optimally (the way it should be). Explore all of the extras and enhancements for yourself!

Question has a verified solution.

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

A few years ago I was very much a beginner at VBA, and that very much remains the case today.  I'll do my best to explain things as I go in the hope that other beginners can follow.  If you just want to check out a tool that creates a Select Case fu…
It was really hard time for me to get the understanding of Delegates in C#. I went through many websites and articles but I found them very clumsy. After going through those sites, I noted down the points in a easy way so here I am sharing that unde…
This video shows where to find the word count, how to display it, and what it breaks down to in Microsoft Word.
This Experts Exchange video Micro Tutorial shows how to tell Microsoft Office that a word is NOT spelled correctly. Microsoft Office has a built-in, main dictionary that is shared by Office apps, including Excel, Outlook, PowerPoint, and Word. When …

772 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