דילוג לתוכן

תכנות

4.8k נושאים 39.2k פוסטים

קטגוריות משנה


  • 22 נושאים
    137 פוסטים
    katzK

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

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

    נתחיל...

    שלב א:

    ראשית בקובץ ה- Excel של רשימת הנמענים, הוסיפו לטבלת הנתונים ארבעה עמודות בשמות כדלהלן (חשוב שהשמות יהיו מדויקים ללא רווחים מיותרים - לתשומת ליבכם):

    DocFolderPath

    DocFileName

    PdfFolderPath

    PdfFileName

    שלב ב:
    צרו שתי תיקיות נפרדות, אחד לקבצי הפלט בפורמט docx, ואחד לקבצי הקלט בפורמט pdf, העתיקו את נתיב התיקייה של קבצי ה- docx והדביקו אותם עבור כל רשומה בשדה שיצרתם בשם DocFolderPath, לאחמ"כ חזרו על הפעולה והפעם העתיקו את נתיב התיקייה של קובצי ה- PDF והדביקו בשדה PdfFolderPath.
    בשדה DocFileName כתבו את השם של הקובץ עבור הרשומה - ניתן להשתמש בנוסחאות, כמו"כ בשדה PdfFileName כתבו את שם הקובץ כנ"ל.

    שלב ג:
    פתחו את קובץ ה- word והשלימו את פעולת המיזוג כרגיל, עצבו את המסמך כרצונכם.

    שלב ד:
    פתחו את לשונית מפתחים בקובץ ה- word פתחו את עורך הקוד הוסיפו מודל חדש מצו"ב צילום מסך:
    3eb2538f-9ab1-41eb-a1df-452212916da6-image.png

    הדביקו את הקוד הבא:

    Sub MailMergeToPdfBasic() ' Mark the start of the Subroutine (i.e. Macro) and name it "MailMergeToPdf" ' Macro created by Imnoss Ltd ' Please share freely while retaining attribution ' Last Updated 2021-05-03 Dim masterDoc As Document, singleDoc As Document, lastRecordNum As Long ' Create variables ("Post-it Notes") for later use Set masterDoc = ActiveDocument ' Identify the ActiveDocument (foremost doc when Macro run) as "masterDoc" masterDoc.MailMerge.DataSource.ActiveRecord = wdLastRecord ' jump to the last active record (active = ticked in edit recipients) lastRecordNum = masterDoc.MailMerge.DataSource.ActiveRecord ' retrieve the record number of the last active record so we know when to stop masterDoc.MailMerge.DataSource.ActiveRecord = wdFirstRecord ' jump to the first active record (active = ticked in edit recipients) Do While lastRecordNum > 0 ' create a loop, lastRecordNum is used to end the loop by setting to zero (see below) masterDoc.MailMerge.Destination = wdSendToNewDocument ' Identify that we are creating a word docx (and no e.g. an email) masterDoc.MailMerge.DataSource.FirstRecord = masterDoc.MailMerge.DataSource.ActiveRecord ' Limit the selection to just one document by setting the start ... masterDoc.MailMerge.DataSource.LastRecord = masterDoc.MailMerge.DataSource.ActiveRecord ' ... and end points to the active record masterDoc.MailMerge.Execute False ' run the MailMerge based on the above settings (i.e. for one record) Set singleDoc = ActiveDocument ' Identify the ActiveDocument (foremost doc after running the MailMerge) as "singleDoc" singleDoc.SaveAs2 _ FileName:=masterDoc.MailMerge.DataSource.DataFields("DocFolderPath").Value & Application.PathSeparator & _ masterDoc.MailMerge.DataSource.DataFields("DocFileName").Value & ".docx", _ FileFormat:=wdFormatXMLDocument ' Save "singleDoc" as a word docx with the details provided in the DocFolderPath and DocFileName fields in the MailMerge data singleDoc.ExportAsFixedFormat _ OutputFileName:=masterDoc.MailMerge.DataSource.DataFields("PdfFolderPath").Value & Application.PathSeparator & _ masterDoc.MailMerge.DataSource.DataFields("PdfFileName").Value & ".pdf", _ ExportFormat:=wdExportFormatPDF ' Export "singleDoc" as a PDF with the details provided in the PdfFolderPath and PdfFileName fields in the MailMerge data singleDoc.Close False ' Close "singleDoc", the variable "singleDoc" can now be used for the next record when created If masterDoc.MailMerge.DataSource.ActiveRecord >= lastRecordNum Then ' test if we have just created a document for the last record lastRecordNum = 0 ' if so we set lastRecordNum to zero to indicate that the loop should end Else masterDoc.MailMerge.DataSource.ActiveRecord = wdNextRecord ' otherwise go to the next active record End If Loop ' loop back to the Do start End Sub ' Mark the end of the Subroutine

    שלב ה וסיום:
    סגרו את עורך הקוד.
    לחצו על כפתור פקודות מאקרו שבכרטיסיית מפתחים, בחרו את המאקרו בשם MailMergeToPdfBasic ולחצו הפעל מצו"ב צילום מסך
    3890ce69-c0e9-4f30-89ce-3e97b7de750b-image.png

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

    מקור

  • ארכיון האתר הקודם והחביב קוד-613

    1k נושאים
    10k פוסטים
    chagoldC

    @אבי אמר בשוב, צילומי הצ'קים בבנקים:

    התעסקתי לאחרונה עם סורקים של חברת MAGTEK, הם ידידותיים ונוחים להתממשקות, אבל כמדומני שהבנקים בישראל מוכנים לקבל סריקות רק מסורקים של חברת PANINI

    @אבי איך יוצרים אתך קשר?

  • 31 נושאים
    133 פוסטים
    Y.Excel.AccessY

    יש כמה נוסחאות חדשות שממש משנות את כללי המשחק בגוגל שיטס:

    CHOOSECOLS לבחירת עמודות ממערך CHOOSEROWS לבחירת שורות ממערך WRAPROWS להמרת מערך חד ממדי לרב ממדי - פריסה לשורות WRAPCOLS כנ"ל - פריסה לעמודות HSTACK ו VSTACK - הפעולה של {} אך בלי סוגריים - לא משמעותי לכאורה

    והעולה על כולנה, סוף סוף:

    LET - ליצירת משתנים.

    כל אלו מצטרפות לפונקציות שנוספו מוקדם יותר -
    https://blog.sheetgo.com/google-sheets-formulas/10-new-google-sheets-functions/

    וכלול בתוכם - LAMBDA, MAP (חלקי - לא עובד לקנן ב MAP ודומיו מערכים אחרים), פונקציות בעלות שם, וכו' ע"ש בקישור.

  • בעיה בשימוש עם הספריה Random ב PHP

    24
    0 הצבעות
    24 פוסטים
    367 צפיות
    ש

    @dovid ברוך ה' הכל הסתדר, הצלחתי להחיות את השרת, הצלחתי לכוון אותו ל PHP 8.2, וברוך ה' עכשיו הספרייה הנ"ל אכן עובדת לי!
    תודה רבה רבה ל @dovid שעזר לי כ"כ הרבה וכן ל @ivrtikshoret ול @yossiz !!

  • שיחקתי עם PHP בשרת שלי ועכשיו נהיה לי Error code 502, מה עושים???

    11
    1 הצבעות
    11 פוסטים
    197 צפיות
    ש

    @dovid צדקת, זה לא נשמר, עכשיו שמרתי שוב,

    וזה עובד! תודה רבה רבה לך על העזרה פה ובכל השאלות שלי באופן מהיר, נדיב, ומפורט!!! אין מילים!
  • 0 הצבעות
    14 פוסטים
    228 צפיות
    ש

    @צדיק-תמים זה כאילו במקום לכתוב את הפקודה בשרת ב PHP ולהריץ כל זמן מוגדר אני מריץ את זה שם?

  • 0 הצבעות
    9 פוסטים
    143 צפיות
    chagoldC

    @ששא כדי שתוכל להריץ את פקודות הsql עם הphp), אתה חייב לתת לPHP את ה'נתונים' בשביל להתחבר למסד הנתונים.

    הדרכה איך עושים את זה יש כאן
    https://www.w3schools.com/php/php_mysql_intro.asp
    תעבור אחד לאחד מתוך הרשימה הזאת שבצד שמאל להבין את הפרנציפ

    image.png

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

  • ייבוא נתונים מהרשת לאקסס

    5
    0 הצבעות
    5 פוסטים
    183 צפיות
    A

    @dovid כתב בייבוא נתונים מהרשת לאקסס:

    @avi-rz רשת/מירשתת = web, אינטרנט = internet.

    התכוונתי, שהמילה "רשת" היא קצת רחבה,
    ואם יהיה קצת יותר פירוט למה הכוונה התשובות יוכלו להיות יעילות יותר.

    באופן כללי גישה ל API, אפשרית עם קוד VBA
    במידה ואתה מקבל JSON יש מודול שמטפל בזה, ומכניס לטבלה.

  • הסתעפות מייצור אינדקס - עזרה בקידוד C#

    10
    0 הצבעות
    10 פוסטים
    226 צפיות
    ד

    @dovid כתב בהסתעפות מייצור אינדקס - עזרה בקידוד C#:

    אפשר לפתח שם תוכנה שלמה, אבל זה מומלץ

    התכוונת לכתוב "אבל זה לא מומלץ"?

  • שיתוף - קבלת שגיאות טייפים על JSDoc (בלי לעבור לTypeScript!)

    3
    5 הצבעות
    3 פוסטים
    145 צפיות
    צדיק תמיםצ

    כאנקדוטה יש לציין שהפריימוורק Svelte עובר להשתמש בJSDoc לצורך אכיפת סוגים במקום TS רגיל, כדי להיפטר מהצורך בקומפילציה (אחרי שעשו את זה ב-sveltekit כבר לפני שנה+)
    https://news.ycombinator.com/item?id=35892250
    https://github.com/sveltejs/svelte/pull/8569

  • בעיה עם תוכנה שחוסמת הקלדה

    6
    1 הצבעות
    6 פוסטים
    238 צפיות
    אבייא

    @חגי כתב בבעיה עם תוכנה שחוסמת הקלדה:

    ניסית להשתמש ב-SendMessage עם WM_SETTEXT או WM_KEYDOWN?
    זה הכי קרוב שאני יכול לדמיין שתוכנה יכולה לדמות מקלדת.

    אני אבדוק את זה, אבל זה לא אמור להיות SendKeys הכי קרוב?

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

    ניסיתי כך, ולא עובד, עשיתי נכון?

    Private Const WM_CLOSE As Integer = &H10 Private Const WM_SETTEXT As Integer = &HC <DllImport("user32.dll", CharSet:=CharSet.Auto)> Public Shared Function SendMessage(ByVal hWnd As IntPtr, ByVal Msg As Integer, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As IntPtr End Function Private Sub Timer13_Tick(sender As Object, e As EventArgs) Handles Timer13.Tick Dim hwnd As IntPtr Dim message As String hwnd = Me.Handle message = "1234" SendMessage(hwnd, WM_SETTEXT, IntPtr.Zero, Marshal.StringToBSTR(message)) End Sub
  • אימון CHATGPT על פסקי דין וחומר משפטי-כיצד?

    24
    0 הצבעות
    24 פוסטים
    625 צפיות
    אבייא

    @אף-אחד-3 אמרתי בוא נראה את בארד, כששאלתי אותו על יוסלה באנגלית הוא החליט שהוא אחד מיזמי ההייטק הישראליים הגדולים מייסד wix וכו'
    https://g.co/bard/share/9482f960eff4

    אבל כששאלתי אותו בעברית זה היה התשובה, שימו לב לטעות "אפיה" במקום "איפה",
    https://g.co/bard/share/bfd9f8c3349a
    (אגב, לא יכולתי שלא לשים לניחוח האנטישמי מהמשפט "הוא הוכיח שאפשר להיות ילד מוצלח גם אם אתה לומד בבית ספר דתי"..

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

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

  • נושא זה נמחק!

    1
    0 הצבעות
    1 פוסטים
    3 צפיות
    אין תגובות
  • 0 הצבעות
    4 פוסטים
    115 צפיות
    dovidD

    @צדיק-תמים יש לציין שבדוגמה שהבאת רואים שזה תופס גם את המקף:
    https://regex101.com/r/QF7hf3/1

    עריכה: כעת אני רואה שזה מה שהעונה השני בSO מעיר,
    וממנו אני מבין שזה לא המקף של המקלדת אלא טעם מטעמי המקרא (הגיוני לגמרי, זה גם עומד למעלה).
    אז כפי שהוא מציע שם יש לפני כן להחליף את המקף הזה לרווח.

  • המרת אודיו לבינארי ע"י sox

    4
    0 הצבעות
    4 פוסטים
    133 צפיות
    sholomS

    אתה צודק, גם mp3 הוא בעצם מידע בינארי
    עיקר השאלה הוא איך להמיר קובץ אודיו מפורמט אחד לפורמט שני על ידי תוכנת sox במקרה שיש רווחים (אז התשובה הוא מרכאות)
    בנוגע לעברית, טען לי היום מתכנת מומחה שאין אפשרות כזו, מכיון ש SOX משתמש בפונקציות של ווינדוס שאין תומכים עברית

  • פניה אסינכרונית והמסתעף Angular TS

    22
    0 הצבעות
    22 פוסטים
    529 צפיות
    dovidD

    יש לציין שלא רק ההצבה שלפני המילה await נכנסת לבלוק של then, אלא כל הקוד שאחריה עד סוף הפונקציה.
    אם יש כמה פעמים await זה כמו then אחד בתוך השני, או כמו קלאבקים מקוננים (שנקראו בזמנו גיהנום קלאבקים).

  • 0 הצבעות
    17 פוסטים
    426 צפיות
    פ

    @pcinfogmach כתב בשאלה: מה הסוד מאחורי מנוע החיפוש של בר אילן? (מבחינת תיכנות):

    זה שאלה מאוד מעשית

    (הסר דאגה. להבנתי @dovid לא התכוון לאסור עליך לדבר על הנושא הרעיוני, אלא ציין שכאשר תהיה שאלה מעשית, תפתח עליה נושא חדש ולא תמשיך בשרשור הזה.)

  • פעולות בגוגל כרום דרך VBA (לדוגמא, שליחת הודעת וואצאפ)

    1
    0 הצבעות
    1 פוסטים
    67 צפיות
    אין תגובות
  • אני לא מצליח לעשות ניפוי באגים ב VScode

    4
    0 הצבעות
    4 פוסטים
    94 צפיות
    dovidD

    @ששא לPHP זה אכן לא עובד מובנה,
    יש תוסף של xDebug,
    https://marketplace.visualstudio.com/items?itemName=xdebug.php-debug
    וכפי שמופיע שם בדף צריך להגדיר אותו.
    תעשה צעד אחר צעד מה שכתוב שמה במקטע Installation,
    ם יש צעד שאתה לא מבין/לא מצליח, שאל עליו.

  • תגובה: API לשליחת טופס מקוון באתר gov.il

    7
    0 הצבעות
    7 פוסטים
    155 צפיות
    ש

    @אביי מה לא מובן?
    שאלתי מה צריך להיות כתוב בפקס? סתם קובץ וורד מוקלד איך שרוצים?

  • מערכת מבוססת מייל לשליחת הודעות קוליות

    6
    0 הצבעות
    6 פוסטים
    230 צפיות
    מ

    למה סקייפ הפך למשהו שאף אחד כמעט לא מכיר ולא משתמש?

  • משהו מוזר ב Compare-Object | Powershall

    4
    0 הצבעות
    4 פוסטים
    102 צפיות
    yossizY

    @אוריי על בעיה זו עניתי פה

    א) השדה הוא Hash ולא MD5
    ב) תשתמש בדגל -PassThru

  • איך להשתמש ב Compare-Object Powershall כאשר אחד מהפרמטרים הוא null

    7
    0 הצבעות
    7 פוסטים
    136 צפיות
    אורייא

    @yossiz לאחר בדיקה מחודשת מול תיקייה ריקה (מסתבר שמשום מה בתיקייה הקודמת שבדקתי היא לא הייתה ריקה משום מה)
    השורה הזו עדיין מחזירה שגיאה של null

    $changes = Compare-Object (Coalesce $folder1Items @()) (Coalesce $folder2Items @()) -Property Name,Path -IncludeEqual

    לאחר בדיקות הוספתי בערך להחלפה "0"
    כך

    $changes = Compare-Object (Coalesce $folder1Items @("0")) (Coalesce $folder2Items @("0")) -Property Name,Path -IncludeEqual

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

בא תתחבר לדף היומי!