Suman cần sử dụng macro để chèn hình ảnh trên trang 10 của một tài liệu cụ thể. Anh ấy băn khoăn về cách tốt nhất, trong phạm vi vĩ mô, để giải quyết vấn đề này.

Nếu bạn muốn hình ảnh là thứ duy nhất trên trang 10, thì nhiệm vụ khá dễ dàng: Sử dụng macro để định vị trang 10, chèn hình ảnh, rồi chèn dấu ngắt trang sau hình ảnh. Điều này sau đó làm cho mọi thứ sau khi hình ảnh lên một trang, chẳng hạn như trang 10 cũ trở thành trang 11, trang 11 trở thành trang 12, v.v.

Sub InsertImage1()

Dim PicPath As String

PicPath = "C:\My Pictures\My Scans\scan0002.jpg"

Macro sẽ chèn hình ảnh dưới dạng hình nội tuyến. Nếu muốn, bạn có thể chèn hình ảnh dưới dạng hình nổi, điều này sẽ cho phép văn bản bao quanh hình ảnh. Macro sau thực hiện điều đó, cũng như căn giữa hình ảnh ở giữa trang:

Sub InsertImage2()

Dim PicPath As String     Dim aShape As Shape

PicPath = "C:\My Pictures\My Scans\scan0002.jpg"

Nếu bạn muốn hình ảnh của mình thay thế hình ảnh hiện có (có thể bằng hình ảnh cập nhật), thì bạn có thể làm như vậy bằng cách sử dụng macro phức tạp hơn một chút.

Macro sau sẽ xác định vị trí hình ảnh đầu tiên trên trang mong muốn và thay thế nó bằng một hình dạng nội tuyến.

Sub ReplaceImage()

Dim r1 As Range     Dim r2 As Range     Dim nPages As Long     Dim nP As Long     Dim PicPath As String     Dim sTemp As String

PicPath = "C:\My Pictures\My Scans\scan0002.jpg"

nP = 10    ' Page number on which to replace the image

sTemp = ""

nPages = ActiveDocument.ComputeStatistics(statistic:=wdStatisticPages)

If nP > nPages Then         sTemp = "You are trying to go to a non-existent page"

Else         Set r1 = ActiveDocument.GoTo(What:=wdGoToPage, Count:=nP)

If nP = nPages Then             Set r2 = ActiveDocument.Range             r1.End = r2.End         Else             Set r2 = ActiveDocument.GoTo(What:=wdGoToPage, Count:=nP + 1)

r1.End = r2.Start - 2         End If         If r1.InlineShapes.Count = 0 Then             sTemp = "Page " & nP & " does not have an inline picture"

WordTips là nguồn của bạn để đào tạo Microsoft Word hiệu quả về chi phí.

(Microsoft Word là phần mềm xử lý văn bản phổ biến nhất trên thế giới.) Mẹo này (13139) áp dụng cho Microsoft Word 2007, 2010, 2013, 2016, 2019 và Word trong Office 365.