Macro-uri Word VBA - Șabloane (faceți noi)

Șablon curent

Această macrocomandă Word VBA va afișa șablonul curent:

Sub DisplayCurrentTemplate () 'afișează calea completă a documentului activ șablon MsgBox ActiveDocument.AttachedTemplate.FullName,, „Locație șablon” End Sub

Creați un șablon nou

Această macrocomandă Word VBA va crea un șablon nou:

Sub MakeNewTemplate () 'creează un document nou și salvează ca șablon Dim strName As String Dim strPath As String Dim oDoc As Document strPath = Options.DefaultFilePath (wdUserTemplatesPath) & Application.PathSeparator' găsește unde șabloanele sunt stocate pe computerul utilizatorului strName = " Exemplu easyexcel.net template.dotm "Set oDoc = Documents.Add" creați un nou doc ​​și atribuiți-l variabilei oDoc "scrieți un text în noul document referindu-vă la acesta utilizând variabila oDoc oDoc.Range.InsertBefore" Sample template "oDoc. Range.InsertParagraphAfter oDoc.Range.InsertAfter "Visit https://easyexcel.net/vba-code-library" oDoc.SaveAs FileName: = strPath & strName, FileFormat: = wdFormatXMLTemplateMacroEnabled, AddToRecentFiles: = False Sfârșitul Sub