01-30-2020
11:01 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
01-30-2020
11:01 AM
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 SubTo move the EOP down run it like shown.
To move the EOP up, switch the last line to:
oAfter.SetEndOfPart(True)
Wesley Crihfield
(Not an Autodesk Employee)