Sub MoveProperties()
Dim Doc1 As Document
Dim Doc2 As Document
Dim prop As DocumentProperty
Set Doc1 = ActiveDocument
Set Doc2 = Documents.Add
For Each prop In Doc1.CustomDocumentProperties
If prop.LinkToContent = False Then
Doc2.CustomDocumentProperties.Add prop.Name, False, prop.Type, prop.Value
End If
Next prop
End Sub
|