✅ Word Makro Örnekleri ve VBA Eğitimi

İçindekiler

VBA PDF (Ücretsiz İndirmeler)
Word VBA Örnekleri “Hile Sayfası”
Word VBA Makro Eğitimi
Basit Word Makro Örneği
Word Belgesi Nesnesi
Belgeler
Aralık, Seçim, Paragraflar
Word Makro Örnekleri

Word VBA / Makrolar Mega Rehberimize hoş geldiniz!

Bu sayfa şunları içerir:

1. Word VBA Eğitimi PDF (Ücretsiz İndirme)
2. En sık kullanılan Word VBA kod parçacıklarının bir listesini içeren Word VBA "Hile Sayfası"
3. Tam Word VBA / Makro eğitimi.
4. Tüm Word VBA Makro Eğitimlerimizin aranabilir listesi

Excel için Etkileşimli VBA Eğitimimiz de ilginizi çekebilir. Örneklerin / alıştırmaların bazıları Excel VBA'ya özel olsa da, içeriğin çoğu tüm VBA'ya özgüdür ve If İfadeleri, Döngüler, İleti Kutuları ve daha fazlası gibi kavramları öğrenmeyi yararlı bulabilirsiniz.

VBA PDF (Ücretsiz İndirmeler)

Ücretsiz Microsoft Word VBA Eğitimimizi indirin! Veya diğer Office Programları için VBA Eğitimleri!

İndirmek

Word VBA Örnekleri “Hile Sayfası”

Aşağıda Microsoft Word ile çalışmak için basit VBA kodu örnekleri bulacaksınız.

Seç / Git

AçıklamaVBA Kodugeri alSelection.TypeBackspaceTüm Belgeyi SeçSelection.HomeKey Birimi:=wdStory
Seçim.GenişletkopyalaSeçim.KopyalaSilmekSelection.Delete Unit:=wdCharacter, Count:=1Sonra EkleSelection.Insert“metin”den sonraHattın BaşlangıcıSelection.HomeKey Birimi:=wdLineYolun sonuSelection.EndKey Birimi:=wdLineYapıştırmakSeçim.YapıştırHepsini seçSelection.WholeStoryTüm Satırı SeçSelection.EndKey Birimi:=wdLine, Extend:=wdExtendParagrafı Yukarı TaşıSelection.MoveUp Birim:=wdParagraph, Count:=1Bir Karakter Sağa TaşıSelection.MoveRight Birim:=wdCharacter, Sayı:=1Tabloda Bir Hücre Sağa TaşıSelection.MoveRight Birimi:=wdCellDokümanın Başına GitSelection.HomeKey Birimi:=wdStoryDokümanın Sonuna GitSelection.EndKey Birimi:=wdStory1. Sayfaya GitSelection.GoTo What:=wdGoToPage, Hangi:=wdGoToNext, Ad:=”1″Sayfanın Başına GitSelection.GoTo What:=wdGoToBookmark, Name:=”\Page”
Selection.MoveLeft Birim:=wdCharacter, Sayı:=1

Başa dön

Yer imleri

AçıklamaVBA KoduEkleActiveDocument.Bookmarks ile
.Aralık Ekle:=Selection.Range, Name:=”Ad”
.DefaultSorting = wdSortByName
.ShowHidden = Yanlış
İle bitmekSaymakTamsayı olarak n Dim
n = ActiveDocument.Bookmarks.CountSilmekActiveDocument.Bookmarks(“Yer İşaretiAdı”).Silvar mı?ActiveDocument.Bookmarks.Exists(“BookmarkName”) = True ise
'Bir şey yap
BitirGitSelection.GoTo What:=wdGoToBookmark, Name:=”Yer İşaretiAdı”SeçmeActiveDocument.Bookmarks(“Yer İşaretiAdı”).SeçinMetni DeğiştirSelection.GoTo What:=wdGoToBookmark, Name:=”Yer İşaretiAdı”
Selection.Delete Unit:=wdCharacter, Count:=1
Selection.Insert“Yeni Metin”den Sonra
ActiveDocument.Bookmarks.Add Range:=Selection.Range, _
Ad:=”Yer İşaretiAdı”

Başa dön

Belge

