Announcements
Attention for Customers without Multi-Factor Authentication or Single Sign-On - OTP Verification rolls out April 2025. Read all about it here.
WCrihfield
in reply to: shastu

Here is the VBA version.

Public Sub Move_EOP_Down_1()
    Dim oDoc As PartDocument
    Set oDoc = ThisApplication.ActiveDocument
    Dim oDef As PartComponentDefinition
    Set oDef = oDoc.ComponentDefinition
    Dim oAfter As Object
    Dim oBefore As Object
    oDef.GetEndOfPartPosition oAfter, oBefore
    oBefore.SetEndOfPart (False)
End Sub

To move the EOP down run it like shown.

To move the EOP up, switch the last line to:

oAfter.SetEndOfPart(True)

Wesley Crihfield

EESignature

(Not an Autodesk Employee)