SubFileProperties.Add

Adds a SubFileProperty to the collection.

Syntax:

Add( Name As XLIFFFileAttributes, Value As String, NamespaceURI As String, ExtendedName As String) As SubFileProperty

Return: SubFileProperty

Parameters: Name Name of the property, element of the "XLIFFFileAttributes" enumeration. If the name is not an XLIFF attribute, the name "file_x_extended" must be taken.
Value Value of the property.
NamespaceURI Namespace URI of the property. If the property is an XLIFF attribute, the namespace URI is an empty string.
ExtendedName If the property is an XLIFF attribute, the extended name is an empty string; otherwise the extended name should begin with "x_".

Example:
Dim SubFileProps As SubFileProperties Set SubFileProps = Application.ActiveProjectFile.SubFiles(1).Properties ' Add Property Dim SubFileProp As SubFileProperty Dim OtherSubFileProp As SubFileProperty Set SubFileProp = SubFileProps.Add(file_datatype, "database", "", "") Set OtherSubFileProp = SubFileProps.Add(file_x_extended, "MyValue", "x_myproperty", "http://www.mydomain.com") ' Remove Property Call SubFileProps.Remove("file_datatype", "") Call SubFileProps.Remove("x_myproperty", "http://www.mydomain.com")

See also:

Class SubFileProperties

Syntax:	Add( Name As XLIFFFileAttributes, Value As String, NamespaceURI As String, ExtendedName As String) As SubFileProperty
Return:	SubFileProperty
Parameters:	Name Name of the property, element of the "XLIFFFileAttributes" enumeration. If the name is not an XLIFF attribute, the name "file_x_extended" must be taken. Value Value of the property. NamespaceURI Namespace URI of the property. If the property is an XLIFF attribute, the namespace URI is an empty string. ExtendedName If the property is an XLIFF attribute, the extended name is an empty string; otherwise the extended name should begin with "x_".
Example:	Dim SubFileProps As SubFileProperties Set SubFileProps = Application.ActiveProjectFile.SubFiles(1).Properties ' Add Property Dim SubFileProp As SubFileProperty Dim OtherSubFileProp As SubFileProperty Set SubFileProp = SubFileProps.Add(file_datatype, "database", "", "") Set OtherSubFileProp = SubFileProps.Add(file_x_extended, "MyValue", "x_myproperty", "http://www.mydomain.com") ' Remove Property Call SubFileProps.Remove("file_datatype", "") Call SubFileProps.Remove("x_myproperty", "http://www.mydomain.com")