בקשת מידע | המרת קבצי וורד מרובים לPDF

[975]

@יאיר-הבהיר
עיין פה תחת כותרת הדפסה נראה שיש על זה כמה דברים או לחלופין אפשרויות להדפסה איכותית יותר

@יאיר-הבהיר כתב בבקשת מידע | המרת קבצי וורד מרובים לPDF:

זה לא מיועד רק לסרטונים, שמע ותמונות? כי איך שאני רואה אין שם אפשרות לקבצים בכלל.

@a.y.f. התכוון לזה - אא"כ יש לך גרסה ישנה מאוד

אבל לא בהכרח שיש בזה תועלת לפי מה ש @יאיר-הבהיר כותב שמשתבש לו בתוכנות שונות

[יאיר הבהיר]

@975 כתב בבקשת מידע | המרת קבצי וורד מרובים לPDF:

עיין פה תחת כותרת הדפסה נראה שיש על זה כמה דברים או לחלופין אפשרויות להדפסה איכותית יותר

הייתי שם כבר, ולא מצאתי...

Spoiler

גם מה שהבאת לפני העריכה של הפוסט לא נראה לי עוזר, כי לא מצאתי שם אופציה להרבה קבצים יחד

@975 כתב בבקשת מידע | המרת קבצי וורד מרובים לPDF:

@a.y.f. התכוון לזה

ואין בעיה להוריד את זה? כי יש כל מיני שמועות על וירוסים למיניהם, לא?

[975]

@יאיר-הבהיר
אולי תנסה את התוכנה הזאת

ניסיתי כמה קבצים שיוצאים משובש עם אדובי ועם זה יצא מצויין

ואולי תנסה עם הכלי הזה

הייתי שם

תנסה שוב כי מצאתי עוד קצת ונראה לי שיש בהם עוד כמה פתרונות

ואין בעיה להוריד את זה

לשיטתו שכתב את זה, עניתי

[יאיר הבהיר]

@975 וואלה, תודה, אבל עדיין לא מצאתי. [וגם בתוכנה ההיא זה לא יוצא טוב כמו במדפסת מייקרוסופט].

אם מישהו פה יוכל לבנות לזה סקריפט [שיפתח את כל הקבצים, ידפיס אותם דרך מדפסת מייקרוסופט, ויסגור את וורד] - יהיה יעיל ממש.
כי ג'יפיטי וג'מיני ניסו בכוחות משותפים ולא הצליחו כל כך...

[יוסי מחשבים]

@יאיר-הבהיר כתב בבקשת מידע | המרת קבצי וורד מרובים לPDF:

אם מישהו פה יוכל לבנות לזה סקריפט [שיפתח את כל הקבצים, ידפיס אותם דרך מדפסת מייקרוסופט, ויסגור את וורד] - יהיה יעיל ממש.

תעתיק את הקוד הבא למסוף:

# נתיב לתיקייה שבה נמצאים הקבצים
$folderPath = "C:\ABC"

# מוצא את כל קבצי ה־Word בתיקייה
$files = Get-ChildItem -Path $folderPath -Filter *.docx

# יוצר אובייקט של Word
$word = New-Object -ComObject Word.Application
$word.Visible = $false

foreach ($file in $files) {
    $doc = $word.Documents.Open($file.FullName)

    # מייצר נתיב חדש עם סיומת PDF
    $pdfPath = [System.IO.Path]::ChangeExtension($file.FullName, "pdf")

    # שמירה כ־PDF
    $doc.SaveAs([ref] $pdfPath, [ref] 17)  # 17 = פורמט PDF
    $doc.Close()
}

$word.Quit()

במקום C:\ABC תכניס את הנתיב בו קבצי הוורד נמצאים.
באותה תיקייה יווצרו קבצי PDF
כעיקרון זה כמו פתיחת קובץ וורד ובחירה בשמירה כ-PDF
הרבה פעמים זה אפילו יותר מוצלח.
(יתכן ומוגבל ל-30 קבצים)
אם אתה מתעקש דווקא על המדפסת הזאת GPT טוען שלא תוכל לדלג על חלון השמירה לכל קובץ.
זאת אומרת שהסקריפט ימיר ל-PDF אבל בסוף יתן לך רצף של חלונות "שמירה בשם", זה הקוד:

$printerName = "Microsoft Print to PDF"
$files = "C:\ABC\1.docx", "C:\ABC\2.docx", "C:\ABC\3.docx", "C:\ABC\4.docx"