AçıklamaVBA KoduetkinleştirBelgeler(“Örnek.doc”).EtkinleştirDeğişkene EkleBelge olarak belgeyi karart
Belgeyi ayarla = Belgeler.AddEkleBelgeler.EkleEkle (Başka Bir Dokümandan)Documents.Add Template:=”C:\Forms\FormDoc.doc”, _
NewTemplate:=YanlışKapatBelgeler(“Örnek.doc”).KapatKapat - Değişiklikleri KaydetDocuments(“Example.doc”).Close SaveChanges:=wdSaveChangesKapat - KaydetmeDocuments(“Example.doc”).Close SaveChanges:=wdDoNotSaveChangesKapat - Kaydetmeyi İsteDocuments(“Example.doc”).Close SaveChanges:=wdPromptToSaveChanges

Başa dön

Sütunlar

AçıklamaVBA KoduFarklı kaydetBelgeler(“Örnek.doc”).Farklı Kaydet (“C:\Örnek\Örnek.doc”)KaydetmekBelgeler(“Örnek.doc”).KaydetKorumakDocuments(“Örnek.doc”).Protect Password:=”password”Korumayı kaldırBelgeler(“Örnek.doc”).UnProtect Parola:=”parola”Sayfa sayısıVaryant olarak Dim varNumberPages
varNumberPages = _
ActiveDocument.Content.Information(wdActiveEndAdjustedPageNumber)YazdırBelgeler(“Örnek.doc”).Yazdır

Başa dön

VBA Kodu Örnekleri Aramaktan Bıktınız mı? AutoMacro'yu deneyin!

Yazı tipi

AçıklamaVBA KoduBoySelection.Font.Size = 12Gözü pekSelection.Font.Bold = DoğruitalikSelection.Font.Italic = TrueAltını çizmekSelection.Font.Underline = wdUnderlineSingleTümü büyük harfSelection.Font.AllCaps = DoğruRenkSelection.Font.TextColor = vbRedİsimSelection.Font.Name = “Abadi”alt simgeSelection.Font.Subscript = DoğruSüper Komut DosyasıSelection.Font.Superscript = DoğruVurgu RengiSelection.Range.HighlightColorIndex = wdYellowstilSelection.Style = ActiveDocument.Styles(“Normal”)

Başa dön

Sokmak

AçıklamaVBA KoduOtomatik Metin EkleSelection.TypeText Metin:=”a3″
Selection.Range.InsertAutoTextTarih Kodu EkleDosya EkleSelection.InsertFile (“C:\Docs\Something.doc”)Sayfa Sonu EkleSelection.InsertBreak Türü:=wdPageBreakParagraf Sembolü EkleSelection.TypeText Metin:=Chr$(182)Sekme EkleSelection.TypeText Metin:=vbTabMetin EkleSelection.TypeText Metin:=”Herhangi Bir Metin”Tip Paragraf EkleSelection.TypeParagrafParagraf EkleSelection.InsertParagraph

Başa dön

döngüler

AçıklamaVBA KoduDokümanın Sonuna Kadar YapınActiveDocument.Bookmarks(“\Sel”) = ActiveDocument.Bookmarks(“\EndOfDoc”) Kadar Yapın
'Bir şey yap
AltDokümanlar'daki Her Doküman İçinBelge olarak belgeyi karart
Belgelerde Her belge için
'Bir şey yap
Sonraki belgeParagraflarda DöngüAlt Paragraflar
Dim i Kadar Uzun, iParCount Kadar Uzun
iParCount = ActiveDocument.Paragraphs.CountFori = 1 iParCount'a
ActiveDocument.Paragraphs(i).Alignment = wdAlignParagraphLeft
sonraki ben

Başa dön

Paragraf

