İçindekiler
Word Belgesini Aç
Bu Word VBA Makrosu, belirtilen dizinden bir kelime belgesi açacaktır:
Sub OpenDoc() Dim strFile As String strFile = "c:\Users\Nenad\Desktop\Test PM.docm" 'dosyanızın yolunu değiştirin If Dir(strFile) "" Sonra 'Önce belgenin mevcut olup olmadığını kontrol ederiz. verilen konum Documents.Open strFile End If End Sub
Artık ActiveDocument Nesnesi ile yeni açılan belgeyle etkileşime girebilirsiniz. Bu kod, belgeye bir miktar metin ekleyecektir.
ActiveDocument.Range(0, 0).Text = "Biraz Metin Ekle"
Belgeyi Değişkene Aç
Ayrıca bir Word belgesini hemen bir değişkene atayarak da açabilirsiniz:
Sub OpenDoc() Dim strFile As String Dim oDoc as Document strFile = "c:\Users\Nenad\Desktop\Test PM.docm" 'dosyanızın yolunu değiştirin If Dir(strFile) "" Sonra 'Önce belgenin olup olmadığını kontrol ediyoruz belirli bir yerde var Set oDoc = Documents.Open strFile End If End Sub
oDoc. değişkeni aracılığıyla belgeyle etkileşime girmenize olanak tanır:
oDoc.Range(0, 0).Text = "Biraz Metin Ekle"
Genellikle bir değişkene açmak en iyi uygulamadır, bu da size herhangi bir noktada belgeye kolayca başvurma yeteneği verir.
Excel'den Word Belgesini Açın
Bu VBA prosedürü, başka bir MS Office programından (örn. Excel) bir Word Belgesi açacaktır:
Sub OpenDocFromExcel() Dim wordapp Dim strFile As String strFile = "c:\Users\Nenad\Desktop\Test PM.docm" Set wordapp = CreateObject("word.Application") wordapp.Documents.Open strFile wordapp.Visible = True End Alt
