İpucu: Digər dillər Google-tərcümə olunur. Sizi ziyarət edə bilərsiniz English bu linkin versiyası.
Daxil ol
x
or
x
x
Qeydiyyatdan
x

or

Word sənədində tək bir paraqrafa birdən çox satırı birləşdirmək və ya necə birləşdirmək olar?

Word sənədinizdə yüzlərlə və minlərlə paraqraf varsa, bu sənədi çap etdirərkən çox kağıza ehtiyacınız var. Sənədləri qənaət etmək üçün, bu bir neçə xəttin bir paraqrafa birləşə bilər. Ancaq, Word sənədində tez və asanlıqla bu həddi bir bəndə necə birləşdirə bilərsən?

Tap və dəyişdirmək funksiyası ilə bir neçə paraq birləşdirmək və ya birləşdirmək

VBA kodu ilə bir neçə paraqrafı birləşdirmək və ya birləşdirmək


Tap və dəyişdirmək funksiyası ilə bir neçə paraq birləşdirmək və ya birləşdirmək

The Tapın və dəyişdirin Word-də funksiya bir neçə xəttin bir paraqrafa daxil edilməsinə kömək edə bilər, xahiş edirik bunu edin:

1. Bir paraqrafa daxil etmək istədiyiniz paraqrafları seçin.

2. Və sonra basın ev > Tapmaq > Ətraflı axtarış getmək Tapın və dəyişdirin informasiya qutusunda, Tapın və dəyişdirin informasiya qutusu altında Tapmaq seksiyə daxil edin ^p daxil Nə tapın mətn qutusunu seçin və sonra seçin Cari seçmə seçimdən Tapın açılır siyahı, ekran görünüşünə baxın:

doc xNUMX birdən çox xətti birləşdirin

3. Sonra getmək Dəyişdirmək seksiyasını tərk edin Ilə dəyişdirin mətn qutusunu boş və sonra basın Hamısını dəyişdirin düyməsinə baxın, ekran görüntüsünə baxın:

doc xNUMX birdən çox xətti birləşdirin

4. Bütün seçilmiş paraqraflar birbaşa paraqrafa birləşdirilib, ekran görüntüsünə baxın:

doc xNUMX birdən çox xətti birləşdirin


VBA kodu ilə bir neçə paraqrafı birləşdirmək və ya birləşdirmək

İşdə bu işi Worddə başa çatdırmaq üçün başqa bir faydalı metod da kömək edə bilər:

1. Bir paraqrafa daxil etmək istədiyiniz xəttləri seçin.

2. Sonra, basıb saxlayın ALT + F11 düymələri açmaq üçün Proqramlar üçün Microsoft Visual Basic pəncərə.

3. Və sonra basın Taxmaq > Moduleskodu açdıqdan sonra boş modulu daxil edin və yapışdırın.

VBA kodu: Birdən çox paraqrafı bir paraqrafa birləşdirin:

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. Və sonra basın F5 bu kodu çalıştırmak üçün düyməsini basın və bütün seçilmiş paraqraflar aşağıdakı ekran görüntüsü kimi bir paragrafa birləşdirilmişdir:

doc xNUMX birdən çox xətti birləşdirin



Word üçün Kutools

100, 2003, 2007, 2010, 2013 və 2016 üçün 2019 Ətraflı funksiyaları

shot-kutools-700-225-kte

Daha çox xüsusiyyətlər | Pulsuz Yüklə | Yüzlərlə funksiya üçün yalnız $ 39.00

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.