在本文中,我們想討論三種在Word文檔中如何為圖片添加邊框的快速方法。
為什麼要在圖片上加上邊框? 答案是顯而易見的。 有些圖片太像主要內容,比如說一個單詞塊的鏡頭,我們很容易將其誤認為是文本。 因此,為了使圖片突出文本內容,可以利用以下三種方法的實用性。
方法1:在一個文檔中的一張圖片上添加邊框
- 首先,單擊圖片進行選擇。
- 接下來單擊“圖片工具”下的“格式”選項卡。
- 然後單擊“圖片邊框”並選擇一種顏色。

方法2:將邊框添加到一個文檔中的所有圖片
如方法1所示,手動更改圖片真的不是一個好主意。 為了節省精力,宏是您應該採取的方法。
- 首先,點選「開發工具」標籤,然後點選「Visual Basic」以顯示 VBA 編輯器。如果「開發工具」不可用,只需按下「Alt+F11」即可。
- 然後單擊“正常”。
- 接下來,單擊“插入”選項卡,然後在其菜單上選擇“模塊”。
- 雙擊新模塊以打開右側的編碼區域。
- 現在在其中粘貼下面的宏:
Sub AddPictureBorders()
Dim objShape As Shape
Dim objInLineShape As InlineShape
Dim objDoc As Document
Set objDoc = ActiveDocument
With objDoc
For Each objInLineShape In .InlineShapes
With objInLineShape.Line
.Style = msoLineSingle
.ForeColor.RGB = RGB(0, 0, 0)
End With
Next
For Each objShape In .Shapes
objShape.Fill.Solid
With objShape.Line
.Style = msoLineSingle
.ForeColor.RGB = RGB(0, 0, 0)
End With
Next
End With
End Sub
- 最後但並非最不重要的一點是,單擊“運行”按鈕或單擊“ F5”。
方法3:將邊框添加到多個文檔中的所有圖片
由於我們可以編寫一個宏來處理文檔中的圖片,因此也有一種方法可以處理多個文檔中的圖片。
首先,您需要將所有目標文件整理到同一目錄下。然後,請按照上述步驟安裝並執行巨集,但將巨集替換為下列巨集:
Sub AddPictureBordersInMultiDoc()
Dim objShape As Shape
Dim objInLineShape As InlineShape
Dim objDoc As Document
Dim strFile As String
Dim strFolder As String
Set objDoc = ActiveDocument
strFolder = "C:\Users\Public\Documents\New folder\"
strFile = Dir(strFolder & "*.docx", vbNormal)
While strFile <> ""
Set objDoc = Documents.Open(FileName:=strFolder & strFile)
With objDoc
For Each objInLineShape In .InlineShapes
With objInLineShape.Line
.Style = msoLineSingle
.ForeColor.RGB = RGB(0, 0, 0)
End With
Next
For Each objShape In .Shapes
objShape.Fill.Solid
With objShape.Line
.Style = msoLineSingle
.ForeColor.RGB = RGB(0, 0, 0)
End With
Next
End With
objDoc.Save
objDoc.Close
strFile = Dir()
Wend
End Sub
筆記:
- 在“C:\ Users \ Public \ Documents \ New文件夾\此宏中的“”是指您存儲文檔的目錄路徑。 而且不要忘記添加最後一個“\“。
- 您可以通過更改 RGB值.
是時候考慮備份了
我們大多數人都清楚備份的作用。在危急時刻,備份可以救你一命。 字損。 因此,我們絕不會破壞花幾分鐘來備份有價值的文檔的影響。 因此,不能保證其數據的安全性。
作者簡介:
陳薇薇(Vera Chen)是 DataNumen,Inc.是數據恢復技術的全球領導者,包括 損壞的XLSX 以及 pdf 維修軟件產品。 欲了解更多信息,請訪問 萬維網。datanumen.COM



