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

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:

doc uno llinellau lluosog 1

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:

doc uno llinellau lluosog 2

4. Ac mae'r holl baragraffau a ddewiswyd wedi'u huno yn un paragraff sengl, gweler y screenshot:

doc uno llinellau lluosog 3


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:

doc uno llinellau lluosog 4


Offer Cynhyrchedd Geiriau a Argymhellir

 

Kutools Ar gyfer Word - Mwy Na 100 Nodweddion Uwch Ar gyfer Word, Arbedwch Eich 50% Amser

  • Gellir gwneud gweithrediadau cymhleth ac ailadroddus brosesu un-amser mewn eiliadau.
  • Mewnosodwch ddelweddau lluosog ar draws ffolderau yn nogfen Word ar unwaith.
  • Uno a chyfuno ffeiliau Word lluosog ar draws ffolderau yn un gyda'r drefn a ddymunir gennych.
  • Rhannwch y ddogfen gyfredol yn ddogfennau ar wahân yn ôl pennawd, toriad adran neu feini prawf eraill.
  • Trosi ffeiliau rhwng Doc a Docx, Docx a PDF, casglu offer ar gyfer trawsnewid a dewis cyffredin, ac ati ...
sylwadau (5)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch yn fawr iawn
Mae hyn yn fy helpu i arbed amser roeddwn i'n gwneud hyn â llaw, roedd 60 tudalen ar ôl 2 dudalen rwy'n blino ac yn dechrau edrych ar lwybr byr arall
DIOLCH
Lleihawyd y sylw hwn gan y safonwr ar y wefan
a oes ffordd i wneud y gair hwn ar google docs, gwnes i'r camau ond dim ond ar gyfer fersiynau bwrdd gwaith ac ar-lein o microsoft word y bydd hyn yn gweithio
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch! Arbedodd hyn oriau i mi rhag gorfod cwympo 70+ tudalen o sawl brawddeg wedi torri yn baragraffau yn unigol. Dyma GENIUS.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae'r cam cyntaf, yr wyf wedi'i brofi, yn ddigon gwych. Hwn oedd y tric gorau i mi glywed amdano. Diolch!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch, mêt
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir