Note: The other languages of the website are Google-translated. Back to English
English English

จะแทรกรูปภาพหลายรูปพร้อมชื่อไฟล์ในเอกสาร Word ได้อย่างไร?

ในเอกสาร Word คุณสามารถแทรกรูปภาพหลายภาพพร้อมกันได้อย่างรวดเร็วโดยใช้ฟังก์ชันแทรก แต่บางครั้งคุณต้องแทรกเส้นทางไฟล์และชื่อเป็นคำอธิบายภาพเมื่อแทรกรูปภาพ คุณจะจัดการกับงานนี้ในไฟล์ Word ได้อย่างไร?

แทรกรูปภาพหลายรูปพร้อมชื่อไฟล์โดยใช้รหัส VBA

แทรกรูปภาพหลายรูปพร้อมชื่อไฟล์โดยใช้ Kutools for Word


แทรกรูปภาพหลายรูปพร้อมชื่อไฟล์โดยใช้รหัส VBA

รหัส VBA ต่อไปนี้สามารถช่วยคุณในการแทรกเส้นทางของไฟล์และตั้งชื่อเป็นคำอธิบายภาพเมื่อแทรกรูปภาพได้โปรดทำดังนี้:

1. กด ALT + F11 คีย์เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

2. จากนั้นคลิก สิ่งที่ใส่เข้าไป > โมดูลคัดลอกและวางโค้ดด้านล่างลงในโมดูลเปล่าที่เปิดอยู่:

รหัส VBA: แทรกรูปภาพหลายรูปพร้อมชื่อไฟล์:

Sub PicWithCaption()
    Dim xFileDialog As FileDialog
    Dim xPath, xFile As Variant
    On Error Resume Next
    Set xFileDialog = Application.FileDialog(msoFileDialogFolderPicker)
    If xFileDialog.Show = -1 Then
        xPath = xFileDialog.SelectedItems.Item(1)
        If xPath <> "" Then
            xFile = Dir(xPath & "\*.*")
            Do While xFile <> ""
                If UCase(Right(xFile, 3)) = "PNG" Or _
                    UCase(Right(xFile, 3)) = "TIF" Or _
                    UCase(Right(xFile, 3)) = "JPG" Or _
                    UCase(Right(xFile, 3)) = "GIF" Or _
                    UCase(Right(xFile, 3)) = "BMP" Then
                    With Selection
                        .InlineShapes.AddPicture xPath & "\" & xFile, False, True
                        .InsertAfter vbCrLf
                        .MoveDown wdLine
                        .Text = xPath & "\" & xFile & Chr(10)
                        .MoveDown wdLine
                    End With
                End If
                xFile = Dir()
            Loop
        End If
    End If
End Sub

3. จากนั้นกด F5 คีย์เพื่อเรียกใช้รหัสนี้หน้าต่างเรียกดูจะปรากฏขึ้นโปรดเลือกโฟลเดอร์ที่มีภาพที่คุณต้องการแทรกดูภาพหน้าจอ:

doc แทรกภาพด้วยชื่อไฟล์ 1

4. จากนั้นคลิก OK รูปภาพทั้งหมดในโฟลเดอร์ที่เลือกได้ถูกแทรกลงในเอกสาร Word และเส้นทางของไฟล์และชื่อถูกแทรกเป็นคำอธิบายภาพดูภาพหน้าจอ:

doc แทรกภาพด้วยชื่อไฟล์ 2


แทรกรูปภาพหลายรูปพร้อมชื่อไฟล์โดยใช้ Kutools for Word

ถ้าคุณมี Kutools สำหรับ Wordเดียวกันกับที่ ภาพ คุณสามารถแทรกรูปภาพหลาย ๆ รูปได้อย่างรวดเร็วด้วยเส้นทางไฟล์และชื่อลงในเอกสาร Word ได้ทันที

Kutools สำหรับ Word : ด้วยโปรแกรมเสริม Word ที่มีประโยชน์มากกว่า 100 รายการให้ทดลองใช้ฟรีโดยไม่มีข้อ จำกัด ใน 60 วัน. 

