Move all frames containing text into the printable area

[Hans List]

Hello,

I want to write a macro that will move alle frames (not textboxes)
containing text from the left or right page side (the document has
left and right pages) into the printable area.

The frames now look like:

---------------
|
|
--------------

and

-----------
|
|
-----------

I'd rather have them like this, so that my printer can print the text
in these frames:

---------------
| |
| |
--------------

and

-------------
| |
| |
-------------

Thanks in advance!

Hans List

[Hans List]

I went for this solution:

Sub MarginalienInDruckbereichPositionieren()
Dim aFrame As Word.Frame
If ActiveDocument.Frames.Count <> 0 Then
For Each aFrame In ActiveDocument.Frames

If Len(aFrame.Range.Text) > 2 Then
'MsgBox aFrame.Range.Text
With aFrame
.HorizontalPosition = wdFrameOutside
.RelativeHorizontalPosition = _
wdRelativeHorizontalPositionMargin
End With
End If

Next aFrame
End If
End Sub

Hans List