Word 2013 VBA - Save template including macro modules












0














I have an macro-enabled template. One function is saving the current document (based on the template) as another macro-enabled template. Code:



Private Sub cmdSaveAsTemplate_Click()

Dim choice As Integer
Dim dia As FileDialog

Set dia = Application.FileDialog(msoFileDialogSaveAs)
dia.FilterIndex = 5
dia.InitialFileName = "TEMPLATE DealDoc"

choice = dia.Show
If choice <> 0 Then
dia.Execute

End If

End Sub


This code works fine except that the saved "copy" does not contain the macros and forms.



I want the saved template to contain the makro modules, forms and the code inside "ThisDocument".










share|improve this question





























    0














    I have an macro-enabled template. One function is saving the current document (based on the template) as another macro-enabled template. Code:



    Private Sub cmdSaveAsTemplate_Click()

    Dim choice As Integer
    Dim dia As FileDialog

    Set dia = Application.FileDialog(msoFileDialogSaveAs)
    dia.FilterIndex = 5
    dia.InitialFileName = "TEMPLATE DealDoc"

    choice = dia.Show
    If choice <> 0 Then
    dia.Execute

    End If

    End Sub


    This code works fine except that the saved "copy" does not contain the macros and forms.



    I want the saved template to contain the makro modules, forms and the code inside "ThisDocument".










    share|improve this question



























      0












      0








      0







      I have an macro-enabled template. One function is saving the current document (based on the template) as another macro-enabled template. Code:



      Private Sub cmdSaveAsTemplate_Click()

      Dim choice As Integer
      Dim dia As FileDialog

      Set dia = Application.FileDialog(msoFileDialogSaveAs)
      dia.FilterIndex = 5
      dia.InitialFileName = "TEMPLATE DealDoc"

      choice = dia.Show
      If choice <> 0 Then
      dia.Execute

      End If

      End Sub


      This code works fine except that the saved "copy" does not contain the macros and forms.



      I want the saved template to contain the makro modules, forms and the code inside "ThisDocument".










      share|improve this question















      I have an macro-enabled template. One function is saving the current document (based on the template) as another macro-enabled template. Code:



      Private Sub cmdSaveAsTemplate_Click()

      Dim choice As Integer
      Dim dia As FileDialog

      Set dia = Application.FileDialog(msoFileDialogSaveAs)
      dia.FilterIndex = 5
      dia.InitialFileName = "TEMPLATE DealDoc"

      choice = dia.Show
      If choice <> 0 Then
      dia.Execute

      End If

      End Sub


      This code works fine except that the saved "copy" does not contain the macros and forms.



      I want the saved template to contain the makro modules, forms and the code inside "ThisDocument".







      vba ms-word






      share|improve this question















      share|improve this question













      share|improve this question




      share|improve this question








      edited Nov 19 '18 at 17:49









      Cindy Meister

      14.2k102134




      14.2k102134










      asked Nov 19 '18 at 15:07









      Plarsen

      2672822




      2672822
























          1 Answer
          1






          active

          oldest

          votes


















          1














          It's not possible to save the macros in an attached template into a document created from the template using SaveAs, not even when saving as file type docm.



          The only way would be to create the new file as a new template, right from the start:



          Documents.Add Template:=pathNameToTemplate, NewTemplate:=True





          share|improve this answer





















          • Okay, thanks. Then I will need to rethink the whole process and instead use the saved copy as a data-document that is possible to import back.
            – Plarsen
            Nov 20 '18 at 19:29











          Your Answer






          StackExchange.ifUsing("editor", function () {
          StackExchange.using("externalEditor", function () {
          StackExchange.using("snippets", function () {
          StackExchange.snippets.init();
          });
          });
          }, "code-snippets");

          StackExchange.ready(function() {
          var channelOptions = {
          tags: "".split(" "),
          id: "1"
          };
          initTagRenderer("".split(" "), "".split(" "), channelOptions);

          StackExchange.using("externalEditor", function() {
          // Have to fire editor after snippets, if snippets enabled
          if (StackExchange.settings.snippets.snippetsEnabled) {
          StackExchange.using("snippets", function() {
          createEditor();
          });
          }
          else {
          createEditor();
          }
          });

          function createEditor() {
          StackExchange.prepareEditor({
          heartbeatType: 'answer',
          autoActivateHeartbeat: false,
          convertImagesToLinks: true,
          noModals: true,
          showLowRepImageUploadWarning: true,
          reputationToPostImages: 10,
          bindNavPrevention: true,
          postfix: "",
          imageUploader: {
          brandingHtml: "Powered by u003ca class="icon-imgur-white" href="https://imgur.com/"u003eu003c/au003e",
          contentPolicyHtml: "User contributions licensed under u003ca href="https://creativecommons.org/licenses/by-sa/3.0/"u003ecc by-sa 3.0 with attribution requiredu003c/au003e u003ca href="https://stackoverflow.com/legal/content-policy"u003e(content policy)u003c/au003e",
          allowUrls: true
          },
          onDemand: true,
          discardSelector: ".discard-answer"
          ,immediatelyShowMarkdownHelp:true
          });


          }
          });














          draft saved

          draft discarded


















          StackExchange.ready(
          function () {
          StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fstackoverflow.com%2fquestions%2f53377469%2fword-2013-vba-save-template-including-macro-modules%23new-answer', 'question_page');
          }
          );

          Post as a guest















          Required, but never shown

























          1 Answer
          1






          active

          oldest

          votes








          1 Answer
          1






          active

          oldest

          votes









          active

          oldest

          votes






          active

          oldest

          votes









          1














          It's not possible to save the macros in an attached template into a document created from the template using SaveAs, not even when saving as file type docm.



          The only way would be to create the new file as a new template, right from the start:



          Documents.Add Template:=pathNameToTemplate, NewTemplate:=True





          share|improve this answer





















          • Okay, thanks. Then I will need to rethink the whole process and instead use the saved copy as a data-document that is possible to import back.
            – Plarsen
            Nov 20 '18 at 19:29
















          1














          It's not possible to save the macros in an attached template into a document created from the template using SaveAs, not even when saving as file type docm.



          The only way would be to create the new file as a new template, right from the start:



          Documents.Add Template:=pathNameToTemplate, NewTemplate:=True





          share|improve this answer





















          • Okay, thanks. Then I will need to rethink the whole process and instead use the saved copy as a data-document that is possible to import back.
            – Plarsen
            Nov 20 '18 at 19:29














          1












          1








          1






          It's not possible to save the macros in an attached template into a document created from the template using SaveAs, not even when saving as file type docm.



          The only way would be to create the new file as a new template, right from the start:



          Documents.Add Template:=pathNameToTemplate, NewTemplate:=True





          share|improve this answer












          It's not possible to save the macros in an attached template into a document created from the template using SaveAs, not even when saving as file type docm.



          The only way would be to create the new file as a new template, right from the start:



          Documents.Add Template:=pathNameToTemplate, NewTemplate:=True






          share|improve this answer












          share|improve this answer



          share|improve this answer










          answered Nov 19 '18 at 17:52









          Cindy Meister

          14.2k102134




          14.2k102134












          • Okay, thanks. Then I will need to rethink the whole process and instead use the saved copy as a data-document that is possible to import back.
            – Plarsen
            Nov 20 '18 at 19:29


















          • Okay, thanks. Then I will need to rethink the whole process and instead use the saved copy as a data-document that is possible to import back.
            – Plarsen
            Nov 20 '18 at 19:29
















          Okay, thanks. Then I will need to rethink the whole process and instead use the saved copy as a data-document that is possible to import back.
          – Plarsen
          Nov 20 '18 at 19:29




          Okay, thanks. Then I will need to rethink the whole process and instead use the saved copy as a data-document that is possible to import back.
          – Plarsen
          Nov 20 '18 at 19:29


















          draft saved

          draft discarded




















































          Thanks for contributing an answer to Stack Overflow!


          • Please be sure to answer the question. Provide details and share your research!

          But avoid



          • Asking for help, clarification, or responding to other answers.

          • Making statements based on opinion; back them up with references or personal experience.


          To learn more, see our tips on writing great answers.





          Some of your past answers have not been well-received, and you're in danger of being blocked from answering.


          Please pay close attention to the following guidance:


          • Please be sure to answer the question. Provide details and share your research!

          But avoid



          • Asking for help, clarification, or responding to other answers.

          • Making statements based on opinion; back them up with references or personal experience.


          To learn more, see our tips on writing great answers.




          draft saved


          draft discarded














          StackExchange.ready(
          function () {
          StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fstackoverflow.com%2fquestions%2f53377469%2fword-2013-vba-save-template-including-macro-modules%23new-answer', 'question_page');
          }
          );

          Post as a guest















          Required, but never shown





















































          Required, but never shown














          Required, but never shown












          Required, but never shown







          Required, but never shown

































          Required, but never shown














          Required, but never shown












          Required, but never shown







          Required, but never shown







          Popular posts from this blog

          Can a sorcerer learn a 5th-level spell early by creating spell slots using the Font of Magic feature?

          Does disintegrating a polymorphed enemy still kill it after the 2018 errata?

          A Topological Invariant for $pi_3(U(n))$