Lang L: none (table-of-contents)
Praegune mall
See Word VBA makro kuvab praeguse malli:
Sub DisplayCurrentTemplate () 'kuvab malli aktiivse dokumendi täieliku tee MsgBox ActiveDocument.AttachedTemplate.FullName,, "Malli asukoht" Lõpu alam
Loo uus mall
See Word VBA makro teeb uue malli:
Sub MakeNewTemplate () 'loob uue dokumendi ja salvestab mallina Dim strName Stringina Dim strPath Stringina Dim oDoc As Document strPath = Options.DefaultFilePath (wdUserTemplatesPath) & Application.PathSeparator' leiab, kus malle salvestatakse kasutaja arvutis strName = " Näide easyexcel.net template.dotm "Määra oDoc = Documents.Add" loo uus dokument ja seo see muutujaga oDoc. Kirjuta uude dokumenti teksti, viidates sellele oDoc muutuja oDoc.Range.InsertBe elé "Näidismall" oDoc abil. Vahemik.InsertPalaceAfter oDoc.Range.InsertAfter "Külastage https://easyexcel.net/vba-code-library" oDoc.SaveAs FileName: = strPath & strName, FileFormat: = wdFormatXMLTemplateMacroEnabled, AddToReCeColTeCoCd End Sub
