ליצור קובץ שמע של תקליט רובוט
-
איך ניתן לכתוב במחשב הודעות טקסט, ולהגדיר אותם במערכת כקובץ שמע, ואז להוריד את זה למחשב?
-
@פלוס זאת אומרת, שגם במחשב זה יהיה כקובץ אם פי 3, וכקובץ שמע רגיל - עם מלל של רובוט?
-
@פלוס
כמו שאתה מגדיר תמליל לתפריט. -
הבעיה היא, שא"א אח"כ להוריד את זה למחשב משום מה.
-
@פלוס במערכת אין אפשרות להגדיר את זה כקובץ שמע.
אתה יכול להעלות למערכת קובץ שמע או קובץ TTS אך הוא לא מומר לקובץ שמע בהורדתו למחשב
אם אתה רוצה לקריין בצורה מקצועית בקול רובוטי אוטומטי יש לך את התוכנה המוצלחת שבנה @אביי שאני משתמש בה כבר מספר שבועות בהצלחה מרובה בתוכנה יש את הקולות החדשים של גוגל עם מספר אופציות
בהצלחה
לפרטים תוכל לפנות למייל שמופיע בצד שמאל למעלה בחלון התוכנה
-
תוכל לעשות הקלטה לקובץ בטלפון ואז זה יהיה לך כקובץ שמע.
-
@פישל כתב בליצור קובץ שמע של תקליט רובוט:
בקול רובוטי אוטומטי יש לך את התוכנה המוצלחת שבנה @אביי שאני משתמש בה כבר מספר שבועות בהצלחה מרובה בתוכנה יש את הקולות החדשים של גוגל עם מספר אופציות
מה הקישור?
-
@פלוס ולמה א"א להוריד? א"א לפתח?
-
-
@חרב-פיפיות זה תוכנה שעולה כסף?
-
@פישל אני גאה, שאני זה שעיגל לך את המוניטין ל400!!
מזל טוב!!!
באמת מגיע לך! -
@חרב-פיפיות זה תוכנה בתשלום, עוד מעט @אביי יראה את התיוג ויעלה פרטים ליצירת קשר.
עריכה: בעצם אעלה לך את המייל שמופיע בתוכנה.
בבקשה cs@abaye.ml -
-
@א-גוטן לא, אתה יכול ליצור 100 מסמכי טקסט והוא יודע ליצור מהם 100 קבצי שמע.
-
אתה יכול לעשות VBA באקסל שישמור כל שורה בקובץ טקסט נפרד ואח"כ לעשות מזה קובץ שמע
-
@eseq כתב בליצור קובץ שמע של תקליט רובוט:
VBA
מענין אותי האופציה הזו.
תוכל להרחיב עליה מעט איך עושים זאת? -
@eseq כתב בליצור קובץ שמע של תקליט רובוט:
אתה יכול לעשות VBA באקסל שישמור כל שורה בקובץ טקסט נפרד ואח"כ לעשות מזה קובץ שמע
איך?
-
-
@אביי-ורבא יתכן שאתה מתכוין אלי...
אני עדיין מחכה בסבלנות, אני רואה שיש לך הרבה עבודה, אבל שווה לחכות יוצאים דברים טובים... -
בקאלום 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