להמיר וורד ל pdf בקלות תמיד הסתבכתי, בעיקר שזה מגיע לכמות של קבצים שאני צריך להמיר, כל אחד לפתוח קובץ- יצא- צור PDF מסובך..
או שהגעתי לכל מיני אתרים למיניהם שחלקם מביאים תוכנות משונות (לא בא לי להעמיס עוד על המחשב המסכן שלי..) וחלקם אתה צריך להעלות את הקובץ ולהוריד.. וחלקם מבקשים מנוי לכמות מרובת קבצים.
עד שמצאתי את השיטה הזאת שמאד הקלה עלי, שאפשר בקלות לבחור קבצים ולהמיר בלחיצה בלי להסתבך עם תוכנות שונות ואתרים משונים..
שלב א. כתיבת הפקודה
פותחים את "פנקס הרשימות" ומעתיקים את זה לפנקס - (ללא השורה האחרונה, שורה 17)
למי שלא רוצה להסתבך בכתיבת הסקריפט אפשר להוריד מפה -
script.vbs
ולקפוץ לשלב ג.
'Convert .doc or .docx to .pdf files via Send To menu
Set fso = CreateObject("Scripting.FileSystemObject")
For i= 0 To WScript.Arguments.Count -1
docPath = WScript.Arguments(i)
docPath = fso.GetAbsolutePathName(docPath)
If LCase(Right(docPath, 4)) = ".doc" Or LCase(Right(docPath, 5)) = ".docx" Then
Set objWord = CreateObject("Word.Application")
pdfPath = fso.GetParentFolderName(docPath) & "\" & _
fso.GetBaseName(docpath) & ".pdf"
objWord.Visible = False
Set objDoc = objWord.documents.open(docPath)
objDoc.saveas pdfPath, 17
objDoc.Close
objWord.Quit
End If
Next
שלב ב. שמירה כפקודה
קובץ- שמור בשם ושומרים במקום שאתם רוצים (עדיף בתקייה קבועה) בסיומת של vbs .
לדוגמא אקרא לקובץ כך – script.vbs
ושמור, כמובן.
שלב ג. הוספת פקודה
עושים מהקובץ קיצור דרך (לחיצה ימנית- צור קיצור דרך),
נכנסים למאפיינים של הקיצור דרך (לחיצה ימנית- מאפיניים),
ומוסיפים לשורת ה'יעד' wscript.exe ולאחריו רווח, וכמובן- שמור.
שלב ד. הוספת ל 'שלח אל'.
מעבירים את הקיצור דרך אל הנתיב הזה:
C:\Users\%username%\AppData\Roaming\Microsoft\Windows\SendTo
(כמובן שה %username%תלוי כל אחד לפי שם המשתמש.)
אפשר כמובן להחליף לו את השם,
לדוגמא 'המרת וורד לpdf '
שלב ה. ממירים!!
בוחרים בקבצים שרוצים להמיר, לחיצה ימנית- שלח אל- המרת וורד ל PDF
וזהו!! ברקע מיד תראו קבצי PDF חדשים בתקיה.
 { const baseUrl = "https://www.google.co.il/search?q=site:mitmachim.top"; const m = location.pathname.match(/^\/(topic|category)\/(\d+)/); const type = m ? m[1] : null; const id = m ? m[2] : null; let searchInput; function search(path = "") { const query = searchInput.value.trim(); if (query) { window.open(`${baseUrl}${path}%20${encodeURIComponent(query)}`, "_blank"); } } let buttons = {}; buttons.searchAll = { id: "bb-search-all", label: `חיפוש ${type ? "בכל הפורום" : ""}`, className: type ? "btn-secondary" : "btn-primary", callback: () => search(), }; if (type === "topic") { buttons.searchTopic = { label: "חיפוש בנושא זה", className: "btn-primary", callback: () => search(`/topic/${id}`), }; } else if (type === "category") { buttons.searchCategory = { label: "חיפוש בקטגוריה זו", className: "btn-primary", callback: () => search(`/category/${id}`), }; } buttons.cancel = { label: "ביטול", className: "btn-default", "data-bs-dismiss": "modal" }; const dialog = bootbox.dialog({ title: '<div style="text-align:center;"><img src="/assets/uploads/files/1625950269825-mt-google.png" width="400" alt="חיפוש בגוגל"></div>', message: '<input id="bb-inp" class="bootbox-input bootbox-input-text form-control" placeholder="הקלידו כדי לחפש בגוגל" autocomplete="off"/>', buttons, backdrop: true, show: true, onEscape: true }); dialog.on("shown.bs.modal", function () { searchInput = document.getElementById("bb-inp"); if (searchInput) { searchInput.focus(); searchInput.addEventListener("keydown", function (e) { if (e.key === "Enter") { e.preventDefault(); const query = this.value.trim(); if (query) { search(); dialog.modal("hide"); } } else if (e.key === "Escape") { e.preventDefault(); dialog.modal("hide"); } }); } const searchAllButton = document.getElementById("bb-search-all"); if (searchAllButton) { searchAllButton.title = "לחצו על אנטר כדי לחפש"; } }); })(); void 0;){kind=link}