Setting text box format frame Width and Height to Auto

Question

Hi,

How do I program a macro to visit each text box format frame and set the values of Size,Width and Size.Height to Auto?

Answer 1

Text frames have their own collection called Frames. Try the following code:

Dim f As Frame 

Dim objDoc As Document 

Set objDoc = ActiveDocument 

For Each f In objDoc.Frames 

f.HeightRule = wdFrameAuto 

f.WidthRule = wdFrameAuto 

Next f

Answer 2

A frame can be incorporated into a paragraph style, which is often the easiest way to work with them. Would that be a useful option for you? Or is it necessary to deal with frames in VBA?

Answer 3

Just to be clear, what you are formatting is a frame (which Word sometimes calls a "horizontal frame"), not a text box.

Answer 4

Hi,

What I am doing is cut and pasting from other software. It puts the text into frames (horizontal frame) . However each frame cuts off some text because it is by default set to exact. What i need to do is reset all the frames by hand to auto sizing. Trying to write a macro to automate the task. Here is what I have but it does nothing

Sub FormatTextsInTextBoxes()

Dim objShape As Shape

Dim objDoc As Document

Set objDoc = ActiveDocument

With objDoc

For Each objShape In .Shapes 

  If objShape.Type = msoFrame Then 

    objShape.Height = AUTO 

    objShape.Width = AUTO 

  End If 

Next 

End With

End Sub

Answer 5

Hi,

Thanks for that how do I refer to them in Word Macro language?