AçıklamaVBA KoduKeepLinesBirlikteSelection.ParagraphFormat.KeepTogether = DoğruKeepWithNextSelection.ParagraphFormat.KeepWithNext = Doğrusonra boşlukSelection.ParagraphFormat.SpaceSonra = 12Önce BoşlukSelection.ParagraphFormat.SpaceBefore = 0Merkezi hizalamaSelection.ParagraphFormat.Alignment = wdAlignParagraphCenterSağa HizalaSelection.ParagraphFormat.Alignment = wdAlignParagraphRightSola hizalamakSelection.ParagraphFormat.Alignment = wdAlignParagraphLeftSol GirintiSelection.ParagraphFormat.LeftIndent = InchesToPoints(3.75)Sağ GirintiSelection.ParagraphFormat.RightIndent = InchesToPoints(1)Satır aralığıSelection.ParagraphFormat ile
.LineSpacingRule = wdLineSpaceTam olarak
.LineSpacing = 12
İle bitmekTüm Paragraflarda DöngüAlt Paragraflar
Dim i Kadar Uzun, iParCount Kadar Uzun
iParCount = ActiveDocument.Paragraphs.CountFori = 1 iParCount'a
ActiveDocument.Paragraphs(i).Alignment = wdAlignParagraphLeft
sonraki ben

Başa dön

Word VBA Makro Eğitimi

Bu, Microsoft Word ile VBA'yı kullanmak için bir eğitimdir. Bu eğitim size basit bir Makro yazmayı ve Belgeler, Aralıklar, Seçimler ve Paragraflar ile nasıl etkileşimde bulunacağınızı öğretecektir.

Not: Makrolar / VBA konusunda yeniyseniz, bu makaleyi de faydalı bulabilirsiniz: Sıfırdan VBA Makroları nasıl yazılır.

VBA Word, Excel, Outlook, PowerPoint ve Access dahil olmak üzere Microsoft Office programlarını otomatikleştirmek için kullanılan programlama dilidir.

makrolar belirli görevleri gerçekleştiren VBA kodu bloklarıdır.

Sen ne zaman Makro Kaydet, Word, VBA kodunu bir Makro'ya yazarak, eylemlerinizi tekrarlamanıza olanak tanır. Mevcut tüm Makroların bir listesini şuradan görebilirsiniz: Görünüm > Makrolar.

Bir Makro kaydettikten sonra, Makro Listesinden Makroyu düzenleyebilirsiniz:

tıkladığınızda Düzenlemek, sen aç VBA Düzenleyicisi. VBA Düzenleyiciyi kullanarak kaydedilmiş Makroları düzenleyebilir veya sıfırdan bir Word Makrosu yazabilirsiniz. VBA Düzenleyicisine erişmek için kısayolu kullanın ALT + F11 veya tıklayın Visual Basic itibaren Geliştirici Şeridi.

Basit Word Makro Örneği

Bu, Word VBA Makrosunun basit bir örneğidir. Aşağıdaki görevleri yerine getirir:

Bir Word Belgesi açar
Belgeye Yazıyor
Word Belgesini Kapatır ve Kaydeder.

123456789101112131415

Alt KelimeMakroÖrnek()'Belgeyi Aç ve Değişkene AtaDim oDoc Belge OlarakoDoc = Documents.Open("c:\Users\birisi\NewDocument.docx") olarak ayarlayın'Belgeye YazSelection.TypeText "www.automateexcel.com"Selection.TypeParagraf'Belgeyi Kaydet ve KapatoDoc.KaydetoDoc.KapatAlt Bitiş

Word Makro Temelleri

Tüm VBA kodu, bunun gibi prosedürler içinde saklanmalıdır. VBA'da bir prosedür oluşturmak için “Sub WordMacroExample” yazın (“WordMacroExample” istediğiniz Makro adıdır) ve düğmesine basın. GİRMEK. VBA, parantez ve End Sub'ı otomatik olarak ekleyecektir.

Word Belgesi Nesnesi

VBA'da Microsoft Word ile etkileşim kurarken, sık sık Word "Nesneleri"ne başvuracaksınız. En yaygın nesneler şunlardır:

Uygulama Nesnesi - Microsoft Word'ün kendisi

Belge Nesnesi - Bir Word belgesi

Menzil Nesnesi - Bir Word belgesinin bir parçası

Seçim Nesnesi - Seçilen bir aralık veya imleç konumu.

Başvuru

Uygulama “üst düzey” nesnedir. Word'deki diğer tüm nesnelere onun aracılığıyla ulaşılabilir.

Diğer Word nesnelerine erişmenin yanı sıra uygulanabilecek “uygulama düzeyinde” ayarlar vardır:

1	Application.Options.AllowDragAndDrop = Doğru

Bu, Uygulamada "Windows(1)" "Seçimi"ne erişmenin bir örneğidir:

