יצירת קבצי TTS - לטריוויה ב- VBA

צבי 10

@גוטליב-סוכן-פלאפונים
שפת תכנות VBA של אופיס עיין כאן
ניתן להציגה ב קובץ>אפשרויות>התאמה אישית של רצועת הכלים. ולסמן ב-V את "מפתחים" שנמצא בטור השמאלי.

גוטליב סוכן פלאפונים

@צבי-10 אמר ביצירת קבצי TTS - לטריוויה ב- VBA:

@גוטליב-סוכן-פלאפונים
ניתן להציגה ב קובץ>אפשרויות>התאמה אישית של רצועת הכלים. ולסמן ב-V את "מפתחים" שנמצא בטור השמאלי.

באתר ניהול המערכת?

צבי 10

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

גוטליב סוכן פלאפונים

@צבי-10 אמר ביצירת קבצי TTS - לטריוויה ב- VBA:

@clickphone כתבת בוורד עצמו 5 שורות עם טקסט, כאשר כל שורה מופרדת באמצעות "אנטר"?

כן ואיפה אני מעלה את הקובץ? בשלוחת הטריוויה במערכת?

צבי 10

@גוטליב-סוכן-פלאפונים כן.
את תיקייה מס' 1 שבתוכה קבצי ה- TTS מעלים. ותשנה את שם התיקייה לפי הגדרות הטריוויה

גוטליב סוכן פלאפונים

@צבי-10 אמר ביצירת קבצי TTS - לטריוויה ב- VBA:

@גוטליב-סוכן-פלאפונים כן.
את תיקייה מס' 1 שבתוכה קבצי ה- TTS מעלים. ותשנה את שם התיקייה לפי הגדרות הטריוויה

בתוך שלוחת הטריוויה אני צריך לפתוח שלוחה חדשה ולשם להכניס את כל השאלות?

צבי 10

@גוטליב-סוכן-פלאפונים כן ככה זה עובד תסתכל בהגדרות כאן

צבי 10

עידכונים ושיפורים בקוד מבית @מאקרו. עידכונים נוספים בקרוב...
השיפורים בקוד זה הם:

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

Sub TriviaFiles()
 
'בודק האם קיימת תיקייה לקבצים. אם לא צור תיקייה חדשה.
If Dir("c:\Trivia", vbDirectory) = "" Then MkDir "c:\Trivia"
If Dir("c:\Trivia\1", vbDirectory) = "" Then MkDir "c:\Trivia\1"
 
Count = InputBox("הזן כמות תשובות לשאלה", "")
Selection.HomeKey Unit:=wdStory
QDir = 0
 
Do While Selection.Range.End <> ActiveDocument.Content.End - 1
    QDir = Format(QDir, "000")
    CDir = "c:\Trivia\1\" & QDir
    If Dir(CDir, vbDirectory) = "" Then MkDir CDir
    ChDir CDir
    
    'שומר כל שורה בקובץ, בתור קובץ שאלה, ו-4 תשובות
    For i = 1 To Count + 1
        f = Choose(i, "Q", "A", "B", "C", "D")
        Selection.MoveDown Unit:=wdParagraph, Count:=1, Extend:=wdExtend
        TTS = Selection
        Open f & ".tts" For Output As #1
        Write #1, TTS
        Close #1
        Selection.MoveRight Unit:=wdCharacter, Count:=1
    Next
    QDir = QDir + 1
Loop
End Sub
{1}

בסייעתא דשמיא 0

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

צבי 10

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

בסייעתא דשמיא 0

@צבי-10
גם שאלתי בשרות הלקוחות במייל וענו לי שאין אפשרות TTS בטריוויה רק WAV.

מנסה

@צבי-10

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

צבי 10

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