בקשת מידע | מגיב על מדריך ליצירת טקסט שנכתב מעצמו

קטלא קניא

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

מתכנת חובב

@קטלא-קניא אמר בבקשת מידע | מגיב על מדריך ליצירת טקסט שנכתב מעצמו:

הייתי רוצה לדעת איך כותבים ירידת שורה בטקסט כזה, אם שייך.

מוסיפים ~ לפני הקטע שרוצים שירד שורה
לדוגמה

Set wshshell = wscript.CreateObject ("wscript.shell")
wshshell.run "Notepad"
wscript.sleep 2000
wshshell.AppActivate"Notepad"
wshshell.Sendkeys "ככה "
wscript.sleep 500
wshshell.Sendkeys "יורדים  "
wscript.sleep 500
wshshell.Sendkeys "שורה "
wscript.sleep 500
wshshell.Sendkeys "~הבנת? "
wscript.sleep 500

@קטלא-קניא אמר בבקשת מידע | מגיב על מדריך ליצירת טקסט שנכתב מעצמו:

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

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

Set wshshell = wscript.CreateObject ("wscript.shell")
wshshell.run "winword.exe"
wscript.sleep 2000
wshshell.AppActivate"winword.exe"
wshshell.Sendkeys "ככה "
wscript.sleep 500
wshshell.Sendkeys "יורדים  "
wscript.sleep 500
wshshell.Sendkeys "שורה "
wscript.sleep 500
wshshell.Sendkeys "~הבנת? "
wscript.sleep 500

שים לב לשינויים בשורות 2 ו 4
אתה יכול גם לעיין כאן (אני מקווה להעלות לזה המשך בעתיד הקרוב...)

מלאכת מחשבת

@מתכנת-חובב נחמד!
הוסיף כבר כמה שאילות שמענינות אותי...

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

מתכנת חובב

@מלאכת-מחשבת אמר בבקשת מידע | מגיב על מדריך ליצירת טקסט שנכתב מעצמו:

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

הקוד הבא יעשה את זה (לוורד) רק שים לב שזה יסגור בסוף את כל מסמכי הוורד הפתוחים במחשב!!!

Set wshshell = wscript.CreateObject ("wscript.shell")
wshshell.run "winword.exe"
wscript.sleep 2000
wshshell.AppActivate"winword.exe"
wshshell.Sendkeys "ככה "
wscript.sleep 500
wshshell.Sendkeys "יורדים  "
wscript.sleep 500
wshshell.Sendkeys "שורה "
wscript.sleep 500
wshshell.Sendkeys "~הבנת? "
wscript.sleep 2000
 
 set objWMIService = GetObject ("winmgmts:")
foundProc = False
procName = "winword.exe"

for each Process in objWMIService.InstancesOf ("Win32_Process")
    If StrComp(Process.Name,procName,vbTextCompare) = 0 then
        foundProc = True
        procID = Process.ProcessId
    End If
Next
If foundProc = True Then
    Set colProcessList = objWMIService.ExecQuery("Select * from Win32_Process where ProcessId =" &  procID)
    For Each objProcess in colProcessList    
        objProcess.Terminate()
    Next
    Set colProcessList = objWMIService.ExecQuery("Select * from Win32_Process where ProcessId =" &  procID)
End If