จะแทรกเส้นทางไฟล์และชื่อไฟล์ที่ไม่มีนามสกุลในเอกสาร Word ได้อย่างไร?

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

แทรกเส้นทางไฟล์และชื่อหรือชื่อไฟล์ที่ไม่มีนามสกุลโดยใช้รหัส VBA

แทรกเส้นทางไฟล์และชื่อหรือชื่อไฟล์ที่ไม่มีนามสกุลโดยใช้รหัส VBA

หากต้องการแทรกชื่อไฟล์ที่ไม่มีนามสกุลในเอกสาร Word โปรดใช้รหัส VBA ต่อไปนี้:

1. วางเคอร์เซอร์ไว้ในตำแหน่งที่คุณต้องการแทรกเส้นทางไฟล์และชื่อที่ไม่มีนามสกุล

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

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

รหัส VBA: แทรกเส้นทางไฟล์และชื่อโดยไม่มีนามสกุล:

Sub InsertFileNameAndPath()
    Dim xPathName As String
    Dim xDotPos As Integer
    With Application.ActiveDocument
        If Len(.Path) = 0 Then .Save
        xDotPos = VBA.InStrRev(.FullName, ".")
        xPathName = VBA.Left(.FullName, xDotPos - 1)
    End With
    Application.Selection.TypeText xPathName
End Sub

4. จากนั้นกด F5 คีย์เพื่อเรียกใช้รหัสนี้และเส้นทางไฟล์และชื่อถูกแทรกลงในเอกสารโดยไม่มีนามสกุลดูภาพหน้าจอ:

doc ใส่ชื่อไฟล์ที่ไม่มีนามสกุล 1

หมายเหตุ: หากคุณต้องการเพียงแค่แทรกชื่อไฟล์ที่ไม่มีนามสกุลลงในเอกสารคุณควรใช้รหัสนี้:

รหัส VBA: ใส่ชื่อไฟล์โดยไม่มีนามสกุลเท่านั้น:

Sub InsertFileNameOnly()
    Dim xPathName As String
    Dim xDotPos As Integer
    With Application.ActiveDocument
        If Len(.Path) = 0 Then .Save
        xDotPos = VBA.InStrRev(.Name, ".")
        xPathName = VBA.Left(.Name, xDotPos - 1)
    End With
    Application.Selection.TypeText xPathName
End Sub