1	Application.Windows(1).Selection.Characters.Count

Ancak, en yaygın Word nesnelerine tam hiyerarşiyi yazmadan doğrudan erişilebilir. Bunun yerine, şunu yazabilirsiniz (ve yapmalısınız):

1	Seçim.Karakterler.Sayı

Belgeler

ActiveDocument

Genellikle, Word'de açılmış iki veya daha fazla belgeniz olur ve hangi belirli Word Belgesi ile etkileşimde bulunacağınızı belirtmeniz gerekir. Hangi belgenin kullanılacağını belirlemenin bir yolu ActiveDocument. Örneğin:

1	ActiveDocument.PrintOut

… ActiveDocument'ı yazdırırdı. ActiveDocument, Word'de "odaklanan" belgedir.

ActiveDocument'ı değiştirmek için Activate komutunu kullanın:

1	Belgeler("Örnek.docx").Etkinleştir

Bu belge

Etkin belgeye başvurmak için ActiveDocument kullanmak yerine, makronun depolandığı belgeye başvurmak için ThisDocument'ı kullanabilirsiniz. Bu Belge asla değişmeyecek.

1	ThisDocument.PrintOut

Belge Değişkenleri

Ancak, daha karmaşık makrolar için Etkin Belgeyi takip etmek zor olabilir. Belgeler arasında geçiş yapmak da sinir bozucu olabilir.

Bunun yerine Belge değişkenlerini kullanabilirsiniz.

Bu makro, ActiveDocument'ı bir değişkene atayacak ve ardından değişkeni kullanarak belgeyi yazdıracaktır:

12345

Alt VarÖrnek()Belge Olarak Dim oDocoDoc'u ayarla = ActiveDocumentoDoc.PrintOutAlt Bitiş

Belge Yöntemleri

Belgeyi Aç

Bir Word Belgesini Açmak için:

1	Documents.Open "c:\Users\SomeOne\Desktop\Test PM.docx"

Açıldıktan sonra her zaman bir değişkene bir Belge atamanızı öneririz:

12	Belge olarak oDoc'u karartoDoc = Documents.Open("c:\Users\SomeOne\Desktop\Test PM.docx") olarak ayarlayın

Yeni Belge Oluştur

Yeni bir Word Belgesi oluşturmak için:

1	Belgeler.Ekle

Word'e bir şablona dayalı olarak yeni bir belge oluşturma talimatı verebiliriz:

1	Documents.Add Template:="C:\Program Files\Microsoft Office\Templates\MyTemplate.dotx"

Her zaman olduğu gibi, oluştururken veya açarken belgeyi değişkene atamak yararlı ve büyük bir sorun koruyucudur:

12	Belge olarak oDoc'u karartoDoc = Documents.Add olarak ayarlayın (Şablon:="C:\Program Files\Microsoft Office\Templates\MyTemplate.dotx")

Belgeyi Kaydet

Bir belgeyi kaydetmek için:

1	ActiveDocument.Save

veya SaveAs:

1	ActiveDocument.SaveAs DosyaAdı:= c:\Users\SomeOne\Desktop\test2.docx", FileFormat:=wdFormatDocument

Belgeyi Kapat

Bir Belgeyi kapatmak ve değişiklikleri kaydetmek için:

1	ActiveDocument.Close wdSaveChanges

veya değişiklikleri kaydetmeden:

1	ActiveDocument.Close wdDoNotSaveChanges

Belgeyi Yazdır

Bu, aktif Belgeyi yazdıracaktır:

1	ActiveDocument.PrintOut

Aralık, Seçim, Paragraflar

Menzil ve seçim muhtemelen Word VBA'daki en önemli nesnelerdir, kesinlikle en çok kullanılanlardır.

Menzil genellikle, ancak zorunlu olmamakla birlikte, belgenin bir bölümünü ifade eder.

seçim seçilen metne (veya resimler gibi başka bir nesneye) veya hiçbir şey seçilmemişse bir ekleme noktasına atıfta bulunur.

paragraflar belgedeki paragrafları temsil eder. Paragraf metnine doğrudan erişemeyeceğiniz için göründüğünden daha az önemlidir (değişiklik yapmak için belirli paragraf aralığına erişmeniz gerekir).

Menzil

