Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
09/11/2017 12:30
Konu Sahibi
mertkose
Yorumlar
22
Okunma
1204
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy

mertkose

Üye
93086
 Belirtilmemiş
 1
 12
 06/11/2017
0
 -
 
 -
 13/03/2019,01:06
Çözüldü 
Merhabalar,

Ödeme takibi uygulamamda word boyama işlemi yaptırmaya çalışıyorum. Word dosyasında Form eklediğim zaman sıkıntı olmadan çalıştırıyorum ama Bookmarks da başarılı bir şekilde çalıştıramadım. Yardımlarınızı bekliyorum.


Kod:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Function Wordboyama()
Dim appword As Word.Application
Dim doc As Word.Document
Dim Path As String

On Error Resume Next
Error.Clear
Set appword = GetObject(, "word.application")
If Err.Number <> 0 Then
Set appword = New Word.Application
appword.Visible = True
End If
Path = "C:\Users\Mert\Desktop\Ödeme Takibi Uygulaması\Master Dosyalar\TL HESABI.docx"
Set doc = appword.Documents.Open(Path, , True)
With doc
    .Bookmarks("txtalici").Range.Text = Me.Alıcı.Value



mertkose

Üye
93086
 Belirtilmemiş
 1
 12
 06/11/2017
0
 -
 
 -
 13/03/2019,01:06
Çözüldü 
Merhabalar,

Ödeme takibi uygulamamda word boyama işlemi yaptırmaya çalışıyorum. Word dosyasında Form eklediğim zaman sıkıntı olmadan çalıştırıyorum ama Bookmarks da başarılı bir şekilde çalıştıramadım. Yardımlarınızı bekliyorum.


Kod:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Function Wordboyama()
Dim appword As Word.Application
Dim doc As Word.Document
Dim Path As String

On Error Resume Next
Error.Clear
Set appword = GetObject(, "word.application")
If Err.Number <> 0 Then
Set appword = New Word.Application
appword.Visible = True
End If
Path = "C:\Users\Mert\Desktop\Ödeme Takibi Uygulaması\Master Dosyalar\TL HESABI.docx"
Set doc = appword.Documents.Open(Path, , True)
With doc
    .Bookmarks("txtalici").Range.Text = Me.Alıcı.Value



C*e*l*o*y*c*e

Uzman
7
Me.... B.....
 72
 3.212
 29/10/2008
988
 Ankara
 Yazılım
 Ofis 2010 32 Bit
 Bugün,08:02
sayın mertkose örneğinizi eklermisin ?



ozanakkaya

Kurucu
1
Oz.... Ak....
 39
 480
 12.053
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
Açılan aynı konu birleştirilmiştir. Konularınızı Site Kurallarına uygun olarak açınız.

Site Kuralları:
1-a) Sorununuz ile ilgili konu açtıysanız aynı soru ile ilgili tekrar konu açmayınız.
3-a) Sorulara örnek uygulama eklemek zorunludur.  


"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 

mertkose

Üye
93086
 Belirtilmemiş
 1
 12
 06/11/2017
0
 -
 
 -
 13/03/2019,01:06
(09/11/2017 17:05)C*e*l*o*y*c*e Adlı Kullanıcıdan Alıntı: sayın mertkose örneğinizi eklermisin ?

Örneği ekledim hocam. İlginiz için teşekkürler...



ozanakkaya

Kurucu
1
Oz.... Ak....
 39
 480
 12.053
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
Merhaba,  rapordaki kodu aşağıdaki ile değiştirerek deneyiniz.

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Function Wordboyama()
Dim appword As Word.Application
Dim doc As Word.Document
Dim Path As String

On Error Resume Next
Error.Clear
Set appword = GetObject(, "word.application")
If Err.Number <> 0 Then
Set appword = New Word.Application
appword.Visible = True
End If
Path = CurrentProject.Path & "\Ödeme Takibi Uygulaması\Master Dosyalar\TL HESABI.docx"
Set doc = appword.Documents.Open(Path, , True)
With doc
    .Bookmarks("txtalici").Range.Text = Me.Alıcı
    
appword.Visible = True
appword.Activate
End With

Set doc = Nothing
Set appword = Nothing

End Function


"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Word'de Bul Ve Değiştir haliliyas 2 230 04/04/2019, 19:54
Son Yorum: haliliyas
Çözüldü Puantaj Toplama İşlemi IceMan7 8 461 03/03/2019, 14:58
Son Yorum: IceMan7
Çözüldü Filtre İşlemi Bilal Demirci 3 186 07/02/2019, 14:04
Son Yorum: Bilal Demirci
Çözüldü Formda Çıkarma İşlemi. kalabakli 5 154 02/02/2019, 23:02
Son Yorum: kalabakli
Çözüldü Ekleme Ve Silme İşlemi exmadon 4 270 06/01/2019, 14:10
Son Yorum: haliliyas

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2019 MyBB Group.