Makro kaydedicinin ötesinde Word Makroları: Office 2016, 365 / 2019 Makroları öğreticisi ve faydalı örnekler

Uygulanabilirlik: Word 365, 2019, 2016; Windows ve MAC OS X işletim sistemleri.

İşte bir okuyucudan bir soru:

Belgelerimi yazmak için genellikle Word 2019 kullanan bir öğretmenim. Belge paragraflarımın yazı tipini ve boyutunu sık sık değiştirmem gerekiyor. Makrolarla çalışmamı otomatikleştirmenin bir yolu var mı, böylece belge paragrafımı tek bir tıklamayla değiştirebilir miyim? Bunun bana haftada birkaç saat kazandıracağına eminim, ki bu da başka işlere seve seve yatırım yapacağım.

Sorunuz için teşekkürler. Makroların en önemli avantajı, Microsoft Office uygulamalarındaki görevlerinizi otomatikleştirmenize izin vermeleridir. Makrolar, Visual Basic for Applications (VBA) kullanılarak kaydedilebilir veya manuel olarak kodlanabilir. Word, kodlama olmadan otomasyon komut dosyaları geliştirmenize olanak tanıyan bir Makro kaydedici gönderir. Otomasyona yeni başlıyorsanız, bu yeterince iyi bir çözüm olabilir. Bununla birlikte, biraz VBA bilgisi ile verimli ve güçlü Makrolar yazabilirsiniz.

Word'de geliştirici sekmesini etkinleştirme

Microsoft Word Şeritinizde Geliştirici sekmesini görmüyorsanız, Makro geliştirme ortamınızı ayarlamanız gerekir.

• Yeni bir Word belgesi açın. Mevcut bir dosya üzerinde çalışmak istemeniz durumunda, herhangi bir değişiklik yapmadan önce yedekleme için bir kopyanız olduğundan emin olun.
• Şimdi devam edin ve geliştirici menüsünü Şeritte görünür hale getirin .

Bir Word Makrosu Kaydetme – pratik bir örnek

• Şimdi, yeni eklenen Geliştirici sekmesine basın.
• Kod düğmesi grubuna gidin .

• Makro kaydedici işlevini başlatmak için Makro Kaydet düğmesine basın .

• Makronuz için anlamlı bir ad tanımlayın. Not: Verdiğiniz ad otomatik oluşturulan VBA kodunda kullanılacağından, Makro adında boşluk olmadığından emin olun.

•  Not: Düğmelere Makro atamak mümkün olsa da, basitlik için Makro'yu Görünüm sekmesi veya Geliştirici sekmeleri aracılığıyla manuel olarak çalıştıracağız.

• Kaydetmek istediğiniz adım sırasını uygulayın. Bu durumda, aşağıdaki adımları kaydedersiniz:
  • Belgenizde belirli bir paragraf seçin.
  • Ana Sayfa sekmesine gidin .
  • Yazı tipini Times New Roman olarak ayarlayın.
  • Yazı Tipi Boyutunu 16 olarak ayarlayın.
  • Ctrl +E tuşlarına basarak Metninizi ortalayın.
• Bittiğinde, Geliştirici sekmesine dönün ve Kaydı Durdur'a basın .
• Şimdi otomatik olarak oluşturulan VBA koduna bir göz atalım. Makrolar'a basın ve ardından Otomatik Biçimlendirme Makrosunu vurgulayın ve Düzenle'ye basın .

• VBA Düzenleyicisini kapatın.

Çalışmanızı Word Makrosu etkinleştirilmiş bir şablona kaydedin

• Dosya'ya ve ardından Farklı Kaydet'e basın .
• Sağ taraftaki Farklı Kaydet iletişim kutusunda, kaydetme konumunuzu belirleyin ve Çalışma Kitabınıza anlamlı bir ad verin.

• Belge türünüz olarak Word Makro Etkin Belge'yi seçin. Not: Word belgeniz .docm son ekiyle kaydedilecektir.
• Kaydet Düğmesine basın .

