Word VBA -makrot - mallit (tee uusi)

Nykyinen malli

Tämä Word VBA -makro näyttää nykyisen mallin:

Sub DisplayCurrentTemplate () 'näyttää mallin aktiivisen asiakirjan koko polun MsgBox ActiveDocument.AttachedTemplate.FullName,, "Mallin sijainti" End Sub

Tee uusi malli

Tämä Word VBA -makro luo uuden mallin:

Sub MakeNewTemplate () 'luo uuden asiakirjan ja tallentaa mallina Dim strName As String Dim strPath String Dim oDoc As Document strPath = Options.DefaultFilePath (wdUserTemplatesPath) & Application.PathSeparator' löytää, missä mallit on tallennettu käyttäjän tietokoneeseen strName = " Esimerkki easyexcel.net template.dotm "Aseta oDoc = Documents.Add" luo uusi asiakirja ja liitä se oDoc -muuttujaan. Kirjoita uuteen asiakirjaan teksti, joka viittaa siihen käyttämällä oDoc -muuttujaa oDoc.Range.InsertBefore "Mallimalli" oDoc. Range.InsertPa paragraphAfter oDoc.Range.InsertAfter "Vieraile osoitteessa https://easyexcel.net/vba-code-library" oDoc.SaveAs FileName: = strPath & strName, FileFormat: = wdFormatXMLTemplateMacroEnabled, AddToReColorDoc.doc End Sub