Namig: drugi jeziki so prevedeni v Google. Lahko obiščete English različico te povezave.
Vpiši se
x
or
x
x
Registracija
x

or

Kako združiti ali združiti več vrstic v en sam odstavek v dokumentu Word?

Če je v dokumentu Word nekaj sto tisoč odstavkov, bo pri tiskanju tega dokumenta potreben veliko papirja. Za shranjevanje dokumentov lahko te več vrstic združite v en sam odstavek. Kako lahko v dokumentu Word hitro in enostavno združite vse te vrstice v en odstavek?

Spojite ali združite več vrstic v en sam odstavek s funkcijo Najdi in zamenjaj

Spojite ali združite več vrstic v en sam odstavek s kodo VBA


Spojite ali združite več vrstic v en sam odstavek s funkcijo Najdi in zamenjaj

O Poišči in zamenjaj funkcija v programu Word vam lahko pomaga združiti več vrstic v en odstavek, storite tako:

1. Izberite odstavke, ki jih želite združiti v en odstavek.

2. In nato kliknite Domov > Najdi > Napredno iskanje iti na Poišči in zamenjaj pogovorno okno, v Poišči in zamenjaj pogovorno okno, pod Najdi jeziček, vnesite ^p v Našli kaj polje z besedilom in izberite Trenutni izbor možnost iz Najdi spustni seznam, si oglejte posnetek zaslona:

doc združiti več vrstic 1

3. Potem pojdite na Zamenjaj kartico in pustite Zamenjaj z polje z besedilom prazno in nato kliknite Zamenjaj vse gumb, si oglejte posnetek zaslona:

doc združiti več vrstic 2

4. Vsi izbrani odstavki so bili združeni v en sam odstavek, glejte sliko zaslona:

doc združiti več vrstic 3


Spojite ali združite več vrstic v en sam odstavek s kodo VBA

Tukaj je še ena koristna metoda, ki vam lahko pomaga pri dokončanju tega opravila v Wordu, storite z naslednjimi koraki:

1. Izberite črte, ki jih želite združiti v en odstavek.

2. Nato držite ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

3. In nato kliknite Vstavi > Moduli, kopirajte in prilepite spodnjo kodo v odprt prazen modul.

VBA koda: združite več vrstic v en sam odstavek:

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. In nato pritisnite F5 ključ za zagon te kode in vsi izbrani odstavki so bili združeni v en odstavek, kot je prikazan spodnji sliki:

doc združiti več vrstic 4

Priporočena orodja za produktivnost Worda

shot kutools beseda kutools zavihek 1180x121
shot kutools beseda kutools plus zavihek 1180x120

Kutools for Word - več kot 100 napredne funkcije Za Microsoft Word shranite svoj čas 50%

  • Zapletene in ponavljajoče se operacije lahko opravite enkratno obdelavo v sekundah.
  • V dokument Worda vstavite več slik v mapah.
  • Združite in združite več datotek Word v mapah v eno z želenim naročilom.
  • Razdelite trenutni dokument v ločene dokumente v skladu z naslovom 1, odlomkom odseka ali drugimi merili.
  • Pretvorite datoteke med Doc in Docx, Docx in PDF, zbirko orodij za običajne konverzije in izbiro, in tako naprej...
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.