Word tablosunda manuel giriş olmadan satır numaralandırma

Word tablosundaki satırları otomatik olarak numaralandırmak için ilk sütunu seçin ve «Ana Sayfa» → «Numaralandırma» sekmesi aracılığıyla numaralı listeyi uygulayın — satır eklediğinizde veya sildiğinizde numaralar güncellenecektir. Daha karmaşık senaryolar için SEQ alanını veya VBA makrosunu kullanın.

Yöntem 1: Hücrelerde numaralı liste

Çoğu görev için en basit ve güvenilir yöntem.

Adım adım:

1. Tablonun ilk sütunundaki hücreleri (veya numaralandırma gerekenleri) seçin.
2. «Ana Sayfa» sekmesindeki «Paragraf» grubunda «Numaralandırma» düğmesine tıklayın.
3. Formatı seçin: 1., 01., a), i. vb.
4. Hazır: Numaralar otomatik olarak yerleştirilecek ve tablo yapısı değiştiğinde yeniden hesaplanacaktır.

Avantajları:

• Word'ün tüm sürümlerinde çalışır (2016–2024, Microsoft 365, kısıtlamalarla Word Online)
• Programlama bilgisi gerektirmez
• Numaralar sıralama ve düzenleme sırasında uyum sağlar

Dezavantajları:

• Sınırlı format esnekliği («Madde 1» gibi bir önek eklemek kolay değildir)

Yöntem 2: Esnek numaralandırma için SEQ alanı

«Madde 001», «Bölüm 3.1» gibi özel bir formata veya atlamalı numaralandırmaya ihtiyacınız varsa kullanın.

SEQ alanını nasıl eklersiniz:

1. İmleci ilgili hücreye yerleştirin.
2. Ctrl+F9 tuşlarına basın — süslü parantezler { } görünecektir.
3. İçine şunu yazın: SEQ RowNum \* ARABIC (Arap rakamları için) veya \* ROMAN (Roma rakamları için).
4. Alanı güncellemek ve numarayı görmek için F9 tuşuna basın.
5. Alanı sütunun diğer hücrelerine kopyalayın — numaralar sırayla yerleştirilecektir.

Ek parametreler:

• \r 1 — numaralandırmayı birden başlat
• \n — numarayı baskıda gizle ancak belgede tut
• Metinle kombinasyon: Madde { SEQ RowNum }

Yöntem 3: Toplu işlemler için VBA makrosu

Düzenli olarak onlarca tablo ile çalışıyorsanız ve süreci otomatikleştirmek istiyorsanız uygundur.

İlk sütunu numaralandırmak için hazır makro:

Sub NumberTableRows()
    Dim tbl As Table, i As Long
    If Selection.Information(wdWithInTable) Then
        Set tbl = Selection.Tables(1)
        For i = 1 To tbl.Rows.Count
            tbl.Rows(i).Cells(1).Range.Text = i & vbCr
        Next i
    End If
End Sub

Nasıl çalıştırılır:

1. Alt+F11 tuşlarına basın → Ekle → Modül.
2. Yukarıdaki kodu yapıştırın.
3. Belgeye dönün, tabloyu seçin ve makroyu çalıştırın (F5 veya «Makrolar» aracılığıyla).

Önemli: Mac için Word ve Word Online'da makrolar desteklenmez — ilk iki yöntemi kullanın.

Yöntemlerin karşılaştırılması

Sık yapılan hatalar

• Bir satır silindikten sonra numaralar yeniden hesaplanmıyor
  → Numaralı listenin uygulandığından emin olun, manuel giriş yapılmamış olmalı. SEQ alanları için F9 tuşuna basın.

• Numaralandırma birden başlamıyor
  → Liste ayarlarında «Şundan başla: 1» belirtin veya SEQ alanına \r 1 parametresini ekleyin.

• Makro çalışmıyor
  → Makro güvenlik düzeyini kontrol edin: «Dosya» → «Seçenekler» → «Güvenlik Merkezi» → «Makro Ayarları».

• Tablo kopyalandığında format bozuluyor
  → Tabloyu «Özel Yapıştır» → «Kaynak biçimlendirmeyi koru» yoluyla kopyalayın.

SSS

Sadece görünür (boş olmayan) satırları numaralandırabilir miyim?
Evet, kontrol içeren bir makro ile: If Len(Trim(cell.Text)) > 0 Then .... Listeler ve alanlar için — istenmeyen numaraları manuel olarak gizleyin.

Numaralandırma ortak çalışma modunda (Word Online) çalışır mı?
Kısmen. Numaralı liste çalışır, SEQ alanları ve makrolar çalışmaz. Karmaşık mantık için belgeyi masaüstü sürümünde düzenleyin.

Sadece numaralar için yazı tipi stilini nasıl değiştiririm?
Numaralandırma sütununu seçin → istediğiniz yazı tipini uygulayın. Liste kullanılıyorsa — stili «Yeni numara biçimi tanımla» aracılığıyla ayarlayın.

Tablo iki sayfaya bölünmüşse ve numaralandırma bozuluyorsa ne yapmalıyım?
Tablo özelliklerinde başlıklar için «Satırların sonraki sayfaya taşınmasına izin ver» kutucuğunun işaretli olmadığından emin olun. SEQ alanları için numaralandırmanın kesintisiz olması amacıyla genel bir tanımlayıcı kullanın.