Word'de Her Kutucuğa bir harf

[Mukteda]

Merhaba,

Bir kamu kuruluşuna uzun bir form dolduruyorum.

Aşağıdaki gibi her kutucuğa bir harf gelecek şekilde en kolay nasıl doldurabilirim?

 

[Mukteda]

Günceldir.

 

[Tevfik_Kursun]

Merhaba,
Yerinizde olsam formu excele uyarlarım.
iyi çalışmalar

 

[Mukteda]

Excel'e uyarlarım.

Merhaba,
Gerçekten dünden beri illallah ettirdi

Excel'de yapılıp Word'e yapıştırılabilir.

Dediğiniz yöntemi biraz daha açar mısınız?

 

[alicimri]

Bu kutucuklar ayrı ayrı tabloların hücreleri mi?
Manuel mi dolduruyorsunuz, makro ile mi dolmasını istiyorsunuz.

 

[Mukteda]

Bu kutucuklar ayrı ayrı tabloların hücreleri mi?

Merhaba,

Doğrudur. Her harf bir kutucuk... Her harf bir hücredir.

En kolay en rahat nasıl oluyor ise...

 

[Tevfik_Kursun]

Merhaba,
İçinde her istediğiniz olan uydurma bir örnek hazırlayın, daha kolay cevap alabilirsiniz.
Kolay gelsin

 

[alicimri]

Anlamadım, siz böyle bir tabloyu mu çizmek istiyorsunuz, yoksa hazır tabloya veri mi girmek istiyorsunuz?

 

[Mukteda]

Merhabalar,

Soruyu en başından sormak istiyorum.

Elinizde 70 sayfa bir form var. Bu formu en kolay nasıl doldurabilirsiniz?

Bazı veriler Excelde... Bazı veriler farazi...

Sonuçta Excel'e alınıp düzenlenebilir. Sonra bu forma yapıştırılabilir. Veya Word de sizin önereceğiniz başka yöntem ile veri girişi yapılabilir.

Ekteki dosyayı, Siz olsanız nasıl doldururdunuz?

10 KASIM.docx - 14 KB

 

[alicimri]

Neyse örnek dosya ekte kutucuktan kutucuğa sol tuşu veya tab tuşu ile geçip, harf veya karakteri yazabilirsiniz.

ornek.docx dosyasını indir - download

ornek.docx dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s6.dosya.tc

 

[Mukteda]

sol tuşu veya tab tuşu ile geçip, harf veya karakteri yazabilirsiniz.

İlginiz için teşekkür ederim. Zaten dediğiniz gibi yapıyorum. Sizin paylaştığınız dosya ile bizim dosya arasında fark göremedim.

Bu şekilde bir harf bir TAB, veya bir harf yön tuşu inanılmaz derecede yavaşlatıyor... Daha hızlı nasıl olabilir demek istemiştim.

Örnek olarak: Excel'de yazıyı yazsak... Daha sonra her bir hücreye bir harf gelecek şekilde nasıl yapabilirim?

Not: Yukarıda paylaştığımız Word dosyasında nasıl bir fonksiyon olabilir? Küçük harf yazıyoruz, Word büyük harfe çeviriyor. Bu nasıl yapılmış olabilir?

 

[alicimri]

Ekteki örnekte, Makro içeren word dosyası var.
Dosya açılınca Çıkan Userforma TextBoxları doldurun ve KAYDET düğmesine tıklayın.
Excel dosyasının yapısına ait örnek olursa ondan da veri alına bilinir.

ornek.zip dosyasını indir - download

ornek.zip dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s6.dosya.tc

 

[alicimri]

Son örnek dosya bir kelimeyi silmemişim açılışta hata veriyordu değiştirdim.

 

[necati]

Merhaba, alternatif olsun

Sub Doldur()
Dim OriginalRange As Range, var As Integer
Dim l As Integer, m As Integer, n As Integer, O As Integer
Dim p As Variant, kelime As Variant

