I need to create a Macro in Word 2007 that will loop thru all of the TextFrames and set the Height to Auto / -1.
Any help would be greatly appreciated.
This is what I have come up with so far.
Dim iframe As frame Dim nheight Dim nframes, iloop As Integer Call ObjectCounts ' displays counts of pictures, frames, etc. ' *** process frames *** nframes = ActiveDocument.Frames.Count If nframes > 0 Then For iloop = nframes To 1 Step -1 ' process backwards or frame delete gives errors Set iframe = ActiveDocument.Frames(iloop) Iframe.nheight = -1 ' height of frame. are -1 if size adaptes to content End With Next iloop End If ' end nframes > 0
Edited by PappaSmurf, 04 June 2015 - 10:47 PM.