Word VBA Makroları - Şablonlar (Yeni Yap)

Geçerli Şablon

Bu Word VBA makrosu geçerli şablonu görüntüler:

Sub DisplayCurrentTemplate() 'şablon etkin belgenin tam yolunu görüntüler MsgBox ActiveDocument.AttachedTemplate.FullName, , "Şablon konumu" End Sub

Yeni Şablon Yap

Bu Word VBA makrosu yeni bir şablon oluşturacaktır:

Sub MakeNewTemplate() 'yeni bir belge oluşturur ve bir şablon olarak kaydeder Dim strName As String Dim strPath As String Dim oDoc As Document strPath = Options.DefaultFilePath(wdUserTemplatesPath) & Application.PathSeparator 'şablonların kullanıcının bilgisayarında nerede saklandığını bul strName = " Örnek easyexcel.net template.dotm" oDoc = Documents.Add ayarlayın 'yeni bir doküman oluşturun ve onu oDoc değişkenine atayın' oDoc değişkeni oDoc.Range.InsertBefore "Örnek şablon" oDoc'u kullanarak yeni dokümana bir metin yazın. Range.InsertParagraphoDoc.Range.Insert'ten sonra"https://easyexcel.net/vba-code-library adresini ziyaret edin"den sonra oDoc.SaveAs FileName:=strPath & strName, FileFormat:=wdFormatXMLTemplateMacroEnabled, AddToRecentFiles:=FalseChanges doc Alt Bitiş