Makronuzu yürütme

• Word belgenizi açın.
• Otomatik olarak biçimlendirmek istediğiniz Paragrafı seçin. Örnek olarak, seçtiğim paragraf şu:

• Görünüm sekmesine gidin .
• Makrolar düğmesine basın .
• Otomatik Biçimlendirme Makronuzu seçin
• Hit Run – bu, makroyu seçilen paragrafa uygular.
• Voi'la, güzel sonuç!

Makronuzu Düğmelere veya klavye kısayollarına atama

Not: Bu, yukarıdaki Makro kaydetme eğitimini izledikten sonra denenmesi gereken isteğe bağlı bir adımdır.

Tamam, şimdiye kadar Makro temellerimizi çalıştırdık. Şimdi, Word belgesindeki Makro kullanılabilirliğimizi biraz geliştirmenin zamanı geldi. Makronuzu hızlı erişim düğmesiyle nasıl ilişkilendirebileceğinizi göstereyim, böylece daha kolay başlatabilirsiniz.

• Şeride sağ tıklayın ve Hızlı Erişim Araç Çubuğunu Özelleştir'i seçin.
• Word Seçenekleri iletişim kutusu açılacaktır .
• Komutları seçin açılır menüsünde Makrolar'ı seçin.
• Makronuzu vurgulayın ve Hızlı Erişim Araç Çubuğuna Makronuza bir kısayol eklemek için Ekle>> Düğmesine basın .

• Makronuz için uygun bir simge tanımlamak için Değiştir… düğmesine basın.
• Düğmeniz için bir Görünen ad tanımlayın.
• Tamam'a basın .
• Şimdi, Şeridin hemen üzerindeki Hızlı Erişim Araç Çubuğundan Makronuzu başlatabilirsiniz.

Not: Word Makronuzu yalnızca hızlı erişim düğmeleriyle değil, belgenize katıştırılmış komut düğmeleri ve belirli özel klavye kısayollarıyla da ilişkilendirebilirsiniz.

VBA kullanarak Word Makroları Oluşturma

Bazı basit Visual Basic for Applications kodlama becerileriyle, VBA kullanarak çeşitli türdeki işleri otomatikleştirmek için makroları düzenleyebilir ve programlar yazabiliriz.

Not: Bilginize – Powerpoint ve Outlook gibi bazı Microsoft Office uygulamalarında yerleşik makro kaydediciler yoktur. Bu nedenle, Powerpoint makroları yazmak ve Outlook'u otomatikleştirmek için VBA yazmak zorunludur .

• Bir makroyu düzenlemek için  Geliştirici  sekmesine tıklayın ve kod seçeneğinden Makrolar'ı seçin.
• Makroya tıklayın ve  Düzenle'yi seçin .
• Uygulamalar için Visual Basic düzenleyicisi açılacaktır.
• Bir önceki adımda kaydettiğimiz Makroyu manuel olarak düzenlemek istediğimizi varsayalım ki Word sadece paragrafın Boyutunu, yazı tipini ve hizalamasını değil rengini de ayarlasın.
• Bir bölümün renginin ayarlanması, aşağıdaki VBA komutu kullanılarak gerçekleştirilir:

[kod] Selection.Font.Color [/code]

• Bizim durumumuzda, onu rastgele bir maviye ayarlamak isteyeceğiz, bu nedenle Kayıtlı makromuza aşağıdaki parçacığı ekleyeceğiz:

[kod] Selection.Font.Color = 16737792[/kod]

• VBA kodunuzun nasıl görünmesi gerektiği aşağıda açıklanmıştır:

• VBA Düzenleyici'de Dosya'ya ve ardından Kaydet'e basın .
• Belgenize geri dönün, Makronuzu bir paragraf üzerinde çalıştırın ve yazı tipi rengi değişimini gözlemleyin.

