.

Common/DocxFormat/Projects/DocxFormat2005.vcproj

@@ -1203,6 +1203,10 @@
 				RelativePath="..\Source\DocxFormat\Media\OleObject.h"
 				>
 			</File>
+			<File
+				RelativePath="..\Source\DocxFormat\Media\VbaProject.h"
+				>
+			</File>
 			<File
 				RelativePath="..\Source\DocxFormat\Media\Video.h"
 				>
@@ -1534,10 +1538,6 @@
 					RelativePath="..\Source\XlsxFormat\Drawing\Pos.h"
 					>
 				</File>
-				<File
-					RelativePath="..\Source\DocxFormat\Media\VbaProject.h"
-					>
-				</File>
 			</Filter>
 			<Filter
 				Name="SharedStrings"

Common/DocxFormat/Source/DocxFormat/Media/VbaProject.h

@@ -56,6 +56,8 @@ namespace OOX
 		}
 		virtual void write(const OOX::CPath& filename, const OOX::CPath& directory, CContentTypes& content) const
 		{
+			oContent.Registration( type().OverrideType(), oDirectory, oPath.GetFilename() );
+			IFileContainer::Write( oPath, oDirectory, oContent );
 		}
 		virtual const FileType type() const
 		{