If Selection.Information(wdWithInTable) = True Then
    Set OriginalRange = Selection.Range
    kelime = UCase(Trim(InputBox(vbLf & "Kelimeyi giriniz", "VERİ GİRİŞİ")))
        If kelime = "" Then
            Exit Sub
        End If
    
    m = Len(kelime)
    n = Selection.Tables(1).Columns.Count
    O = Selection.Information(wdStartOfRangeColumnNumber)
    
    If n + 1 >= O + m Then
        For l = 1 To n
            If Len(Trim(Selection.Cells(1).Range.Text)) > 2 Then
                var = var + 1
                If l >= m Then Exit For
                Selection.MoveRight Unit:=wdCell
            Else
                If l >= m Then Exit For
                Selection.MoveRight Unit:=wdCell
            End If
        Next l
        OriginalRange.Select
    
        If var > 0 And n - (O - 1) >= m Then
            p = MsgBox("Kutularda değer var! Silinsin mi?", vbYesNo + vbInformation, " Uyarı")
            
            If p = vbNo Then
                MsgBox "işlemi iptal ettiniz.!"
                Exit Sub
            Else
                For l = 1 To m
                    Selection.Cells(1).Range.Text = ""
                    If l = m Then Exit For
                    Selection.MoveRight Unit:=wdCell
                Next l
        
                If n - (O - 1) >= m Then
                    OriginalRange.Select
                    For l = 1 To m
                        Selection.Cells(1).Range.Text = Mid(kelime, l, 1)
                        If l = m Then Exit For
                        Selection.MoveRight Unit:=wdCell
                    Next l
                Else
                    MsgBox "Bulunduğunuz hücreden itibaren " & n - (O - 1) & " adet kutu var." & vbLf _
                    & "Girmek istediğiniz " & kelime & " değeri " & m & " karakter uzunluğundadır!"
                End If
            End If
        
        ElseIf var = 0 And n - (O - 1) >= m Then
            For l = 1 To m
                Selection.Cells(1).Range.Text = Mid(kelime, l, 1)
                If l = m Then Exit Sub
                Selection.MoveRight Unit:=wdCell
            Next l
        End If
    Else
        MsgBox "Bulunduğunuz hücreden itibaren " & n - (O - 1) & " adet kutu var." & vbLf _
        & "Girmek istediğiniz " & kelime & " değeri " & m & " karakter uzunluğundadır!"
    End If
Else
    MsgBox "Tablo üzerinde değilsiniz, tablodan bir kutu seçiniz.", vbCritical
End If

End Sub

 

[Mukteda]

Ekteki örnekte, Makro içeren word dosyası var.

Bu şekilde daha hızlı oldu... Değerli yardımınız için teşekkür ederim.

Not: User Form konusunu Word de ilk defa gördüm. Nasıl yaptınız?

 

[Mukteda]

Merhaba, alternatif olsun

Necati Hocam merhaba,

Sizi görmek ne güzel... İyi olmanızı temenni ederim.

Hocam, bunu nasıl kullanacağız?
Kısaca izah eder misiniz?

Excel'de düzenleme yapıp Word'e mi yapıştıracağız?
Veya Word de bu kodları nasıl kullanacağız?

Saygılarımla

 

[necati]

Teşekkürler iyiyiz.
Makroyu kısayol tuşuna atarsanız pratik olur. İmleci birinci kutuya yerleştirin.
Çalıştırınca karşınıza inputbox çıkıyor. Verinizi oraya yapıştırıyorsunuz. Bu kadar.
Harf sayıları kutulara sığmayacaksa uyarı veriyor.

 

[Mukteda]

Makroyu kısayol tuşuna atarsanız pratik olur.

Necati Hocam,
Bunu yapamadım. Tarif edebilir misiniz?

Diğer sorun çözülmüştür. Kıymetli yardımınız için teşekkür ederim.

 

[necati]

Makroya kısayol tuşu atamak:
* Şeritte sağ tıklayın > Hızlı erişim araç çubuğunu özelleştir
* Klavye kısayolları'nın yanında Özelleştir'e tıklayın.
* Kategoriler listesinde Makrolar'a tıklayın.
* Değişiklikleri kaydet kutusunda Normal.dot değil, kendi belgenizin ismini seçiniz .
* Makrolar listesinde, değiştirmek istediğiniz makroya tıklayın.
* Yeni kısayol tuşuna basın kutusunda, seçmek istediğiniz tuş bileşimini yazın.
* Ata
* Kapat, Tamam

 

[halit3]

Alterhatif olsun
Girişler excell den yapılacak ornek2 şablon dosyası kullanılarak word klasörüne vergi numarası bazında kayıt yapıyor.

word_sablon5.rar dosyasını indir - download

word_sablon5.rar dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s2.dosya.tc

kodun çalıması için makrolar etkin olmalı ve
referanslarda bu olmalı
microsoft word 12.0 object library download