Πίνακας περιεχομένων
Τρέχον πρότυπο
Αυτή η μακροεντολή Word VBA θα εμφανίσει το τρέχον πρότυπο:
Sub DisplayCurrentTemplate () 'εμφανίζει την πλήρη διαδρομή του ενεργού εγγράφου προτύπου MsgBox ActiveDocument.AttachedTemplate.FullName,, "Θέση προτύπου" Τέλος υπο
Δημιουργία νέου προτύπου
Αυτή η μακροεντολή Word VBA θα δημιουργήσει ένα νέο πρότυπο:
Sub MakeNewTemplate () 'δημιουργεί ένα νέο έγγραφο και αποθηκεύει ως πρότυπο Dim strName As String Dim strPath As String Dim oDoc As Document strPath = Options.DefaultFilePath (wdUserTemplatesPath) & Application.PathSeparator' βρείτε πού αποθηκεύονται τα πρότυπα στον υπολογιστή του χρήστη strName = " Δείγμα easyexcel.net template.dotm "Set oDoc = Documents.Ddd" δημιουργήστε ένα νέο έγγραφο και αναθέστε το σε μεταβλητή oDoc "γράψτε κάποιο κείμενο στο νέο έγγραφο που αναφέρεται σε αυτό χρησιμοποιώντας oDoc μεταβλητή oDoc.Range.InsertBefore" Sample template "oDoc. Range.InsertParagraphAfter oDoc.Range.InsertAfter "Επισκεφτείτε τη διεύθυνση https://easyexcel.net/vba-code-library" oDoc.SaveAs FileName: = strPath & strName, FileFormat: = wdFormatXMLTemplateMacroEnabledOcoseCoCoCoCoCoCoCentCoCoCoCoCoCoCoCoCenterWoCoCoCoCentCoCoCentCoCoCoCoCentCoCoCoCentCoCoCoCoCoCoCoCoCoCoCoCoCoCoCoCoCoCoCoCoCoCoCoCoCoCoCoCoCoCoCoCoCoCentoSeCoCoCoCoCoCoCoCoCoCoCoCoCoCoCoctoCoCoCoCoCoCoCoCoCoineFare, Range.InsertParagraph, μετά από Τέλος υπο
