Ist es möglich, ein neues Dokument aus einer Vorlage zu erstellen und dessen Füllung mit einem visuellen Basisformular zu automatisieren?

Question

Ich möchte eine .dotm-Vorlage erstellen, aus der die Dokumentenbasis erstellt wird. Dann möchte ich es mit Visual Basic-Formularen füllen.

Zuerst habe ich versucht, es mit AutoExec und AutoOpen zu tun, aber es hat nicht geklappt. Also habe ich gegoogelt und eine Lösung gefunden - ich muss das Document_New-Verfahren verwenden. So im Moment sieht das alles so aus:

Ich habe eine dotm Vorlage. Im Templates-Projekt habe ich ein Makro für ThisDocument und das Formular mit dem Namen InputForm definiert. Makro sieht wie folgt aus

Private Sub Document_New() 
    InputForm.Show 
End Sub 

In Inputform Code erhalte ich einen Text von TextBox-Elemente, und wollen es bestimmte Felder in neu erstellte Dokument zuweisen.

Problem ist, dass das Dokument aus der Vorlage erstellt wird, bevor ich Formular ausfülle, so dass alle Änderungen, die in einem neuen Dokument vorgenommen werden sollen, in der Vorlage vorgenommen werden.

bearbeiten: Code für Inputform

Private Sub OkButton_Click() 

    If IsRight Then 
     ThisDocument.txt_Num.Value = txt_Num1.Value 

     ThisDocument.txt_Date.Value = txt_Date1.Value 

     ThisDocument.lbl_Num_Date.Caption = " ТКП № " & txt_Num1.Value & " от " & _ 
     txt_Date1.Value & "г." 

     ThisDocument.txt_Project.Value = txt_Project1.Value 

     ThisDocument.lbl_Project.Caption = txt_Project1.Value 

     ThisDocument.txt_Author.Value = txt_Author1.Value 

     ThisDocument.txt_Org.Value = txt_Org1.Value 

     ThisDocument.lbl_Organization.Caption = txt_Org1.Value 

     ThisDocument.txt_Phone.Value = txt_Phone1.Value 

     ThisDocument.txt_Mail.Value = txt_Mail1.Value 

     InputForm.Hide 
    Else 
     MsgBox ("Неверно") 
    End If 
End Sub 

Public Function IsRight() As Boolean 
    If IsDate(txt_Date1.Value) Then 
     IsRight = True 
    Else 
     IsRight = False 
    End If 
End Function 

Private Sub CancelButton_Click() 
    InputForm.Hide 
End Sub 

Answer 1

Sie sollten ActiveDocument statt ThisDocument verwenden.

Sie können so etwas wie

ActiveDocument.txt_Num.Value = txt_Num1.Value 

https://msdn.microsoft.com/en-us/library/office/ff194846.aspx

auch versuchen, überprüfen Sie meine Antwort hier für eine einfachere Alternativen Find and replace multiple words in Word

Answer 2

Vorausgesetzt, dass Sie das Makro haben Arbeit in Form zu füllen, sobald eine neue Instanz des Dokuments offen Ich würde versuchen, die folgenden Documents.Add Template:="C:/put absolute file path here, NewTemplate:= False, DocumentType:= 0'. Es scheint mir Ihren Code Öffnet die eigentliche Vorlage und kein "neues Dokument".

Ich würde dann dieses Makro an eine Tastaturverknüpfung anhängen oder es aus einer Schaltfläche innerhalb der Vorlage auslösen und dann Ihr Makro ausführen, um das Dokument auszufüllen. Meiner Erfahrung nach (was begrenzt ist), die Makros so kompartimentiert wie möglich zu machen, liefert mir die besten Ergebnisse.