ליצור קובץ שמע של תקליט רובוט

[פלוס]

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

[פלוס]

@פלוס זאת אומרת, שגם במחשב זה יהיה כקובץ אם פי 3, וכקובץ שמע רגיל - עם מלל של רובוט?

[איפכא מסתברא]

@פלוס
כמו שאתה מגדיר תמליל לתפריט.

[פלוס]

הבעיה היא, שא"א אח"כ להוריד את זה למחשב משום מה.

[פישל]

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

[איפכא מסתברא]

תוכל לעשות הקלטה לקובץ בטלפון ואז זה יהיה לך כקובץ שמע.

[פלוס]

@פישל כתב בליצור קובץ שמע של תקליט רובוט:

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

מה הקישור?

[פלוס]

@פלוס ולמה א"א להוריד? א"א לפתח?

[חרב פיפיות]

@פלוס
@פישל תוכל לאיית לי את המייל? או להביא לי את התוכנה, או להביא לי קישור? סקרנת אותי. תודה!!

[פלוס]

@חרב-פיפיות זה תוכנה שעולה כסף?

[פלוס]

@פישל אני גאה, שאני זה שעיגל לך את המוניטין ל400!!
מזל טוב!!!
באמת מגיע לך!

[פישל]

@חרב-פיפיות זה תוכנה בתשלום, עוד מעט @אביי יראה את התיוג ויעלה פרטים ליצירת קשר.
עריכה: בעצם אעלה לך את המייל שמופיע בתוכנה.
בבקשה cs@abaye.ml

[א גוטן]

@פישל @אביי האם אני יכול להדביק בתוכנה 100 שורות מאקסל, ויעשה לי מכל שורה קובץ נפרד?

[פישל]

@א-גוטן לא, אתה יכול ליצור 100 מסמכי טקסט והוא יודע ליצור מהם 100 קבצי שמע.

[eseq]

אתה יכול לעשות VBA באקסל שישמור כל שורה בקובץ טקסט נפרד ואח"כ לעשות מזה קובץ שמע

[פישל]

@eseq כתב בליצור קובץ שמע של תקליט רובוט:

VBA

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

[פלוס]

@eseq כתב בליצור קובץ שמע של תקליט רובוט:

אתה יכול לעשות VBA באקסל שישמור כל שורה בקובץ טקסט נפרד ואח"כ לעשות מזה קובץ שמע

איך?

[אביי ורבא]

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

[פישל]

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

[eseq]

בקאלום A תכניס את שם הקובץ ובקאלום B התוכן של הקובץ

Sub Export_Files()
    Dim sExportFolder, sFN
    Dim rArticleName As Range
    Dim rDisclaimer As Range
    Dim oSh As Worksheet
    Dim oFS As Object
    Dim oTxt As Object

    'sExportFolder = path to the folder you want to export to
    'oSh = The sheet where your data is stored
    sExportFolder = "C:\Disclaimers"
    Set oSh = Sheet1

    Set oFS = CreateObject("Scripting.Filesystemobject")

    For Each rArticleName In oSh.UsedRange.Columns("A").Cells
        Set rDisclaimer = rArticleName.Offset(, 1)

        'Add .txt to the article name as a file name
        sFN = rArticleName.Value & ".txt"
        Set oTxt = oFS.OpenTextFile(sExportFolder & "\" & sFN, 2, True)
        oTxt.Write rDisclaimer.Value
        oTxt.Close
    Next
End Sub