ماكرو بVBA لاظهار مسار المستند

جرب استخدام الكود التالي

Sub MacroName()
'
' MacroName Macro
' Shows the Path of the active document
'
Selection.Text = ActiveDocument.Path
Selection.Font.name = "Tahoma"
Selection.Font.Size = 15
End Sub

صحيح يا أخي إنك مبرمج خطير وشاطر وتمنياتي لك بالتوفيق دائما

الكود الذي كتبته اشتغل ولكن أخي الكريم ما هو الكود اللازم لوضع مسار الصفحة في أسفلها

وشكرا جزيلا لك

أخوك /سلطان

هل تقصد وضعه في شريط الحالة في أسفل الصفحة أم ماذا ؟

أقصد الكود الذي يمكنني من وضع مسار الصفحة مكتوبا تلقائيا على أسفل الصفحة كالهوامش مثلا

وتحياتي لك

أتمنى ان يكون هذا ما تريد ويشرفني مساعدتك ان لم يكن

    With ActiveDocument.Range(Start:=ActiveDocument.Content.Start, End:= _
        ActiveDocument.Content.End)

        With .FootnoteOptions
            .Location = wdBottomOfPage
            .NumberingRule = wdRestartContinuous
            .StartingNumber = 1
            .NumberStyle = wdNoteNumberStyleArabic
        End With
        .Footnotes.Add Range:=Selection.Range, Reference:=""
    End With
    Selection.TypeText (ActiveDocument.Path)

كثر الله من أمثالك وأشكرك على سرعة استجابتك والكود الذي كتبته هو بالضبط ما أريد ...ومرة أخرى أشكرك على مساعدتك لي

وكل عام وأنتم بخير

والسلام عليكم ورحمة الله وبركاته

سلطان

ويمكن استخدام رأس وتذييل الصفحة..

Sub GetPath()
' Shows the Path of the active document
  ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter
  Selection.Font.Name = "Tahoma"
  Selection.Font.Size = 15
  Selection.TypeText Text:=ActiveDocument.Path
  ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
End Sub