Sut i uno neu gyfuno llinellau lluosog yn un paragraff yn nogfen Word?
Os oes cannoedd ar filoedd o baragraffau yn eich dogfen Word, wrth argraffu'r ddogfen hon, bydd angen llawer o bapur arni. Ar gyfer papurau cynilo, gallwch uno'r llinellau lluosog hyn yn un paragraff sengl. Fodd bynnag, sut allech chi gyfuno'r holl linellau hyn yn un paragraff yn gyflym ac yn hawdd yn nogfen Word?
Uno neu gyfuno llinellau lluosog yn un paragraff sengl â swyddogaeth Darganfod ac Amnewid
Uno neu gyfuno llinellau lluosog yn un paragraff sengl â chod VBA
Uno neu gyfuno llinellau lluosog yn un paragraff sengl â swyddogaeth Darganfod ac Amnewid
Mae Dod o hyd ac yn ei le gall swyddogaeth yn Word eich helpu chi i uno llinellau lluosog yn un paragraff, gwnewch fel hyn:
1. Dewiswch y paragraffau rydych chi am eu huno yn un paragraff.
2. Ac yna, cliciwch Hafan > Dod o hyd i > Darganfod Uwch i fynd y Dod o hyd ac yn ei le blwch deialog, yn y Dod o hyd ac yn ei le blwch deialog, o dan y Dod o hyd i tab, nodwch ^p i mewn i'r Dewch o hyd i beth blwch testun, ac yna dewiswch Dewis Cyfredol opsiwn gan y Dod o hyd i rhestr ostwng, gweler y screenshot:
3. Yna ewch i'r Disodli tab, a gadael y Amnewid gyda blwch testun yn wag, ac yna cliciwch Amnewid All botwm, gweler y screenshot:
4. Ac mae'r holl baragraffau a ddewiswyd wedi'u huno yn un paragraff sengl, gweler y screenshot:
Uno neu gyfuno llinellau lluosog yn un paragraff sengl â chod VBA
Dyma ddull defnyddiol arall hefyd a all eich helpu i orffen y swydd hon yn Word, gwnewch y camau canlynol:
1. Dewiswch y llinellau rydych chi am eu huno yn un paragraff.
2. Yna, dal i lawr y ALT + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
3. Ac yna, cliciwch Mewnosod > Modiwlau, copïo a gludo islaw'r cod i'r modiwl gwag agored.
Cod VBA: Uno llinellau lluosog yn un paragraff sengl:
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. Ac yna pwyswch F5 allwedd i redeg y cod hwn, ac mae'r holl baragraffau a ddewiswyd wedi'u cyfuno i mewn i un paragraff fel y llun a ganlyn a ddangosir:
Offer Cynhyrchiant Swyddfa Gorau
Kutools for Word - Dyrchafu Eich Profiad Word gyda Dros 100 Nodweddion Rhyfeddol!
Plymiwch i mewn i'r nodweddion a amlygwyd isod neu cliciwch yma i archwilio grym llawn Kutools for Word.
📘 Meistrolaeth Dogfen: Tudalennau Hollti / Uno Dogfennau / Dewis Allforio mewn Fformatau Amrywiol (PDF/TXT/DOC/XLSX) / Trosi swp i PDF / Allforio Tudalennau fel Delweddau / Argraffu Ffeiliau Lluosog ar unwaith ...
✏ Golygu Cynnwys: Swp Dod o Hyd i ac Amnewid ar draws Ffeiliau Lluosog / Newid Maint Pob Llun / Trawsosod Rhesi Bwrdd a Cholofnau / Trosi Tabl i Testun ...
🧹 Ymdrech Glân: Sweap i ffwrdd Mannau Ychwanegol / Toriadau Adran / Pob Pennawd / Blychau Testun / hypergysylltiadau / I gael rhagor o offer tynnu, ewch i'n Grŵp Dileu
➕ Mewnosodiadau Creadigol: Mewnosod Mil o Wahanwyr / Blychau Gwirio / Botymau Radio / Cod QR / Cod Bar / Tabl Llinell Lletraws / Pennawd Hafaliad / Capsiwn Delwedd / Pennawd Tabl / Lluniau Lluosog / Darganfyddwch fwy yn ein Insert Group
🔍 Detholiadau Manwl: Nodwch dudalennau penodol / tablau / siapiau / paragraffau pennawd / Llywiwch yn rhwydd gan ddefnyddio ein Grŵp Dewis
⭐ Gwelliannau Seren: Llywiwch yn gyflym i unrhyw leoliad / auto-mewnosod testun ailadroddus / toglo'n ddi-dor rhwng ffenestri dogfennau / 11 Offer Trosi ...
Trawsnewidiwch eich tasgau Word gyda Kutools. 👉 Dadlwythwch gyda threial 30 diwrnod Nawr 🚀.
