Ինչպե՞ս միացնել կամ միավորել Word- ի փաստաթղթում մի քանի տողեր մեկ պարբերության մեջ:
Եթե ձեր Word փաստաթղթում կան հարյուրավոր և հազարավոր պարբերություններ, ապա այս փաստաթուղթը տպելիս դրա համար շատ թուղթ է պետք: Թղթերը խնայելու համար կարող եք միավորել այս բազմաթիվ տողերը մեկ մեկ պարբերության մեջ: Այնուամենայնիվ, ինչպե՞ս կարող եք այս և բոլոր տողերը արագ և հեշտությամբ միավորել Word- ի փաստաթղթում:
Միաձուլեք կամ միացրեք մի քանի տողեր մեկ մեկ պարբերության մեջ Find and Replace գործառույթի հետ
Միաձուլեք կամ միացրեք մի քանի տողեր մեկ պարբերության մեջ VBA կոդի հետ
Միաձուլեք կամ միացրեք մի քանի տողեր մեկ մեկ պարբերության մեջ Find and Replace գործառույթի հետ
The Գտնել եւ փոխարինել Word- ի գործառույթը կարող է օգնել ձեզ մի քանի տողեր միաձուլել մեկ պարբերության, խնդրում եմ արեք հետևյալ կերպ.
1, Ընտրեք պարբերությունները, որոնք ցանկանում եք միավորել մեկ պարբերության:
2, Եվ հետո, կտտացրեք Գլխավոր > Գտնել > Ընդլայնված որոնում գնալ Գտնել եւ փոխարինել երկխոսության վանդակում, Գտնել եւ փոխարինել երկխոսության տուփ, տակ Գտնել ներդիր, խնդրում ենք մուտքագրել ^p մեջ Գտեք ինչ տեքստային տուփ, ապա ընտրեք Ընթացիկ ընտրություն տարբերակը Գտնել մեջ բացվող ցուցակ, տես նկարի նկարը.
3, Հետո գնա դեպի Փոխարինել էջանիշը և թողնել այն Փոխարինել տեքստի տուփը դատարկ է, ապա կտտացրեք Փոխարինեք բոլորը կոճակը, տես նկարի նկարը.
4, Եվ բոլոր ընտրված պարբերությունները միացվել են մեկ մեկ պարբերության, տե՛ս նկարը.
Միաձուլեք կամ միացրեք մի քանի տողեր մեկ պարբերության մեջ 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 այս կոդը գործարկելու բանալին, և բոլոր ընտրված պարբերությունները միավորվել են մեկ պարբերության մեջ, ինչպես ցույց է տրված հետևյալ նկարը.
Գրասենյակի արտադրողականության լավագույն գործիքները
Kutools բառի համար - Բարձրացրեք ձեր բառի փորձը Over-ի հետ 100 Ուշագրավ առանձնահատկություններ!
🤖 Kutools AI օգնականՓոխակերպեք ձեր գրածը AI-ի միջոցով - Ստեղծեք բովանդակություն / Վերաշարադրել տեքստը / Ամփոփել փաստաթղթերը / Հարցրեք տեղեկատվության համար Փաստաթղթի հիման վրա, բոլորը Word-ի շրջանակներում
📘 Փաստաթղթերի տիրապետում: Էջերի բաժանում / Միաձուլեք փաստաթղթերը / Արտահանել ընտրություն տարբեր ձևաչափերով (PDF/TXT/DOC/HTML...) / Խմբաքանակի փոխակերպում PDF-ի / Արտահանել էջերը որպես պատկերներ / Միանգամից մի քանի ֆայլ տպեք...
✏ Բովանդակության խմբագրում: Խմբաքանակի որոնում և փոխարինում Բազմաթիվ Ֆայլերի միջով / Չափափոխել բոլոր նկարները / Փոխադրել աղյուսակի տողերը և սյունակները / Աղյուսակը տեքստի վերափոխել...
🧹 Անհեշտ մաքրություն:Հեռացրու Լրացուցիչ տարածքներ / Բաժնի ընդմիջումներ / Բոլոր վերնագրերը / Տեքստային տուփեր / Hyperlinks / Լրացուցիչ հեռացման գործիքների համար այցելեք մեր Հեռացնել խումբը...
➕ Ստեղծագործական ներդիրներՆերդիր Հազար բաժանիչներ / Նշեք վանդակները / Ռադիո կոճակներ / QR Code / Շտրիխ կոդ / Անկյունագծային աղյուսակ / Հավասարության վերնագիր / Նկարի վերնագիր / Աղյուսակի վերնագիր / Բազմաթիվ նկարներ / Բացահայտեք ավելին Տեղադրեք խումբը...
🔍 Ճշգրիտ ընտրանքներ: Մատնանշել կոնկրետ էջեր / սեղաններ / ձեւավորում / վերնագրի պարբերություններ / Ընդլայնել նավարկությունը ավելին Ընտրեք հատկանիշներ...
⭐ Աստղերի բարելավումներ: Արագ նավարկեք ցանկացած վայր / կրկնվող տեքստի ավտոմատ տեղադրում / անխափան անցում փաստաթղթի պատուհանների միջև / 11 Փոխակերպման գործիքներ...