Mỗi tuần John cần tạo một invoice và chèn một vài hình ảnh đã quét vào tài liệu Word. Anh ấy tự hỏi liệu có cách nào để đưa tất cả ảnh JPG từ một thư mục cụ thể vào tài liệu Word hiện tại hay không.

Có một số cách bạn có thể làm điều này. Một cách là chỉ cần chọn tất cả các đồ họa và chèn chúng trong một bước:

  1. Đặt điểm chèn tại vị trí trong tài liệu mà bạn muốn chèn đồ họa.

  2. Chọn Chèn | Hình ảnh | Từ tệp. Word sẽ hiển thị hộp thoại Chèn ảnh.

  3. Sử dụng điều khiển Nhìn vào để xác định thư mục chứa hình ảnh.

  4. Nhấn Ctrl + A. Word chọn tất cả các tệp trong thư mục.

  5. Bấm OK hoặc Chèn, tùy thuộc vào phiên bản Word của bạn.

Đó là nó; Word sẽ chèn tất cả đồ họa trong tài liệu. Bạn sẽ cần phải cẩn thận khi làm việc này, bởi vì nếu có rất nhiều (hơn 100)

đồ họa trong thư mục hoặc nếu tệp đồ họa khá lớn, bạn có thể làm chậm Word để thu thập dữ liệu hoặc treo nó hoàn toàn. Nếu thư mục không chỉ chứa đồ họa hoặc bạn chỉ muốn một số tệp đồ họa, bạn có thể giữ phím Ctrl khi sử dụng chuột để chọn đồ họa trong bước 4. Điểm mấu chốt là bất kỳ tệp nào bạn đã chọn ở bước 4, đó là những tệp mà Word sẽ chèn vào tài liệu của bạn.

Một biến thể của phương pháp này liên quan đến việc sử dụng Windows. Làm theo các bước chung sau:

  1. Đặt điểm chèn tại vị trí trong tài liệu mà bạn muốn chèn đồ họa.

  2. Thu nhỏ tài liệu Word.

  3. Trong Windows, hiển thị thư mục chứa ảnh.

  4. Xây dựng một tập hợp các hình ảnh bạn muốn chèn vào tài liệu.

  5. Nhấp vào bất kỳ hình ảnh đơn lẻ nào trong tập hợp lựa chọn và giữ nút chuột.

  6. Kéo tập hợp lựa chọn lên đầu tài liệu khi nó xuất hiện trên Thanh tác vụ. (Chưa nhả nút chuột.)

  7. Khi Windows hiển thị tài liệu Word (nó sẽ hiển thị sau vài giây), hãy thả nút chuột.

Tại thời điểm này, tất cả các hình ảnh bạn đã chọn ở bước 4 sẽ được chèn vào tài liệu Word, giống như trong phương pháp trước đó.

Nếu bạn sử dụng một trong các phương pháp nêu trên, bạn sẽ cần thay đổi kích thước hình ảnh và di chuyển chúng xung quanh, nếu cần, để tài liệu của bạn xuất hiện theo cách bạn mong muốn.

Tất nhiên, nếu bạn cần phải chèn toàn bộ các nhóm hình ảnh thường xuyên, thì việc thực hiện các bước này có thể trở nên mệt mỏi sau một thời gian.

Tedium thường thuyên giảm khi sử dụng macro, và trường hợp này cũng không ngoại lệ. Macro sau có thể được sử dụng để hiển thị một hộp thoại (tương tự như các hộp thoại được sử dụng trong các phương pháp trước đó) nơi bạn có thể chọn các tệp bạn muốn. Khi bạn đóng hộp thoại, bất kỳ hình ảnh nào bạn đã chọn trong hộp thoại sẽ được chèn vào tài liệu của bạn, mỗi hình ảnh trong một đoạn văn riêng của nó.

Sub InsertImages()

Dim doc As Word.Document     Dim fd As FileDialog     Dim vItem As Variant     Dim mg1 As Range     Dim mg2 As Range

Set fd = Application.FileDialog(msoFileDialogFilePicker)

Set doc = ActiveDocument

With fd         .Filters.Add "Images", ".gif; .jpg; *.jpeg", 1         .FilterIndex = 1

mg1.Text = vbCrLF & vbCrLf             Next vItem         End If     End With

Set fd = Nothing End Sub

Nếu bạn không muốn bận tâm với việc chọn các thư mục hoặc tệp, bạn có thể sử dụng một macro đơn giản hơn. Thao tác sau sẽ kéo tất cả các tệp JPG từ một thư mục được chỉ định và đặt chúng vào tài liệu hiện tại. Mỗi hình ảnh nằm trong một đoạn văn riêng.

Sub GetPictures()

Dim sPic As String     Dim sPath As String

sPath = "c:\myfolder\"

sPic = Dir(sPath & "*.jpg")



Do While sPic <> ""

Để sử dụng macro, chỉ cần đảm bảo bạn thay đổi giá trị được gán cho sPath để nó đại diện cho thư mục bạn muốn.

_Lưu ý: _

Nếu bạn muốn biết cách sử dụng các macro được mô tả trên trang này (hoặc trên bất kỳ trang nào khác trên các trang WordTips), tôi đã chuẩn bị một trang đặc biệt bao gồm thông tin hữu ích.

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 (10726) áp dụng cho Microsoft Word 97, 2000, 2002 và 2003. Bạn có thể tìm thấy phiên bản của mẹo này cho giao diện ribbon của Word (Word 2007 và sau này) tại đây: