Word belgesinde birden çok satırı tek bir paragrafta nasıl birleştirir veya birleştiririm?
Word belgenizde yüzlerce ve binlerce paragraf varsa, bu belgeyi yazdırırken çok fazla kağıda ihtiyaç duyacaktır. Kağıtları kaydetmek için, bu birden çok satırı tek bir paragrafta birleştirebilirsiniz. Bununla birlikte, tüm bu satırları Word belgesinde hızlı ve kolay bir şekilde tek bir paragrafta nasıl birleştirebilirsiniz?
Bul ve Değiştir işleviyle birden çok satırı tek bir paragrafta birleştirin veya birleştirin
VBA kodu ile birden çok satırı tek bir paragrafta birleştirin veya birleştirin
Bul ve Değiştir işleviyle birden çok satırı tek bir paragrafta birleştirin veya birleştirin
The Bul ve Değiştir Word'deki işlev, birden çok satırı tek bir paragrafta birleştirmenize yardımcı olabilir, lütfen şu şekilde yapın:
1. Tek bir paragrafta birleştirmek istediğiniz paragrafları seçin.
2. Ve sonra tıklayın Anasayfa > bulmak > Gelişmiş Bul gitmek için Bul ve Değiştir iletişim kutusunda, Bul ve Değiştir iletişim kutusunun altında bulmak sekmesi, lütfen girin ^p içine Ne bul metin kutusunu seçin ve ardından Şu anki seçim seçeneği Bulmak açılır liste, ekran görüntüsüne bakın:
3. Ardından, değiştirmek sekmesinden ayrılın ve Ile değiştirin metin kutusu boş ve ardından Tümünü Değiştir düğmesi, ekran görüntüsüne bakın:
4. Ve seçilen tüm paragraflar tek bir paragrafta birleştirildi, ekran görüntüsüne bakın:
VBA kodu ile birden çok satırı tek bir paragrafta birleştirin veya birleştirin
İşte bu işi Word'de bitirmenize yardımcı olabilecek başka bir yararlı yöntem de, lütfen aşağıdaki adımları uygulayın:
1. Tek bir paragrafta birleştirmek istediğiniz satırları seçin.
2. Sonra, basılı tutun ALT + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.
3. Ve sonra tıklayın Ekle > modül, aşağıdaki kodu kopyalayıp açılan boş modüle yapıştırın.
VBA kodu: Birden çok satırı tek bir paragrafta birleştirin:
Sub CleanUpPastedText()
Dim xSelection As Selection
On Error Resume Next
Application.ScreenUpdating = False
Set xSelection = Application.Selection
If xSelection.Type <> wdSelectionIP Then
FindAndReplace xSelection
Else
If MsgBox("Do you want to merge all selected lines into one paragraph?", vbYesNo + vbInformation, "Kutools for Word") = vbNo Then Exit Sub
xSelection.WholeStory
Set xSelection = Application.Selection
xSelection.HomeKey wdStory
FindAndReplace xSelection
End If
Application.ScreenUpdating = True
Application.ScreenRefresh
MsgBox "The selected lines have been merged into one paragraph.", vbInformation, "Kutools for Word"
End Sub
Sub FindAndReplace(Sel As Selection)
With Sel.Find
.ClearFormatting
.Replacement.ClearFormatting
.Forward = True
.Wrap = wdFindStop
.Format = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
.Text = "[^s^t]{1,}^13"
.Replacement.Text = "^p"
.Execute Replace:=wdReplaceAll
.Text = "([!^13])([^13])([!^13])"
.Replacement.Text = "\1\3"
.Execute Replace:=wdReplaceAll
.Text = "[ ]{2,}"
.Replacement.Text = " "
.Execute Replace:=wdReplaceAll
.Text = "([a-z])-[ ]{1,}([a-z])"
.Replacement.Text = "\1\2"
.Execute Replace:=wdReplaceAll
.Text = "[^13]{1,}"
.Replacement.Text = "^p"
.Execute Replace:=wdReplaceAll
End With
End Sub
4. Ve sonra tuşuna basın. F5 Bu kodu çalıştırmak için anahtar ve aşağıdaki ekran görüntüsü gibi seçilen tüm paragraflar tek bir paragrafta birleştirilmiştir:
Önerilen Word Üretkenlik Araçları
Kutools For Word - Word İçin 100'den Fazla Gelişmiş Özellik,% 50 Zaman Kazanın
- Karmaşık ve tekrarlanan işlemler saniyeler içinde tek seferlik işlem yapılabilir.
- Klasörler arasında birden çok görüntüyü aynı anda Word belgesine ekleyin.
- Birden çok Word dosyasını klasörler arasında istediğiniz sırada birleştirin ve birleştirin.
- Geçerli belgeyi başlık, bölüm sonu veya diğer kriterlere göre ayrı belgelere bölün.
- Dosyaları Doc ve Docx, Docx ve PDF, ortak dönüştürme ve seçim için araçlar koleksiyonu vb. Arasında dönüştürün ...