Aralık, belgenin tamamı dahil olmak üzere belgenin herhangi bir parçası olabilir:

12	Aralık Olarak Dim veya AralıkoRange = ActiveDocument.Content olarak ayarlayın

veya bir karakter kadar küçük olabilir.

Başka bir örnek, bu aralık belgedeki ilk kelimeye atıfta bulunur:

12	Aralık Olarak Dim veya AralıkoRange = ActiveDocument.Range.Words(1) olarak ayarlayın

Genellikle, belgenin belirli bir bölümünü ifade eden aralığı almak ve ardından değiştirmek istersiniz.

Aşağıdaki örnekte ikinci paragrafın ilk kelimesini kalın yapacağız:

123	Aralık Olarak Dim veya AralıkoRange = ActiveDocument.Paragraphs(2).Range.Words(1) olarak ayarlayınoRange.Bold = Doğru

Aralık Metni Ayarla

Bir Aralığın metin değerini ayarlamak için:

123	Aralık Olarak Dim veya AralıkoRange = ActiveDocument.Paragraphs(2).Range.Words(1) olarak ayarlayınoRange.Text = “Merhaba ”

(İpucu: “Merhaba”dan sonraki boşluğa dikkat edin. Word nesnesi kelimeden sonra boşluk içerdiğinden, yalnızca “merhaba” ile “Hellonext kelimesini elde ederiz”)

Aralıklarla yapabileceğiniz yüzlerce şey var. Sadece birkaç örnek (bunlar zaten nesne değişkeni olduğunuzu varsayar turuncu ilgi alanına atıfta bulunarak):

Yazı tipini değiştir

1	oRange.Font.Name = "Arial"

Mesaj kutusunda belirli aralıktaki karakter sayısını göster

1	MsgBox oRange.Characters.Count

Önüne biraz metin ekleyin

1	oRange.Insert "Bu, eklenen metindir"den önce

Aralığa dipnot ekle

12	ActiveDocument.Footnotes.Add Range:=oRange, _Text:="Daha fazlasını easyexcel.net adresinde okuyun."

Panoya kopyalayın

1234	oAralık.KopyalaÇoğu zaman, atıfta bulunulan belirli bir aralığa geçmeniz gerekir. Böylece başlayabilir ve bitirebilirsinoAralık.Başlangıç = 5oAralık.Bitiş = 50

Yukarıdaki koddan sonra, oRange, belgedeki beşinci karakterle başlayan ve 50. karakterle biten metne atıfta bulunur.

seçim

seçim göre daha yaygın olarak kullanılmaktadır. Menzil, çünkü çalışmak daha kolay seçimler hariç Aralıklar, Makronuz YALNIZCA ActiveDocument ile etkileşime giriyorsa.

Önce belgenizin istediğiniz bölümünü seçin. Örneğin, aktif belgede ikinci paragrafı seçin:

1	ActiveDocument.Paragraphs(2).Range.Select

Ardından, bir metin yazmak için Seçim Nesnesini kullanabilirsiniz:

1	Selection.TypeText "Biraz metin"

“Some text”in altına bazı paragraflar yazabiliriz:

12	Selection.TypeText "Biraz metin"Selection.TypeParagraf

Çoğu zaman, bir metnin seçili olup olmadığını veya yalnızca bir ekleme noktamız olup olmadığını bilmek gerekir:

12345

Eğer Selection.Type wdSelectionIP iseSelection.Font.Bold = DoğruBaşkaMsgBox "Bir metin seçmeniz gerekiyor."Bitir

Selection nesnesi ile çalışırken, belirli bir yere ekleme noktası yerleştirmek ve bu noktadan başlayarak komutlar vermek istiyoruz.

Belgenin başlangıcı:

1	Selection.HomeKey Birimi:=wdStory, Extend:=wdMove

Geçerli satırın başlangıcı:

1	Selection.HomeKey Birimi:=wdLine, Extend:=wdMove

Genişletme parametresi wdMove, ekleme noktasını taşır. Bunun yerine, geçerli ekleme noktası arasındaki tüm metni seçecek olan wdExtend'i kullanabilirsiniz.

1	Selection.HomeKey Birimi:=wdLine, Extend:=wdExtend

Seçimi Taşı

Ekleme noktasının konumunu değiştirmek için en kullanışlı yöntem Move'dur. Seçimi iki karakter ileriye taşımak için:

