Conas illínte a chumasc nó a chomhcheangal in aon mhír amháin i ndoiciméad Word?
Má tá na céadta agus na mílte mír i do dhoiciméad Word, agus an doiciméad seo á phriontáil, beidh go leor páipéar ag teastáil uaidh. Maidir le páipéir choigiltis, is féidir leat na línte iolracha sin a chumasc in aon mhír amháin. Ach, conas a d’fhéadfá na línte seo go léir a chomhcheangal in aon mhír go tapa agus go héasca i ndoiciméad Word?
Cumaisc nó comhcheangail línte iolracha in aon mhír amháin le feidhm Aimsigh agus Ionadaigh
Cumaisc nó comhcheangail línte iolracha in aon mhír amháin le cód VBA
Cumaisc nó comhcheangail línte iolracha in aon mhír amháin le feidhm Aimsigh agus Ionadaigh
An Aimsigh agus Ionadaigh is féidir le feidhm i Word cabhrú leat línte iolracha a chumasc in aon mhír amháin, déan mar seo é le do thoil:
1. Roghnaigh na hailt is mian leat a chumasc in aon mhír amháin.
2. Agus ansin, cliceáil Baile > Aimsigh > Lorg Casta dul an Aimsigh agus Ionadaigh bosca dialóige, sa Aimsigh agus Ionadaigh bosca dialóige, faoin Aimsigh cluaisín, cuir isteach le do thoil ^p isteach sa Aimsigh cad bosca téacs, agus ansin roghnaigh Roghnú Reatha rogha ón Faigh Isteach liosta anuas, féach an scáileán:
3. Ansin téigh go dtí an Ionadaigh cluaisín, agus fág an Ionadaigh le bosca téacs folamh, agus ansin cliceáil Ionadaigh uile cnaipe, féach ar an scáileán:
4. Agus rinneadh na míreanna roghnaithe go léir a chumasc in aon mhír amháin, féach an pictiúr:
Cumaisc nó comhcheangail línte iolracha in aon mhír amháin le cód VBA
Seo modh úsáideach eile a chabhróidh leat an post seo a chríochnú i Word, déan na céimeanna seo a leanas le do thoil:
1. Roghnaigh na línte a theastaíonn uait a chumasc in aon mhír amháin.
2. Ansin, coinnigh síos an ALT + F11 eochracha a oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.
3. Agus ansin, cliceáil Ionsáigh > Modúil, cóipeáil agus greamaigh an cód thíos sa mhodúl bán oscailte.
Cód VBA: Cumaisc línte iolracha in aon mhír amháin:
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. Agus ansin brúigh F5 eochair chun an cód seo a rith, agus tá na míreanna roghnaithe go léir curtha le chéile in aon mhír mar a thaispeántar an pictiúr a leanas:
Uirlisí Táirgeachta Focal Molta
Kutools For Word - Níos mó ná 100 Gné Ardteist le haghaidh Word, Sábháil Do 50% Am
- Is féidir oibríochtaí casta agus arís agus arís eile a dhéanamh próiseáil aon-uaire i soicindí.
- Cuir isteach íomhánna iomadúla thar fhillteáin i ndoiciméad Word ag an am céanna.
- Cumaisc agus comhcheangail comhaid Word iolracha thar fhillteáin i gceann amháin leis an ord atá uait.
- Roinn an doiciméad reatha i ndoiciméid ar leithligh de réir ceannteidil, briseadh ailt nó critéir eile.
- Tiontaigh comhaid idir Doc agus Docx, Docx agus PDF, bailiú uirlisí le haghaidh comhshó agus roghnú coitianta, agus mar sin de ...
