提示:其他語言是Google翻譯的。 你可以訪問 English 版本。
登入
x
or
x
x
註冊
x

or

如何在Word文檔中從上到下移動表格標題,反之亦然?

在Word文檔中,如果有多個表在每個表下面插入了標題。 但是,有時候,您可能希望將這些字幕從下方移到表格的上方。 你怎麼能盡快批量處理這份工作呢?

在Word中使用VBA代碼將表格標題從下方移動到上方,反之亦然

一次在Word文檔中插入多個表格,圖片或方程式標題:

通常情況下,您應該在Word文件中逐個輸入表格,圖片或方程式表格,圖片或方程式。 但是,如果你有 Kutols for Word's 多個標題 功能,您可以盡快插入所有表格,圖像或方程式的表格,圖像或方程式標題。

doc move表格標題2

Kutools for Word:擁有超過100便利的Word插件,可以免費試用60時間不受限制。 點擊下載並免費試用現在!


在Word中使用VBA代碼將表格標題從下方移動到上方,反之亦然

要將所有表格標題從下方移動到表格的上方,以下VBA代碼對您有幫助,請按以下步驟操作:

1。 按住 ALT + F11 鍵打開 Microsoft Visual Basic for Applications 窗口。

2。 點擊 插入 > 模塊,並將下面的宏粘貼到模塊窗口中。

在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。 然後按 F5 運行此代碼的鍵,所有表格標題已從表格的下方移動到上方,請參見屏幕截圖:

doc move表格標題1

備註:要將表格標題從每個表格的上方移動到下方,請應用以下VBA代碼:

在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


推薦的Word生產力工具

Kutools For Word - 超過100 Word的高級功能,節省您的50%時間

  • 複雜和重複的操作可以在幾秒鐘內完成一次性處理。
  • 一次將多個圖像跨文件夾插入Word文檔。
  • 將多個文件夾合併並組合成一個具有所需訂單的文件。
  • 根據標題,分節符或其他標準將當前文檔拆分為單獨的文檔。
  • 在Doc和Docx,Docx和PDF之間轉換文件,用於常見轉換和選擇的工具集合等等......
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.