Fixes for Word Templates

Author: DecimalTurn

scripts/Build-VBA.ps1

@@ -304,9 +304,23 @@ Write-Host "Saving document..."
 $oldFilePath = ""
 try {
     if ($officeAppName -eq "Word") {
-        # For PowerPoint, use SaveAs with the same file name to force save
-        $doc.SaveAs($outputFilePath)
-        Write-Host "Document saved using SaveAs method"
+        # For Word, check if the file name ends with .dotm.docm
+        # If so, we need to save as .dotm
+        if ($outputFilePath.EndsWith(".dotm.docm")) {
+            $oldFilePath = $outputFilePath
+            $outputFilePath = $outputFilePath -replace "\.dotm\.docm$", ".dotm"
+            # Replace forward slashes with backslashes
+            $outputFilePath = $outputFilePath -replace "/", "\"
+            Write-Host "Saving document as .dotm: $outputFilePath"
+            $doc.SaveAs($outputFilePath, 15) # 15 is the wdFormatXMLTemplateMacroEnabled file format for .dotm
+            # Delete the .dotm.docm file
+            Remove-Item -Path $oldFilePath -Force
+            Write-Host "Document saved as .dotm at ${doc.Path}"
+        } else {
+            # We just use SaveAs since it's a normal Word document
+            $doc.SaveAs($outputFilePath)
+            Write-Host "Document saved using SaveAs method"
+        }
     } elseif ($officeAppName -eq "PowerPoint") {
         # For PowerPoint, we need to check if the file name ends with .ppam.pptm
         # If so, we need to save as .ppam
@@ -332,7 +346,7 @@ try {
             # Delete the .potm.pptm file
             Remove-Item -Path $oldFilePath -Force
             Write-Host "Document saved as .potm"
-            
+
         } else {
             $doc.Save()
             Write-Host "Document saved successfully"
@@ -362,18 +376,6 @@ try {
             # Delete the .xltm.xlsm file
             Remove-Item -Path $oldFilePath -Force
             Write-Host "Document saved as .xltm at ${doc.Path}"
-            
-        # Check if the extension is .dotm and if so save as .dotm
-        } elseif ($outputFilePath.EndsWith(".dotm.docm")) {
-            $oldFilePath = $outputFilePath
-            $outputFilePath = $outputFilePath -replace "\.dotm\.docm$", ".dotm"
-            # Replace forward slashes with backslashes
-            $outputFilePath = $outputFilePath -replace "/", "\"
-            Write-Host "Saving document as .dotm: $outputFilePath"
-            $doc.SaveAs($outputFilePath, 16) # 16 is the wdFormatXMLTemplateMacroEnabled file format for .dotm
-            # Delete the .dotm.docm file
-            Remove-Item -Path $oldFilePath -Force
-            Write-Host "Document saved as .dotm at ${doc.Path}"
 
         } else {
             $doc.Save()

tests/WordTemplate.dotm/Class Modules/Class1.cls

@@ -16,7 +16,7 @@ Public Sub ExecuteWrite()
     Dim fileNum As Integer
 
     ' Specify the path to the text file
-    filePath = ThisDocument.Path & "\WordDocument.txt"
+    filePath = ThisDocument.Path & "\WordTemplate.txt"
 
     ' Get a free file number
     fileNum = FreeFile