批量調整所有表格以適應 Outlook 電子郵件中的內容或窗口的 2 種方法

Outlook解決方案 2025 年 9 月 29 日
立即分享：

在撰寫郵件正文中包含大量表格的電子郵件時，如果您想批量調整所有表格以適應內容或當前窗口，您可以使用本文中分享的方法。

在郵件中創建多個表格後，為了使郵件內容對齊有序，您可能希望調整所有表格的大小以適應內容或當前消息窗口。 在這種情況下，如果只有兩個或三個表格，您可以使用內置的“自動調整”表格功能將它們一一調整大小，如下面的方法 1 所述。但是，如果有多個表格，您最好使用方法二，它使用VBA代碼輕鬆實現“批量調整”。

方法 1：通過“自動調整”功能一一調整表格大小

  1. 首先，在打開的電子郵件中，將光標放在表格上。
  2. 然後，單擊表格左上角的十字圖標將其選中。
  3. 接下來，訪問“表格工具”功能區中的“佈局”選項卡。
  4. 在這裡，找到並選擇“AutoFit”選項。
  5. 現在，根據您的需要選擇“AutoFit Contents”或“AutoFit Window”。 以下屏幕截圖顯示了示例的結果 - “AutoFit Window”。自動調整窗口
  6. 立即，所選表格適合窗口。調整表格以適應窗口
  7. 之後，您可以使用這種方式將其他表一一調整大小。

方法2：使用Outlook VBA批量調整大小

  1. 一開始，保持電子郵件打開。
  2. 隨後，通過“Alt + F11”觸發 Outlook VBA 編輯器。
  3. 接下來，將以下 VBA 代碼放入模塊或項目中。
Sub ResizeAllTables_FitContentsOrWindow()
    Dim objMail As Outlook.MailItem
    Dim objMailDocument As Word.Document
    Dim objTables As Word.Tables
    Dim i As Integer
    Dim objTable As Word.Table
 
    Set objMail = Outlook.Application.ActiveInspector.CurrentItem
    Set objMailDocument = objMail.GetInspector.WordEditor
    Set objTables = objMailDocument.Tables
 
    If objTables.Count > 0 Then
       For i = 1 To objTables.Count
           Set objTable = objTables.Item(i)
 
           'Fit the window
           objTable.AutoFitBehavior wdAutoFitWindow
 
           'Fit the contents, use the following line instead
           'objTable.AutoFitBehavior wdAutoFitContent
       Next
    End If
End Sub

VBA 代碼 - 批量調整所有表格以適應內容或窗口

  1. 然後，直接按“F5”鍵來運行這個宏。
  2. 宏完成後，返回到電子郵件。 您會發現所有表格都已調整大小以自動適應消息窗口。所有表格都調整大小以適應窗口

敏捷處理 Outlook 問題

使用者在使用 Outlook 時可能會遇到各種問題，例如常見的錯誤訊息、突然卡住和自動重新啟動、資料檔案嚴重損壞等等。相應的解決方案也應根據問題的類型而有所不同。例如，對於一些小錯誤，您可以直接使用收件匣修復工具。但是，如果遇到更嚴重的問題，例如 PST 檔案問題，則應該使用強大且經過驗證的外部修復工具，例如… DataNumen Outlook Repair 至 修復PST 文件。

作者簡介：

Shirley Zhang是的數據恢復專家 DataNumen，Inc.是數據恢復技術的全球領導者，包括 SQL修復 和Outlook修復軟件產品。 欲了解更多信息，請訪問 萬維網。datanumen.COM

立即分享：

評論被關閉。