$word = New-Object -ComObject Word.Application
$word.Visible = $false

foreach ($file in $files) {
    $doc = $word.Documents.Open($file)
    $pdfPath = [System.IO.Path]::ChangeExtension($file, "pdf")

    # מגדיר את המדפסת
    $word.ActivePrinter = $printerName

    # הדפסה למדפסת PDF
    $doc.PrintOut()
    Start-Sleep -Seconds 2  # השהייה קטנה כדי למנוע התנגשויות

    $doc.Close()
}

$word.Quit()

בשורה השנייה תכניס את הקבצים+הנתיב ואח"כ תשמור בשם לפי הסדר שהכנסת.
קרדיט: GPT

[יאיר הבהיר]

@יוסי-מחשבים איך בדיוק לעשות את זה? כי כשאני מדביק את זה במסוף זה מתחיל קטע קוד חדש בכל שורה חדשה. [לכאורה בגלל שכל אנטר גורם לפתיחה של סידרה חדשה של קוד, לא?].

איך מתגברים על זה?

@יוסי-מחשבים כתב בבקשת מידע | המרת קבצי וורד מרובים לPDF:

אם אתה מתעקש דווקא על המדפסת הזאת GPT טוען שלא תוכל לדלג על חלון השמירה לכל קובץ.

זהו, שמושא החלומות מבחינתי זה לדלג על החלונית הזו, ודוקא דרך המדפסת של מייקרוסופט...
אולי יהיה אפשר להוסיף פקודה שתעתיק לחלון שנפתח את שם הקובץ הנוכחי?

[לשכת הרב]

פוסט זה נמחק!

[975]

פוסט זה נמחק!

[יוסי מחשבים]

@יאיר-הבהיר כתב בבקשת מידע | המרת קבצי וורד מרובים לPDF:

איך בדיוק לעשות את זה?

1. להעתיק את כל הקוד.
2. לפתוח את המסוף ולהקליק ימני בתוך המסוף.
3. ללחוץ על "Paste anyway".

[יאיר הבהיר]

@יוסי-מחשבים זה הפלט -

C:\Users\2>$printerName = "Microsoft Print to PDF"
'$printerName' is not recognized as an internal or external command,
operable program or batch file.

C:\Users\2>$files = "C:\Users\2\Desktop\חבורות"
'$files' is not recognized as an internal or external command,
operable program or batch file.

C:\Users\2>
C:\Users\2>$word = New-Object -ComObject Word.Application
'$word' is not recognized as an internal or external command,
operable program or batch file.

C:\Users\2>$word.Visible = $false
'$word.Visible' is not recognized as an internal or external command,
operable program or batch file.

C:\Users\2>
C:\Users\2>foreach ($file in $files) {
'foreach' is not recognized as an internal or external command,
operable program or batch file.

C:\Users\2>    $doc = $word.Documents.Open($file)
'$doc' is not recognized as an internal or external command,
operable program or batch file.

C:\Users\2>    $pdfPath = [System.IO.Path]::ChangeExtension($file, "pdf")
'$pdfPath' is not recognized as an internal or external command,
operable program or batch file.

C:\Users\2>
C:\Users\2>    # מגדיר את המדפסת
'#' is not recognized as an internal or external command,
operable program or batch file.

C:\Users\2>    $word.ActivePrinter = $printerName
'$word.ActivePrinter' is not recognized as an internal or external command,
operable program or batch file.

C:\Users\2>
C:\Users\2>    # הדפסה למדפסת PDF
'#' is not recognized as an internal or external command,
operable program or batch file.

C:\Users\2>    $doc.PrintOut()
'$doc.PrintOut' is not recognized as an internal or external command,
operable program or batch file.

C:\Users\2>    Start-Sleep -Seconds 2  # השהייה קטנה כדי למנוע התנגשויות
'Start-Sleep' is not recognized as an internal or external command,
operable program or batch file.

C:\Users\2>
C:\Users\2>    $doc.Close()
'$doc.Close' is not recognized as an internal or external command,
operable program or batch file.

C:\Users\2>}
'}' is not recognized as an internal or external command,
operable program or batch file.

C:\Users\2>
C:\Users\2>$word.Quit()

לכאורה לא תקין, בגלל שבכל אנטר הוא מתחיל את הקוד מחדש. אני טועה?