Note: The other languages of the website are Google-translated. Back to English
Mewngofnodi  \/ 
x
or
x
Cofrestru  \/ 
x

or

Sut i symud capsiynau tabl oddi uchod i isod neu i'r gwrthwyneb yn nogfen Word?

Mewn dogfen Word, os oes tablau lluosog sydd wedi mewnosod capsiynau o dan bob tabl. Ond, weithiau, efallai yr hoffech chi symud y capsiynau hyn oddi isod i uchod o'r tablau. Sut allech chi ymdopi â'r swydd hon mor gyflym ag y gallwch?

Symud capsiynau tabl oddi isod i uchod neu i'r gwrthwyneb yn Word gyda chod VBA


Symud capsiynau tabl oddi isod i uchod neu i'r gwrthwyneb yn Word gyda chod VBA

I symud yr holl gapsiynau tabl o isod i uchod o'r tablau, a yw'r cod VBA canlynol yn ffafrio chi, gwnewch fel hyn:

1. Daliwch i lawr y ALT + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Cliciwch Mewnosod > Modiwlau, a gludwch y macro canlynol yn y Ffenestr Modiwl.

Symudwch gapsiynau tabl oddi isod i uchod mewn dogfen Word

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. Yna, pwyswch F5 allwedd i redeg y cod hwn, ac mae'r holl gapsiynau tabl wedi'u symud o isod i uchod o'r tablau, gweler y screenshot:

pennawd symud doc doc 1

Nodyn: I symud y capsiynau tabl oddi uchod i isod pob tabl, defnyddiwch y cod VBA canlynol:

Symudwch gapsiynau tabl oddi uchod i isod mewn dogfen Word

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

Mewnosodwch gapsiynau tabl, llun neu hafaliad lluosog yn nogfen Word ar unwaith:

Fel rheol, dylech fewnosod y pennawd tabl, llun neu hafaliad ar gyfer y tabl, delwedd neu hafaliad fesul un yn ffeil Word. Ond, os oes gennych chi Kutols am Air's Penawdau Lluosog nodwedd, gallwch fewnosod y tablau, delwedd neu hafaliadau hafaliad ar gyfer yr holl dablau, delweddau neu hafaliadau cyn gynted â phosibl.

pennawd symud doc doc 2

Kutools am Word: gyda mwy na 100 o ychwanegiadau Word defnyddiol, am ddim i geisio heb unrhyw gyfyngiad mewn 60 diwrnod. Cliciwch i Lawrlwytho a threial am ddim Nawr!


Offer Cynhyrchedd Geiriau a Argymhellir

 

Kutools For Word - Mwy na 100 o Nodweddion Uwch ar gyfer Word, Arbedwch Eich Amser 50%

  • 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 ...
Say something here...
symbols left.
You are guest
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.