Frames


Frame Object

Represents a frame. The Frame object is a member of the Frames collection.



Frames Collection

The Frames collection includes all frames in a selection, range, or document.
Use Frames(index), where index is the index number, to return a single Frame object.
The index number represents the position of the frame in the selection, range, or document.
The following example allows text to wrap around the first frame in the active document.

ActiveDocument.Frames(1).TextWrap = True 


Creating Frames

Use the Add method to add a frame around a range.
The following example adds a frame around the first paragraph in the active document.

ActiveDocument.Frames.Add Range:=ActiveDocument.Paragraphs(1).Range 

If you want the frame to "move with text" then the relative vertical position must be paragraph

With ActiveDocument.Frames(1) 
   .RelativeVerticalPosition = wdRelativeVerticalPosition.wdRelativeVerticalPositionParagraph
End With


Tables in the Frames collection

If you have a table in your document which has been positioned in a particular place on the page then this table will appear in the Frames collection
The text wrapping for this table will be "Around"



Text Wrapping

You can wrap text around Shape or ShapeRange objects by using the WrapFormat property.
You can position a Shape or ShapeRange object by using the Top and Left properties.


Sub FramePositioning() 
Dim objframe As Word.Frame

Set objframe = ActiveDocument.Frames.Item(1)

'there is no .Left
Debug.Print objframe.Height
Debug.Print objframe.HeightRule
Debug.Print objframe.Borders
Debug.Print objframe.HorizontalDistanceFromText
Debug.Print objframe.HorizontalPosition
Debug.Print objframe.LockAnchor
Debug.Print objframe.RelativeHorizontalPosition
Debug.Print objframe.RelativeVerticalPosition
Debug.Print objframe.Shading
Debug.Print objframe.TextWrap
Debug.Print objframe.VerticalDistanceFromText
Debug.Print objframe.VerticalPosition
Debug.Print objframe.Width
Debug.Print objframe.WidthRule
End Sub

Cut the offending shapes out of the document and paste them back into the document with their anchors at a new location, immediately below the heading paragraph.


Public Sub MoveAnchors 
Dim objShape As Shape

   For Each objShape In ActiveDocument.Shapes
      If Left(objShape.Anchor.Style,7) = "heading" Then
         objShape.Select
         Selection.Cut
         Selection.MoveDown Unit:=wdParagraph, Count:=1
         Selection.Paste
      End If
   Next objShape
End Sub

If you work with Frames.
The TextRange property of the TextFrame object returns a range containing the text within the text frame.


Frame Property

Returns a Frame object that represents the frame formatting for the specified style or find-and-replace operation. Read-only.


This example creates a style with frame formatting and then applies the style to the first paragraph in the selection.

Dim styleNew As Style 

Set styleNew = ActiveDocument.Styles _
    .Add(Name:="frame", Type:=wdStyleTypeParagraph)
With styleNew.Frame
    .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
    .HeightRule = wdFrameAuto
    .WidthRule = wdFrameAuto
    .TextWrap = True
End With
Selection.Paragraphs(1).Range.Style = "frame"

This example finds the first frame with wrap around formatting. If such a frame is found, a message is displayed on the status bar.

With ActiveDocument.Content.Find 
    .Text = ""
    .Frame.TextWrap = True
    .Execute Forward:=True, Wrap:=wdFindContinue, Format:=True
    If .Found = True Then StatusBar = "Frame was found"
    .Parent.Select
End With

selection.frames(1).textwrap = false 


© 2020 Better Solutions Limited. All Rights Reserved. © 2020 Better Solutions Limited TopPrevNext