Note: The other languages of the website are Google-translated. Back to English

Ինչպե՞ս միացնել կամ միավորել Word- ի փաստաթղթում մի քանի տողեր մեկ պարբերության մեջ:

Եթե ​​ձեր Word փաստաթղթում կան հարյուրավոր և հազարավոր պարբերություններ, ապա այս փաստաթուղթը տպելիս դրա համար շատ թուղթ է պետք: Թղթերը խնայելու համար կարող եք միավորել այս բազմաթիվ տողերը մեկ մեկ պարբերության մեջ: Այնուամենայնիվ, ինչպե՞ս կարող եք այս և բոլոր տողերը արագ և հեշտությամբ միավորել Word- ի փաստաթղթում:

Միաձուլեք կամ միացրեք մի քանի տողեր մեկ մեկ պարբերության մեջ Find and Replace գործառույթի հետ

Միաձուլեք կամ միացրեք մի քանի տողեր մեկ պարբերության մեջ VBA կոդի հետ


Միաձուլեք կամ միացրեք մի քանի տողեր մեկ մեկ պարբերության մեջ Find and Replace գործառույթի հետ

The Գտնել եւ փոխարինել Word- ի գործառույթը կարող է օգնել ձեզ մի քանի տողեր միաձուլել մեկ պարբերության, խնդրում եմ արեք հետևյալ կերպ.

1, Ընտրեք պարբերությունները, որոնք ցանկանում եք միավորել մեկ պարբերության:

2, Եվ հետո, կտտացրեք Գլխավոր > Գտնել > Ընդլայնված որոնում գնալ Գտնել եւ փոխարինել երկխոսության վանդակում, Գտնել եւ փոխարինել երկխոսության տուփ, տակ Գտնել ներդիր, խնդրում ենք մուտքագրել ^p մեջ Գտեք ինչ տեքստային տուփ, ապա ընտրեք Ընթացիկ ընտրություն տարբերակը Գտնել մեջ բացվող ցուցակ, տես նկարի նկարը.

doc միաձուլել բազմաթիվ տողեր 1

3, Հետո գնա դեպի Փոխարինել էջանիշը և թողնել այն Փոխարինել տեքստի տուփը դատարկ է, ապա կտտացրեք Փոխարինեք բոլորը կոճակը, տես նկարի նկարը.

doc միաձուլել բազմաթիվ տողեր 2

4, Եվ բոլոր ընտրված պարբերությունները միացվել են մեկ մեկ պարբերության, տե՛ս նկարը.

doc միաձուլել բազմաթիվ տողեր 3


Միաձուլեք կամ միացրեք մի քանի տողեր մեկ պարբերության մեջ VBA կոդի հետ

Ահա ևս մեկ օգտակար մեթոդ, որը կարող է նաև օգնել ձեզ Word- ում ավարտել այս գործը, կատարեք հետևյալ քայլերով.

1, Ընտրեք այն տողերը, որոնք ցանկանում եք միավորել մեկ պարբերության:

2, Ապա, պահեք պահումը ALT + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.

3, Եվ հետո, կտտացրեք Տեղադրել > Մոդուլներ, պատճենեք և տեղադրեք կոդը ներքևում բացված դատարկ մոդուլի մեջ:

VBA կոդ. Միավորել մի քանի տող մեկ մեկ պարբերության մեջ.

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, Եվ հետո սեղմեք F5 այս կոդը գործարկելու բանալին, և բոլոր ընտրված պարբերությունները միավորվել են մեկ պարբերության մեջ, ինչպես ցույց է տրված հետևյալ նկարը.

doc միաձուլել բազմաթիվ տողեր 4


Բառի արտադրողականության առաջարկվող գործիքներ

 

Kutools Word- ի համար. Word- ի ավելի քան 100 առաջադեմ առանձնահատկություններ, խնայեք ձեր 50% ժամանակը

  • Բարդ և կրկնվող գործողությունները կարող են կատարվել միանգամյա մշակմամբ վայրկյանների ընթացքում:
  • Տեղադրեք բազմաթիվ պատկերներ միանգամից թղթապանակների մեջ Word փաստաթղթում:
  • Միացրեք և միացրեք բազմաթիվ Word ֆայլեր թղթապանակների մեջ մեկում ՝ ձեր ցանկալի պատվերի հետ:
  • Ընթացիկ փաստաթուղթը բաժանեք առանձին փաստաթղթերի `ըստ վերնագրի, հատվածի ընդմիջման կամ այլ չափանիշների:
  • Փոխարկել ֆայլերը Doc- ի և Docx- ի, Docx- ի և PDF- ի միջև, ընդհանուր փոխակերպումների և ընտրության գործիքների հավաքածու և այլն ...
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (5)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շատ շնորհակալություն
Սա օգնում է ինձ խնայել ժամանակը, որը ես դա անում էի ձեռքով, 60 էջից հետո 2 էջ է, ես հոգնում եմ և սկսում եմ այլ դյուրանցումներ փնտրել
ՇՆՈՐՀԱԿԱԼՈՒԹՅՈՒՆ
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
կա՞ այս բառը Google Docs-ում ստեղծելու միջոց, ես արեցի քայլերը, բայց սա կաշխատի միայն աշխատասեղանի և microsoft word-ի առցանց տարբերակների համար։
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շնորհակալություն! Սա ինձ ժամեր խնայեց մի քանի կոտրված նախադասությունների 70+ էջերը առանձին-առանձին պարբերությունների մեջ փլցնելուց: Սա ՀԱՆՃԱՐ է:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Առաջին քայլը, որը ես փորձարկել եմ, բավականաչափ փայլուն է: Դա լավագույն հնարքն էր, որի մասին լսել եմ: Շնորհակալություն!
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շնորհակալություն ընկերս
Առայժմ ոչ մի մեկնաբանություն չկա
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր