Word Belgesinde Checkbox İşaretleme

[Recep İpek]

Merhaba,

Aşağıdaki kodlar ile varolan bir word sayfasını açıp, buradaki tablolara veri yazdırabiliyorum.

Sorum Word sayfasında bulunan checkboxların işaretlerini excelden nasıl değiştirebilirim?

Sub OpenWordDoc()
Dim wdApp As Word.Application, wdDoc As Word.Document
On Error Resume Next
Set wdApp = GetObject(, "Word.Application")
If Err.Number <> 0 Then 
Set wdApp = CreateObject("Word.Application")
End If
On Error GoTo 0
'*****************************************
Set wdDoc = wdApp.Documents.Open(ThisWorkbook.Path & "\" & "&#246;zel.doc")
Set objTable = wdDoc.Tables(1)
objTable.Cell(1, 1).Range.Text = Cells(1, 1).Value
objTable.Cell(1, 2).Range.Text = Cells(1, 2).Value
objTable.Cell(2, 1).Range.Text = Date
'*****************************************
'wdDoc.PrintOut
wdDoc.Activate
wdDoc.Save
'wdDoc.Close
Set wdApp = Nothing
Set wdDoc = Nothing
Set objTable = Nothing
[color=green]'Referanslardan "Microsoft Word ?.? Library" se&#231;ili olmal&#305;d&#305;r.[/color]
End Sub

 

[Levent Menteşoğlu]

...........Sorum Word sayfasında bulunan checkboxların işaretlerini excelden nasıl değiştirebilirim?

Benim aklıma şöyle bir çözüm geldi. checkboxı işaretleyecek kodu word dosyasına yazıp, excelden bu kodun çalıştırılması. Bunun için aşağıdaki uygulamaları yapın.

1-checkbox denetim araç kutusundan word dosyasına eklenmiş olmalıdır. (adı checkbox1 kabul edilmiştir.)

2-Özel.doc dosyasının project(Özel)-Thisdocument sayfasına aşağıdaki kodu kopyalayın.

Sub ac()
If CheckBox1.Value = True Then
CheckBox1.Value = False
Else
CheckBox1.Value = True
End If
End Sub

3-Yukarıda verdiğiniz "OpenWordDoc" isimli prosedürün içinde uygun bir yere aşağıdaki satırı ilave edin.

wdApp.Run "ac"

Böylece excel dosyasındaki "OpenWordDoc" isimli prosedürünüzü çalıştırdığınızda checkbox1 false ise true, true ise false durumuna getirilir.

 

[Recep İpek]

Bulduğunuz çözüm gayet güzel çalışıyor.Şu anda işimi görür.

Ben burada True ise False yerine excelden gelen değer 1 ise True , değil ise False yap gibi birşey yapmak istiyordum.Aşağıdaki şekilde de hallettim.

Sub ac(durum As Byte)
If durum = 1 Then
CheckBox1.Value = True
Else
CheckBox1.Value = False
End If
End Sub

wdApp.Run "ac", [a1]

Teşekkürler.

 

[Recep İpek]

Yine aynı konuyla ilgili olarak makroyu (OpenWordDoc) çalıştırdığımda 2.defada word belgesini açıyor.Birincisinde Word uygulamasını çalıştırıyor, fakat dosyayı açmıyor.İkincisinde ise dosyayı açıyor.Nedeni ne olabilir?

 

[Levent Menteşoğlu]

Yukarıda verdiğiniz kodda dosyayı kapatan satır iptal edilmiş, bu satırı devreye alarak deneyin.

wdDoc.Close

 

[Recep İpek]

Bende düşündüm ama sorun bu değil.Ben word belgesini sadece açmak istiyorum.

Makro düzgün çalışıyor.Fakat 2. defa çalıştırdığımda istediğim sonucu veriyor.
Dediğim gibi ilkinde word uygulamasını açıyor.İkincisinde belgeyi açıyor.

 

[Recep İpek]

Arkadaşlar konu güncelliğini koruyor.

Dediğim gibi makroyu ilk çalıştırdığımda word belgesini açmıyor.
İkinci defa çalıştırdığımda açıyor.

Örnek dosya ektedir.

 

[Levent Menteşoğlu]

Kodu aşağıdaki gibi değiştirerek denermisiniz.

Sub OpenWordDoc()
Dim wdApp As Word.Application, wdDoc As Word.Document
On Error Resume Next
Set wdApp = CreateObject("Word.Application")
wdApp.Visible = True
'*****************************************
Set wdDoc = wdApp.Documents.Open(ThisWorkbook.Path & "\" & "özel.doc")
Set objTable = wdDoc.Tables(1)
objTable.Cell(1, 1).Range.Text = Cells(1, 1).Value
objTable.Cell(1, 2).Range.Text = Cells(1, 2).Value
objTable.Cell(1, 3).Range.Text = Cells(1, 3).Value
objTable.Cell(1, 4).Range.Text = Cells(1, 4).Value
objTable.Cell(2, 1).Range.Text = Date
'*****************************************
'wdApp.PrintOut
wdDoc.Activate
wdDoc.Save
'wdApp.Quit
'wdDoc.Close
Set wdApp = Nothing
Set wdDoc = Nothing
Set objTable = Nothing
'Referanslardan "Microsoft Word ?.? Library" seçili olmalıdır.
End Sub

 

[Recep İpek]

Teşekkürler.

Sorun şimdi anlaşıldı......