How to set NOT to "move object with text" as default?

Hello,

Every time inserting bulk of images would annoy me a lot on unchecking move object with text, because I want all the images can be bleeding out the margin.

Is there any option to set NOT to "move object with text" as default?

Thank you very much and hopefully someone could help.

Lawrence

Answer
Answer

Although you can't change the default for "Move object with text" in the dialog, you can run this macro that changes the setting for every shape (floating graphic) in the document.

Sub DontMoveWithText()
    Dim shp As Shape
    For Each shp In ActiveDocument.Shapes
        shp.RelativeVerticalPosition = wdRelativeVerticalPositionPage
    Next shp
End Sub

If you install it in your Normal.dotm template or in an add-in (a template stored in the %appdata%\Microsoft\Word\Startup folder) and assign a keyboard shortcut or a Quick Access Toolbar button to it, you can run it at any time after adding images. It also won't hurt anything to run it multiple times on the same document.

Since Word considers text boxes (from Insert > Text Box) to be a kind of Shape object, the macro above will also affect them. If you want to exclude text boxes from this treatment, use this code instead:

Sub DontMoveWithText()
    Dim shp As Shape
    For Each shp In ActiveDocument.Shapes
      If Not shp.Type = msoTextBox Then
        shp.RelativeVerticalPosition = wdRelativeVerticalPositionPage
      End If
    Next shp
End Sub

_____________________________
https://jay-freedman.info

Was this reply helpful?

Sorry this didn't help.

Great! Thanks for your feedback.

How satisfied are you with this reply?

Thanks for your feedback, it helps us improve the site.

How satisfied are you with this reply?

Thanks for your feedback.

 
 

Question Info


Last updated May 6, 2024 Views 1,762 Applies to: