Conas fotheidil táblaí a bhogadh ó thuas go dtí thíos nó vice versa isteach Word doiciméad?

I Word doiciméad, má tá táblaí iolracha a bhfuil fotheidil curtha isteach faoi bhun gach tábla. Ach, uaireanta, b’fhéidir gur mhaith leat na fotheidil seo a bhogadh ó thíos go dtí os cionn na dtáblaí. Conas a d’fhéadfá déileáil leis an bpost seo chomh tapa agus is féidir leat?

Bog fotheidil tábla ó thíos go dtí thuas nó vice versa i Word le cód VBA

Bog fotheidil tábla ó thíos go dtí thuas nó vice versa i Word le cód VBA

Chun gach ceannteideal tábla a bhogadh ó thíos go dtí thuas de na táblaí, is fearr leat an cód VBA seo a leanas, déan é seo le do thoil:

1. Coinnigh síos an ALT + F11 eochracha a oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

2. Cliceáil Ionsáigh > Modúil, agus greamaigh an macra seo a leanas i bhFuinneog an Mhodúil.

Bog fotheidil tábla ó thíos go dtí thuas in a Word doiciméad

Sub ReLabelDownToUpTables()
    Dim I As Long
    Dim xRngPre As Range
    Dim xRngNext As Range
    Application.ScreenUpdating = False
    With ActiveDocument
        For I = .Tables.Count To 1 Step -1
            With .Tables(I).Range
                Set xRngPre = .Characters.First.Previous.Characters.Last
                xRngPre.Select
                Set xRngNext = .Characters.Last.Next.Paragraphs.First.Range
                xRngNext.Select
                With xRngPre
                    .InsertBefore vbCr
                    .Style = xRngNext.Style
                    .Start = .End - 1
                    .End = .Start
                End With
                If Len(xRngNext.Text) > 1 Then
                    xRngNext.End = xRngNext.End - 1
                    xRngNext.Cut
                    xRngNext.Delete
                    xRngPre.Paste
                Else
                    xRngNext.Delete
                End If
            End With
        Next
    End With
    Application.ScreenUpdating = True
End Sub

3. Ansin, brúigh F5 eochair chun an cód seo a rith, agus aistríodh gach ceannteideal tábla ó thíos go dtí thuas na táblaí, féach an scáileán:

nótaí: Chun na fotheidil tábla a bhogadh ó thuas go thíos de gach tábla, cuir an cód VBA seo a leanas i bhfeidhm:

Bog fotheidil tábla ó thuas go thíos in a Word doiciméad

Sub ReLabelUpToDownTables()
    Dim I As Long
    Dim xRngPre As Range
    Dim xRngNext As Range
    Application.ScreenUpdating = False
    With ActiveDocument
        For I = .Tables.Count To 1 Step -1
            With .Tables(I).Range
                Set xRngNext = .Characters.First.Previous.Paragraphs.First.Range
                xRngNext.Select
                Set xRngPre = .Characters.Last.Next
                xRngPre.End = xRngPre.End - 1
                xRngPre.Select
                With xRngPre
                    .InsertBefore vbCr
                    .Style = xRngNext.Style
                    .Start = .End - 1
                    .End = .Start
                End With
                If Len(xRngNext.Text) > 1 Then
                    xRngNext.End = xRngNext.End - 1
                    xRngNext.Cut
                    xRngNext.Delete
                    xRngPre.Paste
                Else
                    xRngNext.Delete
                End If
            End With
        Next
    End With
    Application.ScreenUpdating = True
End Sub

---

molta Word Uirlisí Táirgiúlachta

 

Kutools For Word - Níos mó ná 100 Ardghnéithe Do Word, Sábháil Do Am 50%.

• 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 iolracha trasna fillteáin isteach Word doiciméad láithreach.
• Cumaisc agus cuir le chéile iolrach Word comhaid trasna fillteáin isteach i gceann le d'ordú inmhianaithe.
• 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 ...

Leigh Nios mo Íosluchtaigh Anois Ceannach