Adres ve mektup Birleştirme

[Qene]

Selamlar..
Excel de kayıtlı bir veritabanından Word e Mektup birleştirme yapıyorum. Fakat veritabanında Tarih ve Sayı formatında hücreler var. Worde aldığında format bozuluyor. Bu işlemi nasıl formatlayabilirim?
Örn:
Excel de, 23.07.1978 olan tarih
Word de, 7/23/1978
------
Excel de, 3.500,00 olan sayı
Word de, 3500

Bu sorunun üstesinden mutlaka gelmem lazım. İlgi ve alakanız için şimdiden teşekkürler.. Saygılarımla..

 

[Recep İpek]

Bunun çözümünü bende arıyorum ama henüz bulamadım.

Word belgesinde eklediğiniz alanı seçip sağ klik yaparsanız buradaki Edit Field adımından birşeyler yapılabilir düşüncesindeyim.

 

[Qene]

Onu da denedim.. Fakat Date seçeneği alandaki tarihi silip günün tarihini ekliyor otomatik olarak. Makro ile yapmaya çalıştım orada da sonuç olumsuz.. İlginiz için teşekkürler Sayın ripek .
Selamlar.

 

[Merhum İdris SERDAR]

Sorunla ilgili açıklama ile sorunuzun çözümü ekteki dosyalarda verilmiştir.

 

[Recep İpek]

Teşekkürler Sn.yurttas

 

[Leoncio]

Sorunla ilgili açıklama ile sorunuzun çözümü ekteki dosyalarda verilmiştir.

Sayın Yurttaş;

Word dosyası bende açılmıyor.

Bu mektup birleştirme olayını 98'de Araçlar>Adres Mektup birleştir adımından yapabiliyordum. Onca aramama rağmen xp versiyonunda bulamadım.:roll:

 

[Merhum İdris SERDAR]

İngilizcelerini yazacağım.

Tools/Letters and Mailings/Mail Merge'den sonra sağ tarafta açılan bölümün en altında çıkan adım ları izleyin

 

[Merhum İdris SERDAR]

Teşekkürler Sn.yurttas

İşinize yaradıysa, mutlu oldum.

 

[Seyit Tiken]

Excelden Worde BAĞ YAPIŞTIR'ı deneyiniz.

 

[Qene]

Sayın YURTTAS,
Ben de acamadım belgeyi... Hasarlı diyor
qene10@gmail.com
adresine mail ya da tekrardan ekleme durumu mümkün mü?
Teşekkürler..

Sayın Seyittiken..
Dediğiniz çözümde sorun yaşanmıyor.. Ama birden fazla kaydı listeleme de yapamıyoruz yanılmıyorsam. Eğer yanılıyorsam bu konuda yardımcı olur musunuz?

Örn: Veritabanında 100 tane kayıt var ve bir kerede mektup hazırlamak istiyorum gibi...

 

[Merhum İdris SERDAR]

Eklenmiş olan dosyayı ben rahatlıkla açıyorum. Bende hata vermiyor.

Bir de ziplemeden ekledim.

İki dosyayı c:\'de kaydedin. Öyle deneyin.

 

[Seyit Tiken]

Bence EXCEL'de oluşturulacak MANTIKLI bir makroyla bunu gerçekleştirebilirsiniz.

 

[Qene]

Teşekkürler.. Şimdi açıldı..
Saygılarımla..

 

[Leoncio]

Teşekkür ederim, bakacağım.

 

[Qene]

Sayın yurttaş..
Aktarımı Makro aracılığıyla yaptım. Fakat format olayını Makro da uygulayamadım. Kodlar aşağıdaki gibidir. Sayfaya alıp başka bir sayfada kaç tane verim var ise hepsini listeleyebiliyorum. Fakat format ayarını yapamadım. İlginiz için teşekkürler.. Selamlar..

