01-30-2020
09:19 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
01-30-2020
09:19 AM
Thanks, but I was looking for a solution in VBA. I tried to modify it for VBA but I don't know how to modify the last two lines. Not sure if the fourth line down is correct either.
Dim oDoc As PartDocument
Set oDoc = ThisApplication.ActiveDocument
Dim oDef As PartComponentDefinition
Set PartComponentDefinition = oDoc.ComponentDefinition
Dim oAfter As PartFeature
Dim oBefore As PartFeature
oDef.GetEndOfPartPosition(oAfter, oBefore)
oAfter.SetEndOfPart (False)