หลังจากการติดตั้ง Kutools สำหรับ Wordโปรดทำตามนี้:

1. คลิก Kutools > ภาพดูภาพหน้าจอ:

doc แทรกภาพด้วยชื่อไฟล์ 3

2. ในการโผล่ออกมา แทรกรูปภาพ โปรดดำเนินการด้านล่าง:

  • (1. ) คลิก เพิ่มไฟล์ or เพิ่มโฟลเดอร์ ปุ่มเพื่อเลือกภาพที่คุณต้องการแทรก
  • (2. ) จากนั้นตรวจสอบ แทรกเส้นทางไฟล์ของแต่ละภาพเป็นคำบรรยาย ตัวเลือกที่ด้านล่างซ้ายของกล่องโต้ตอบ
  • (3. ) จากนั้นคลิก สิ่งที่ใส่เข้าไป ปุ่ม

doc แทรกภาพด้วยชื่อไฟล์ 4

3. หลังจากแทรกภาพแล้วคุณจะเห็นเส้นทางไฟล์ของแต่ละภาพและมีการแทรกชื่อเช่นกันดูภาพหน้าจอ:

doc แทรกภาพด้วยชื่อไฟล์ 5

คลิกเพื่อดาวน์โหลด Kutools for Word และทดลองใช้ฟรีทันที!


เครื่องมือเพิ่มประสิทธิภาพคำแนะนำ

 

Kutools For Word - คุณสมบัติขั้นสูงมากกว่า 100 รายการสำหรับ Word ประหยัดเวลา 50%

  • การดำเนินการที่ซับซ้อนและซ้ำ ๆ สามารถดำเนินการครั้งเดียวในไม่กี่วินาที
  • แทรกภาพหลาย ๆ โฟลเดอร์ลงในเอกสาร Word พร้อมกัน
  • ผสานและรวมไฟล์ Word หลาย ๆ ไฟล์ในโฟลเดอร์เข้าด้วยกันตามลำดับที่คุณต้องการ
  • แยกเอกสารปัจจุบันออกเป็นเอกสารแยกตามหัวข้อตัวแบ่งส่วนหรือเกณฑ์อื่น ๆ
  • แปลงไฟล์ระหว่าง Doc และ Docx, Docx และ PDF ชุดเครื่องมือสำหรับการแปลงและการเลือกทั่วไปและอื่น ๆ ...
จัดเรียงความคิดเห็นโดย
ความคิดเห็น (6)
ยังไม่มีการให้คะแนน เป็นคนแรกที่ให้คะแนน!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
buenas noches amigo me ha servido mucho su ข้อมูล sinembargo me surge una duda cree que es posible incertar imagenes en word de la misma manera pero dentro de celdas incertadas?
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
คุณจะเปลี่ยนรหัสบรรทัดใดและวิธีเขียนเส้นทางไฟล์ก่อนรูปภาพหรือที่รู้จักกันในชื่อคำอธิบายภาพ (ชื่อไฟล์) อยู่ด้านบนแทนที่จะเป็นด้านล่าง
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ด้วยการคัดเลือก
.Text = xFile
.InlineShapes.AddPicture xPath & "\" & xFile, False, True
.InsertAfter vbCrLf
.เลื่อนลง wdLine

จบด้วย
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ต้องเพิ่ม .MoveDown wdLine หลังจาก .Text=xFile
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ว้าวมันเยี่ยมมาก! ฉันต้องการชื่อไฟล์เท่านั้น ดังนั้นฉันจึงลบ "xPath & "\" &" ออกจากบรรทัด .Text และทำงานได้อย่างสมบูรณ์ ขอบคุณสำหรับสิ่งนี้!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
เกิดปัญหาเมื่อชื่อไฟล์ที่จะเพิ่มเกิน 10

pic1
pic10
pic11
pic12
pic2
pic3
pic4
รูปที่ 5...
มีความคิดเห็นยังไม่มีการโพสต์ที่นี่
แสดงความคิดเห็นของคุณ
โพสต์ในฐานะแขก
×
ให้คะแนนโพสต์นี้:
0   ตัวอักษร
สถานที่แนะนำ