@ישעיהו-כץ כתב בבירור | מה זה "מיושר לשני הצדדים" בהגדרות עמוד בוורד:
@menajemmendel לא נראה לי שיעבוד לך בשני טורים, בטור אחד זה עובד יופי, קטע ראשון למעלה קטע שני למטה, ואם יש שלוש אז השני נתקע באמצע... יופי של עבודה...
נו, אז מה הם התכוונו? הם לא כאלה בטלנים
אני מתנצל שהצילום מסך לא עלה אני יוסיף אותו שוב
[image: 1690834031419-%D7%A6%D7%99%D7%9C%D7%95%D7%9D-%D7%9E%D7%A1%D7%9A-68-_li.jpg]
ואחר כך תשים את הסימן כתיבה בשורה הראשונה ואז תבטל את הבחירה הזאת[image: 1690834100932-%D7%A6%D7%99%D7%9C%D7%95%D7%9D-%D7%9E%D7%A1%D7%9A-69-_li.jpg]
@אני-אני-אני כתב בבירור | איזה מעלות יש לאופיס 365 על פני 2021:
@menajemmendel
לכאורה עדיף לך 2021 שזה תשלום חד"פ
כל הכבוד על התשובה, אבל ב''ה ה"ציונים!!! גיוועלד!!!!!!" קנו כבר עבורי (כלומר יש לי רישיון של משרד החינוך כמו כמעט לכל עם ישראל הדרים בארץ ישראל)
קוד לייצוא שמות הקבצים מתוך תיקייה מסויימת (הקוד מייצא גם את נתיב הקובץ וגם את שם הקובץ)
שימו לב! כרגע היצוא הוא בשיטת debug יש להחליף לשיטת הייצוא הרצויה.
Sub FindFilesInDirectoryAndSubfoldersLateBound()
Dim fso As Object ' Declare fso as Object data type
Dim folderPath As String
Dim myFolder As Object ' Declare myFolder as Object data type
Dim subfolder As Object ' Declare subfolder as Object data type
Dim file As Object ' Declare file as Object data type
' Set the folder path where you want to search for files
folderPath = "C:\Users\0533105132\Documents\ToratEmetInstall\Books" ' Replace with the desired folder path
' Create a new late-bound FileSystemObject
Set fso = CreateObject("Scripting.FileSystemObject")
' Check if the specified folder exists
If fso.FolderExists(folderPath) Then
' Get the Folder object for the specified folder
Set myFolder = fso.getfolder(folderPath)
' Call the recursive function to search files in the main folder and its subfolders
ProcessFolder myFolder
Else
' Folder does not exist
MsgBox "Folder not found: " & folderPath
End If
' Release the objects
Set file = Nothing
Set subfolder = Nothing
Set myFolder = Nothing
Set fso = Nothing
End Sub
Sub ProcessFolder(ByVal folder As Object)
Dim myfile As Object
Dim subfolder As Object
' Process files in the current folder
For Each myfile In folder.Files
' Print the file name (you can perform any desired action here)
Debug.Print myfile.Path
Debug.Print myfile.Name
Next myfile
' Recursively process subfolders
For Each subfolder In folder.Subfolders
ProcessFolder subfolder
Next subfolder
End Sub
@מניין כתב בשרשור עזרה בפיתוח התוסף לוורד - עיצוב ספרי קודש:
זה עובד, אבל הספר נפתח בדף מוסתר [וכן ההוראות בפתיחת התוסף] ולא בחלון הראשי, והדף המוסתר לא רואים על המסך, רק כששמים את העכבר על הסמל בשורת המשימות רואים שזה פתוח.
האם שינית את ההגדרות של וורד לפי ההוראות?
@הראל-האלוף אם זה לא נוח לך אתה יכול להכניס את התמונה בתוך ה"כותרת עליונה ותחתונה". ואז זה לא יציק לך
וכן. אפשר גם להכניס שם תמונה על כל העמוד. נסה והיווכח.