Accessing Part Documentation

Option Explicit
Sub Main
	Dim doc As FMDocument
	Set doc = Application.ActiveDocument

	Dim partdoc As FMPartDoc
	Set partdoc = doc.PartDocumentation

	MsgBox "Author is " & partdoc.Author

	partdoc.SavePreviewPictureAsFile( "C:\temp\xx.png" )
End Sub