Sub SaveAsPDF_SameFolder()
    Dim doc As Document
    Dim pdfPath As String

    ' הגדרת המסמך הפעיל
    Set doc = ActiveDocument

    ' בדיקה: אם המסמך לא נשמר עדיין (אין נתיב), נציג הודעה
    If doc.Path = "" Then
        MsgBox "עליך לשמור תחילה את הקובץ לפני שמירתו כ-PDF.", vbExclamation, "שמירה נדרשת"
        Exit Sub
    End If

    ' יצירת נתיב לשמירת הקובץ כ-PDF באותה תיקייה שבה הקובץ נמצא
    pdfPath = doc.Path & "\" & Left(doc.Name, InStrRev(doc.Name, ".") - 1) & ".pdf"

    ' שמירת המסמך כ-PDF (ללא פתיחת חלון שמירה)
    doc.ExportAsFixedFormat OutputFileName:=pdfPath, ExportFormat:=wdExportFormatPDF

    ' הודעה למשתמש: הקובץ נשמר בהצלחה
    MsgBox "הקובץ נשמר כ-PDF בתיקייה:" & vbCrLf & pdfPath, vbInformation, "שמירה הושלמה"
End Sub