Sürekli aynı word dökümanına aynı word şablonuna benzer ifadeler yazarken bunun daha kısa bir yolu olmalı diye aklınıza geliyor. Sorduğunuz zaman yazılım olmalı cevabını alıyorsunuz. Peki bu işin yazılım olmadan daha kolay herkesin yapabileceği bir yolu yok mu diye araştırdığınız zaman karşınıza access programı çıkıyor.
İşlem Basamakları
1. word dökümanında yazı nereye yazılacaksa o alana yer imi tanımlanmalı
Yazının gelmesini istediğiniz yere bir karaketer yazın (x – gibi)
Yer imi tanımlamak için word de ekle =>> yer imi ya da yer işaretlerini seçin.
Daha sonra açılan pencerede yer imi alanına bir isim verin.
Daha sonra yer imi yer işareti kaydedilmiş mi kontrol edin.
Yazdığınız karakteri seçince yer imi alanına gelip yazdığınız ismin orada olduğunu kontrol edin.
2. Access de kayıt formu oluşturun.
3. Access programında alt F11 yaparak kod alanına gelip üst kısımda bulunan referanslar alanında Microsoft word 14.0 object library alanını seçin. Bu alan seçili olmazsa yazılarınız word e gitmez ve sadece boş word dosyası açılır. object library office sürümlerine göre değişir 2010 da 14.0 varken 2013 de 15.0 olabilir.
ÖNEMLİ UYARI: eğer access i office 2013 de yapıp office 2010 da kulanacaksanız compile error diye başlayan bir hata verir. Bu hatanın sebibi yukarda belirtilen library uyumsuzluğudur. Bu durumu ortadan kaldırmak için referans alanından library tiklerini office programına uygun olana göre seçin.
4. Aşağıdaki kodu bir butona ekleyin.
5. Aşağıdaki kodlarda yer alan uzantı yolunu tanımlayın.
6.yer imlerini ve textbox adlarını da kodlara tanımlayın.
”””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””’ kod başlangıç ””””””””””””””””””””””””””””””””””””””””””
Private Sub Komut165_Click()
On Error GoTo hata
Dim objWord As Word.Application
Set objWord = CreateObject(“Word.Application”)
With objWord
‘Word dosyasını görünür yap
.Visible = True
.Documents.Add (“UZANTI YOLUNU BURAYA YAZINIZ”)
.ActiveDocument.Bookmarks(“WORD DE BELİRLENEN YERİMİNİ BURAYA YAZINIZ”).Select
.Selection.Text = ACCESS DE YAZININ GELMESİNİ İSTEDİĞİNİZ TEXTBOX ALANINI BURAYA YAZINIZ
.ActiveDocument.Bookmarks(“WORD DE BELİRLENEN YERİMİNİ BURAYA YAZINIZ”).Select
.Selection.Text = ACCESS DE YAZININ GELMESİNİ İSTEDİĞİNİZ TEXTBOX ALANINI BURAYA YAZINIZ
.ActiveDocument.Bookmarks(“WORD DE BELİRLENEN YERİMİNİ BURAYA YAZINIZ”).Select
.Selection.Text = ACCESS DE YAZININ GELMESİNİ İSTEDİĞİNİZ TEXTBOX ALANINI BURAYA YAZINIZ
End With
‘ objWord.Quit
Set objWord = Nothing
Exit Sub
hata:
‘Eğer yer imine aktarilacak veri yoksa yer imi silinir…
If Err.Number = 94 Then
objWord.Selection.Text = “”
Resume Next
End If
Exit Sub
End Sub
”””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””’ kod bitiş ”””””””””””””””””””””””””””””””””””””””””’
