Kevin Boske Given a file name, delete the VBAProject and its relationship (does not convert the file to macro-free DeleteVBAProject

WindowsBase windowsbase.dll System.IO System.IO.Packaging System.Collections.Generic /// Delete the VBA project part and relationship in any file type. /// /// name of the file to delete public void DeleteVBAPart(string fileName) { string officeDocRelType = @"http://schemas.microsoft.com/office/2006/relationships/officeDocument"; const string vbaRelationshipType = "http://schemas.microsoft.com/office/2006/relationships/vbaProject"; PackagePart documentPart = null; Uri documentUri = null; //Open the package with Read permission using (Package officePackage = Package.Open(fileName, FileMode.Open, FileAccess.ReadWrite)) { //Get the start part foreach (PackageRelationship relationship in officePackage.GetRelationshipsByType(officeDocRelType)) { // There should only be one document part in the package documentUri = PackUriHelper.ResolvePartUri(new Uri("/", UriKind.Relative), relationship.TargetUri); documentPart = officePackage.GetPart(documentUri); break; } //Find the VBA project part. foreach (System.IO.Packaging.PackageRelationship relationship in documentPart.GetRelationshipsByType(vbaRelationshipType)) { Uri vbaUri = PackUriHelper.ResolvePartUri(documentUri, relationship.TargetUri); PackagePart vbaPart = officePackage.GetPart(vbaUri); //Delete the VBA part officePackage.DeletePart(vbaUri); //Remove the VBA relationship documentPart.DeleteRelationship(relationship.Id); //There is only VBA part: break; } //Close the package officePackage.Close(); } } ]]>