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 adroddiadau 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 am Word - Dyrchafu Eich Profiad Word gyda Dros 100 Nodweddion Rhyfeddol!
🤖 Cynorthwy-ydd Kutools AI: Trawsnewidiwch eich ysgrifennu gydag AI - Cynhyrchu Cynnwys / Ailysgrifennu Testun / Crynhoi Dogfennau / Ymholwch am Wybodaeth yn seiliedig ar Ddogfen, i gyd o fewn Word
📘 Meistrolaeth Dogfen: Tudalennau Hollti / Uno Dogfennau / Dewis Allforio mewn Fformatau Amrywiol (PDF/TXT/DOC/HTML...) / 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: swap i ffwrdd Mannau Ychwanegol / Toriadau Adran / Pob Pennawd / Blychau Testun / hypergysylltiadau / Am fwy o offer tynnu, ewch i'n Dileu Grŵp...
➕ 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 / Darganfod mwy yn y Mewnosod Grŵp...
🔍 Detholiadau Manwl: pinbwynt tudalennau penodol / tablau / siapiau / paragraffau pennawd / Gwella llywio gyda mwy Dewiswch nodweddion...
⭐ Gwelliannau Seren: Llywiwch yn gyflym i unrhyw leoliad / auto-mewnosod testun ailadroddus / toglo'n ddi-dor rhwng ffenestri dogfennau / 11 Offer Trosi...