Dim rngTemp As Range
     ActiveDocument.MailMerge.OpenDataSource Name:= _
        "C:\ORNEKi.xls", _
        ConfirmConversions:=False, ReadOnly:=False, LinkToSource:=True, _
        AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", _
        WritePasswordDocument:="", WritePasswordTemplate:="", Revert:=False, _
        Format:=wdOpenFormatAuto, Connection:= _
        "Provider=Microsoft.Jet.OLEDB.4.0;Password="""";User ID=Admin;Data Source=C:\ORNEKi.xls;Mode=Read;Extended Properties=""HDR=YES;IMEX=1;"";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:Database P" _
        , SQLStatement:="SELECT * FROM `Sheet1$`", SQLStatement1:="", SubType:= _
        wdMergeSubTypeAccess
        
    
     Selection.TypeText "Sayýn "
     ActiveDocument.Fields.Add Selection.Range, wdFieldMergeField, """ÜNVAN"""
     Selection.TypeText "," 'Parantez Ýçerisinde bulunan en sondaki alana istediðinizi yazabilirsiniz.
     Selection.TypeParagraph
     ActiveDocument.Fields.Add Selection.Range, wdFieldMergeField, """KOd"""
     Selection.TypeText " " 'Parantez Ýçerisinde bulunan en sondaki alana istediðinizi yazabilirsiniz.
     ActiveDocument.Fields.Add Selection.Range, wdFieldMergeField, """TCÝNSÝ"""
     Selection.TypeText " " 'Parantez Ýçerisinde bulunan en sondaki alana istediðinizi yazabilirsiniz.
     ActiveDocument.Fields.Add Selection.Range, wdFieldMergeField, """BNK"""
     Selection.TypeText " " 'Parantez Ýçerisinde bulunan en sondaki alana istediðinizi yazabilirsiniz.
     ActiveDocument.Fields.Add Selection.Range, wdFieldMergeField, """TUTAR"""
     Selection.TypeText " " 'Parantez Ýçerisinde bulunan en sondaki alana istediðinizi yazabilirsiniz.
      
     ActiveDocument.Fields.Add Selection.Range, wdFieldMergeField, """VADE"""
     
     
     Selection.TypeText " " 'Parantez Ýçerisinde bulunan en sondaki alana istediðinizi yazabilirsiniz.
     ActiveDocument.Fields.Add Selection.Range, wdFieldMergeField, """NO"""
  
     
     With ActiveDocument.MailMerge
     .Destination = wdSendToNewDocument
     .SuppressBlankLines = True
     With .DataSource
     .FirstRecord = wdDefaultFirstRecord
     .LastRecord = wdDefaultLastRecord
     End With
     .Execute Pause:=False
     End With
     
    Set rngTemp = ActiveDocument.Range(0, 100)
    With rngTemp
    .Font.Name = "Arial"
    .Font.Size = 24
    .InsertParagraphAfter
    End With
    Set rngTemp = Nothing

    ActiveDocument.Range(0, 10).Select

 

[h2001]

teşekkürler sn yurttaş

 

[miss_pert]

mail merge

merhaba arkadaşlar excel dosyasından mail merge ile eklediğiniz tarihler ay gün yıl formatında gelmektedir bunu düzeltmek için o alanın üzerine gelip sağ tıklanır açılan pencereden toggle fields e tıklanır açılan yapıya \@ "dd/MM/yyyy" formatı eklenir

Ör: {MERGEFIELD "tarih" \@ "dd/MM/yyyy"}

ayrıca küsüratlı sayıların ondalık ayıraçlarını ayarlamak için aynı şekilde formatı değiştirilmelidir

Ör:{MERGEFIELD "maaş" \#.##0,00}

 

[zmrlnht]

hocam aynı sorunu Office 2010 ile yaşıyorum
hücre biçimlendirden isteğe uyarlanmış yapıp verdiğinizi denedim ancak yine de mektup kısmına doğru şekilde almıyor

başka bir fikri olan var mı ?

 

[levo26]

Merhaba;
Konu ile alakalı olarak Sayın Qene'de oluşan;
Excel de, 23.07.1978 olan tarih
Word de, 7/23/1978
problemi yaşıyorum. Sn. Yurttaş açıklama dosyası vermiş açılmıyor. Gün ay problemini nasıl aşarım. Yada Sn. Yurttaşın dosyasnı güncellermisiniz?