• Merhaba!

Yazabileceğiniz faydalı Word Makro örneği

Bu öğreticiyi yayınladıktan sonra, birçok okuyucu Word Makrolarının daha ayrıntılı örneklerini istedi. Bu liste, Word'de Visual Basic kullanarak otomatikleştirebileceğiniz en yaygın görevleri kapsar. İşte başlıyoruz:

Yeni Belge Oluştur ve Kaydet

Sub CreateNewDoc()
'This small snippet first creates a new document, then it checks whether a document with the same name already exists before saving.
Dim myDoc As New Document
Dim filePath As String

'Modify your file path as needed
filePath = "C:\MyNewDoc.docx"

Set myDoc = Documents.Add
With myDoc
If Dir(filePath) = "" Then
.SaveAs2 (filePath)
Else

'You have already an existing document

MsgBox ("Please use a different file name")
End If
End With

myDoc.Close SaveChanges:=wdPromptToSaveChanges

End Sub

Not: Yeni belgeler oluştururken kullanmak istediğiniz şablonu (.dotm/.dotx dosyaları) belirtebilirsiniz. Şablonlar genellikle şu konumda depolanır: C:\Users\\AppData\Roaming\Microsoft\Templates

Documents.Add Template:=<your_template_folder>

VBA ile bir Word belgesi açın

Sub OpenDoc()
'This code checks whether your document exists and then opens it
filePath = "C:\MyNewDoc.docx"

If Dir(filePath) = "" Then
MsgBox ("file doesn't exist")
Else
Documents.Open (filePath)
End If

End Sub

Bir/tüm açık belgeleri kapatma

Sub CloseDoc()

'This code closes a specific document
filePath = "C:\MyNewDoc.docx"
Documents(filePath).Close SaveChanges:=wdPromptToSaveChanges
End Sub

Sub CloseAllDocs()
'This code closes all opened documents in your computer
Documents.Close SaveChanges:=wdPromptToSaveChanges

End Sub

Word'ü PDF Olarak Kaydetme

İşte Word belgelerinin PDF dosyaları olarak kaydedilmesini kolayca otomatikleştirmenin yolu.

Sub SaveAsPdf()
'This code saves a word document in a PDF format
FileName = Left(CStr(ActiveDocument.Name), Len(CStr(ActiveDocument.Name)) - 5)
ActiveDocument.SaveAs2 FileName:="c:\" + FileName + ".pdf", FileFormat:=wdFormatPDF

End Sub

Üstbilgi ve altbilgi ekleme

Bu kod, Word belgenizin ilk sayfasının üstbilgisini ve altbilgisini ayarlar.

Sub InsertHeaderFooterFirstPage()
Dim myDoc As Document
Dim headerText As String
Dim footerText As String

Set myDoc = ActiveDocument
'Replace the header and footer text as needed
headerText = "This document was written by you"
footerText = "All rights reserved to you"

With myDoc.Sections(1)
'We first ensure that we can set different header and footer texts
.PageSetup.DifferentFirstPageHeaderFooter = True
'Setting the header and footer texts
.Headers(wdHeaderFooterFirstPage).Range.Text = headerText
.Footers(wdHeaderFooterFirstPage).Range.Text = footerText

End With

End Sub

Ek Word Makro fikirleri

Aşağıda, gelecekte yayınlayacağımız birkaç fikir daha var.

1. Bul ve Değiştir (Yöntem Yürüt)
2. Paragraf ekle (seçimden önce ve sonra)
3. Belgeleri programlı olarak yazdırma
4. tablolarla çalışma

Bu, bugünkü eğitimimizi tamamlıyor. Az önce gördüğünüz gibi, Word makro kaydedicisi ve Word'deki VBA Makroları ile yapılacak çok şey var. Bu eğitimin kapsamını aşan daha spesifik bir yardım arıyorsanız, lütfen iletişim formumuz aracılığıyla bizimle iletişime geçin .