1	Selection.Move Unit:=wdCharacter, Count:=2

geriye doğru hareket ettirmek için Count parametresi için negatif sayı kullanın:

1	Selection.Move Unit:=wdCharacter, Count:=-2

Birim parametresi wdCharacter, wdWord, wdLine veya daha fazlası olabilir (diğerlerini görmek için Word VBA yardımını kullanın).

Bunun yerine kelimeleri taşımak için:

1	Selection.Move unit:=wdWord, Count:=2

Seçimle çalışmak (aralıklara kıyasla) daha kolaydır, çünkü insan kullanıcıyı taklit eden Word kullanan bir robot gibidir. Ekleme noktasının olduğu yer - bazı eylemler gerçekleşecektir. Ancak bu, ekleme noktasının nerede olduğuna dikkat etmeniz gerektiği anlamına gelir! Koddaki birçok adımdan sonra bu kolay değil. Aksi takdirde, Word metni istenmeyen bir yerde değiştirir.

Seçim nesnesinde bulunmayan bir özellik veya yönteme ihtiyacınız olması durumunda, seçimle ilişkili aralığı her zaman kolayca elde edebilirsiniz:

1	oRange = Selection.Range ayarla

İPUCU: kullanma seçim genellikle aralıkları kullanmaktan daha kolaydır, ancak aynı zamanda çok daha yavaştır (büyük belgelerle uğraşırken önemlidir)

paragraflar

Metni değiştirmek için doğrudan Paragraflar nesnesini kullanamazsınız:

1	ActiveDocument.Paragraphs(1).Text = "Hayır, çalışmaz"

Yukarıda çalışmaz (aslında bir hata verir). Önce belirli bir paragrafla ilişkili aralığı elde etmeniz gerekir:

1	ActiveDocument.Paragraphs(1).Range.Text = "Şimdi çalışıyor :)"

Ancak stilini doğrudan değiştirebilirsiniz:

1	ActiveDocument.Paragraphs(1).Style = "Normal"

veya paragraf düzeyi biçimlendirmesini değiştirin:

1	ActiveDocument.Paragraphs(1).LeftIndent = 10

ya da belki bu paragrafı bir sonraki paragrafla aynı satırda tutmak istersiniz:

1	ActiveDocument.Paragraphs(1).KeepWithNext = True

Paragrafı ortalayın:

1	ActiveDocument.Paragraphs(1).Alignment = wdAlignParagraphCenter

Nesne değişkenine belirli bir paragraf atamak ÇOK yararlıdır. Değişkene belirli bir paragraf atarsak, önüne bir paragraf eklediğimiz için ilk paragrafın ikinci olup olmayacağı konusunda endişelenmemize gerek kalmaz:

12	oPara'yı Paragraf olarak karartSet oPara = Selection.Paragraphs(1) 'burada mevcut seçimin ilk paragrafını değişkene atarız

İşte ilk paragrafın üstüne bir paragraf eklediğimiz, ancak bir değişkene atandığı için eski ilk paragrafa başvurabileceğimiz bir örnek:

1234567

Alt ParagrafÖrnek()Paragraf Olarak Dim oParaoPara = ActiveDocument.Paragraphs(1) olarak ayarlayınMsgBox oPara.Range.TextoPara.Range.InsertParagraphBefore Paragraf EkleMsgBox oPara.Range.TextAlt Bitiş

Paragraf nesnesi döngülerde çok sık kullanılır:

123456789101112

Alt LoopThroughParagraphs()Paragraf Olarak Dim oParaActiveDocument.Paragraphs içindeki her oPara için'Onunla bir şeyler yap. sadece görüntüleyeceğiz'paragraf metni, stili "Başlık 4" iseoPara.Style = "Başlık 4" iseMsgBox oPara.Range.TextBitirSonraki oParaAlt Bitiş

Word VBA Eğitimi Sonuç

Bu eğitim, Word VBA'nın temellerini ele aldı. VBA'da yeniyseniz, Değişkenler, Döngüler, Mesaj Kutuları, Ayarlar, Koşullu Mantık ve çok daha fazlası hakkında daha fazla bilgi edinmek için genel VBA Eğitimimizi de gözden geçirmelisiniz.