SharedWorkspace Property
Returns a SharedWorkspace object that represents the Document Workspace in which a specified document is located.
expression.SharedWorkspace
expression Required. An expression that returns one of the objects in the Applies To list.
Example
The following example returns a reference to the Document Workspace in which the active document is stored. This example assumes that the active document belongs to a Document Workspace.
Dim objWorkspace As SharedWorkspace
Set objWorkspace = ActiveDocument.SharedWorkspace