كيف يمكن إدراج مسار الملف واسم الملف دون امتداده في مستند Word؟

عادةً، يمكننا إدراج اسم الملف أو مسار الملف مع الاسم في مستند Word باستخدام حقل **Filename**، لكن الاسم المُدرج بهذه الطريقة يتضمّن امتداد الملف (مثل .docx أو .doc). فكيف يمكنك إدراج اسم الملف أو مسار الملف مع الاسم دون تضمين الامتداد؟

إدراج مسار الملف والاسم أو اسم الملف دون الامتداد باستخدام كود VBA

---

إدراج مسار الملف والاسم أو اسم الملف دون الامتداد باستخدام كود VBA

لإدراج اسم الملف دون الامتداد في مستند Word، يُرجى تطبيق كود VBA التالي:

1. ضع المؤشر في المكان الذي ترغب في إدراج مسار الملف واسمه فيه دون الامتداد.

2. بعد ذلك، اضغط مع الاستمرار على مفاتيحALT + F11 لفتح نافذةMicrosoft Visual Basic for Applications.

3. ثم انقر علىInsert > Module، وانسخ والصق الكود أدناه في الوحدة النمطية الفارغة المفتوحة.

كود 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 لتشغيل هذا الكود، وسيتم إدراج مسار الملف واسمه في المستند دون الامتداد. انظر لقطة الشاشة:

ملاحظة: إذا كنت ترغب فقط في إدراج اسم الملف دون الامتداد في المستند، فيجب عليك تطبيق هذا الكود:

كود 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

---