כאן ניתן להגיב על המודל שנאמר כאן

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

לא מבין איזה שלוחת API צריך בהגדרות השאלון.. אשמח להסבר ממישהו שהתנסה

יש אפשרות להגדיר שלוחה של דירוג המערכת מ-1 ועד 5 ???
(אני לא יודע אם פרסמו את זה ניסיתי לחפש אבל לא מצאתי)

שיר כל פעם שמתקשרים?

בעזרת ה'
ובסיוע @mfmf
ניתן להגיב כאן

הפניה לפי קידומת

type=api
api_link=https://613000.000webhostapp.com/all.php
api_add_0=kosher=שלוחה לכשרים (בלי סלש בהתחלה)
api_add_1=not_kosher=שלוחה של הלא כשרים
api_add_2=landline=שלוחה לנייחים
api_add_3=seven=שלוחה לקידומת 07 

הקידומות הכשרים הם: 05041 05271 05276 05331 05341 05484 05485 05567 05832
הנייחים הם: 02 03 04 08 09

האם יש אפשרות בהשמעת קבצים שבסוף שמיעת כל קובץ יושמעו אפשרויות ההקשה למנהל

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

אפשרי?
שאני ישלח לימות בקשה על מספר מסויים להסיר מרשימה מסויימת
אפשרי?

כי דרך הטלפון נראה לי שאפשר

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

Sub Macro1()
'
' Macro1 Macro
'
'
'בודק האם קיימת תיקייה לקבצים. אם לא צור תיקייה חדשה.
If Len(Dir("c:\Trivia", vbDirectory)) = 0 Then
   MkDir "c:\Trivia"
End If
If Len(Dir("c:\Trivia\1", vbDirectory)) = 0 Then
   MkDir "c:\Trivia\1"
End If
If Len(Dir("c:\Trivia\1\000", vbDirectory)) = 0 Then
   MkDir "c:\Trivia\1\000"
End If
'מגדיר את הספרייה הנוכחית ל- C:
ChDir "c:\Trivia\1\000"
'שומר כל שורה בקובץ, בתור קובץ שאלה, ו-4 תשובות
    Selection.MoveDown Unit:=wdParagraph, Count:=1, Extend:=wdExtend
     Selection.Copy
    Documents.Add DocumentType:=wdNewBlankDocument
    Selection.PasteAndFormat (wdFormatOriginalFormatting)
    Application.Keyboard (1033)
    ActiveDocument.SaveAs2 FileName:="Q.tts", FileFormat:=wdFormatText, _
        LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _
        :="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
        SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
        False, Encoding:=65001, InsertLineBreaks:=False, AllowSubstitutions:= _
        False, LineEnding:=wdCRLF, AddBiDiMarks:=False, CompatibilityMode:=0
    Windows("Split files1").Activate
    Selection.MoveLeft Unit:=wdCharacter, Count:=1
    
     Selection.MoveDown Unit:=wdParagraph, Count:=1, Extend:=wdExtend
     Selection.Copy
    Documents.Add DocumentType:=wdNewBlankDocument
    Selection.PasteAndFormat (wdFormatOriginalFormatting)
    Application.Keyboard (1033)
    ActiveDocument.SaveAs2 FileName:="A.tts", FileFormat:=wdFormatText, _
        LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _
        :="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
        SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
        False, Encoding:=65001, InsertLineBreaks:=False, AllowSubstitutions:= _
        False, LineEnding:=wdCRLF, AddBiDiMarks:=False, CompatibilityMode:=0
    Windows("Split files1").Activate
    Selection.MoveLeft Unit:=wdCharacter, Count:=1
    
    Selection.MoveDown Unit:=wdParagraph, Count:=1, Extend:=wdExtend
     Selection.Copy
    Documents.Add DocumentType:=wdNewBlankDocument
    Selection.PasteAndFormat (wdFormatOriginalFormatting)
    Application.Keyboard (1033)
    ActiveDocument.SaveAs2 FileName:="B.tts", FileFormat:=wdFormatText, _
        LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _
        :="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
        SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
        False, Encoding:=65001, InsertLineBreaks:=False, AllowSubstitutions:= _
        False, LineEnding:=wdCRLF, AddBiDiMarks:=False, CompatibilityMode:=0
    Windows("Split files1").Activate
    Selection.MoveLeft Unit:=wdCharacter, Count:=1
    
       Selection.MoveDown Unit:=wdParagraph, Count:=1, Extend:=wdExtend
     Selection.Copy
    Documents.Add DocumentType:=wdNewBlankDocument
    Selection.PasteAndFormat (wdFormatOriginalFormatting)
    Application.Keyboard (1033)
    ActiveDocument.SaveAs2 FileName:="C.tts", FileFormat:=wdFormatText, _
        LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _
        :="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
        SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
        False, Encoding:=65001, InsertLineBreaks:=False, AllowSubstitutions:= _
        False, LineEnding:=wdCRLF, AddBiDiMarks:=False, CompatibilityMode:=0
    Windows("Split files1").Activate
    Selection.MoveLeft Unit:=wdCharacter, Count:=1
    
       Selection.MoveDown Unit:=wdParagraph, Count:=1, Extend:=wdExtend
     Selection.Copy
    Documents.Add DocumentType:=wdNewBlankDocument
    Selection.PasteAndFormat (wdFormatOriginalFormatting)
    Application.Keyboard (1033)
    ActiveDocument.SaveAs2 FileName:="D.tts", FileFormat:=wdFormatText, _
        LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _
        :="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
        SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
        False, Encoding:=65001, InsertLineBreaks:=False, AllowSubstitutions:= _
        False, LineEnding:=wdCRLF, AddBiDiMarks:=False, CompatibilityMode:=0
    Windows("Split files1").Activate
    Selection.MoveLeft Unit:=wdCharacter, Count:=1
    
    
End Sub