Spisie treści
Bieżący szablon
To makro Word VBA wyświetli bieżący szablon:
Sub DisplayCurrentTemplate() 'wyświetla pełną ścieżkę aktywnego dokumentu szablonu MsgBox ActiveDocument.AttachedTemplate.FullName, , "Lokalizacja szablonu" End Sub
Utwórz nowy szablon
To makro Word VBA utworzy nowy szablon:
Sub MakeNewTemplate() 'tworzy nowy dokument i zapisuje jako szablon Dim strName As String Dim strPath As String Dim oDoc As Document strPath = Options.DefaultFilePath(wdUserTemplatesPath) & Application.PathSeparator 'znajdź miejsce przechowywania szablonów na komputerze użytkownika strName = " Przykładowy easyexcel.net template.dotm" Set oDoc = Documents.Add 'utwórz nowy dokument i przypisz go do zmiennej oDoc 'zapisz tekst w nowym dokumencie odnoszący się do niego za pomocą zmiennej oDoc oDoc.Range.InsertBefore "Przykładowy szablon" oDoc. Range.InsertParagraphAfter oDoc.Range.InsertAfter "Odwiedź https://easyexcel.net/vba-code-library" oDoc.SaveAs FileName:=strPath & strName, FileFormat:=wdFormatXMLTemplateMacroEnabled, AddToRecentFiles'DocSaveChanges w Napis końcowy