AccessTr.neT

(04/01/2019, 11:08)ozanakkaya yazdı: [ -> ]Kodu aşağıdaki ile değiştirerek dener misin?

Dim GGecerliBelgeYolu, GSablonYolu As String

Dim WordApp, oWdoc As Object



GSablonYolu = CurrentProject.Path & "\ornek.dotx"



GGecerliBelgeYolu = CurrentProject.Path & "\" & Me.Kimlik & ".docx"





If Me.otobüs_araba = 0 Then



    GVeri = "Otobüsle"



Else



    GVeri = "Arabayla"



End If





Set WordApp = CreateObject("Word.Application")



WordApp.Visible = True

WordApp.Activate

WordApp.WindowState = wdWindowStateMaximize

             

Set oWdoc = WordApp.Documents.Add(Template:=GSablonYolu, NewTemplate:=False)



WordApp.ActiveDocument.Bookmarks("sonuc").Select

WordApp.Selection.Text = GVeri



oWdoc.SaveAs2 GGecerliBelgeYolu

kodları ekleyince böyle bir hata alıyorum bu sefer

Kodu butonu tıklandığında olayına yazacaksın, Vba sayfasında boş yere yazmayacaksın.

(06/01/2019, 00:31)ozanakkaya yazdı: [ -> ]Kodu butonu tıklandığında olayına yazacaksın, Vba sayfasında boş yere yazmayacaksın.

araya yapıştırmadığım için sıkıntı olmuş. şuan çalışıyor. peki bir şey sormak istiyorum; 4 kelimelik bir cümlenin 3. cümlesinin değiştirileceğini nereden algılıyor, ya da nereden bu komutu veriyoruz. şundan dolayı soruyorum, bir paragrafın içerisinden belli bir kelimeyi değiştireceğim, bu kelimenin değiştirilmesi için ne yapmam gerekiyor.

Örnek olarak eklediğim word şablonunda yer işareti var. Oradan ayarlanıyor.