עזרה הדדית - וורד

@menajemmendel וואוו ממש תודה רבה !!

@דאנציג אכן ככה אני עושה

אכן האופן של טאבים הוא הכי נכון ומוצלח לעשות כך

@ORIMOR אפשר לפתוח עם כל עורך ASCII גם עם Notepad

@menajemmendel תודה ענקית עזרת לי מאד תבורך מן השמים

@menajemmendel תנסה את זה מתוקן חידה.docx "ותשיבני דבר"

@שמעיה https://mitmachim.top/topic/28372/בקשה-התוכנה-dtsearch-desktop?_=1691100689675

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

@pcinfogmach יישר כח הצלחתי תזכה למצוות

@u88 כתב בבעיה | כותרות עליונות ומספרי עמודים משובשות: @u88 עובד? כן לעת עתה נראה שעובד טוב ב''ה, תודה על הדאגה

@ישעיהו-כץ כתב בבירור | מה זה "מיושר לשני הצדדים" בהגדרות עמוד בוורד: @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 שזה תשלום חד"פ כל הכבוד על התשובה, אבל ב''ה ה"ציונים!!! גיוועלד!!!!!!" קנו כבר עבורי (כלומר יש לי רישיון של משרד החינוך כמו כמעט לכל עם ישראל הדרים בארץ ישראל)

@הגיבן הפורום מלא בזה עד להתפקע!! תעשה חיפוש קצר ותמצא את זה וגם זה וגם זה

ניסיתי שיהיה רק אתבש\איבכ בלי b1\b2 או 1\2makro הצלחתי כותבים private sub ""

@menajemmendel רק לפעמים לוקח לו קצת זמן עד שהוא עונה

@אוריי איך שכבר כתבת מטומטם נשאר כזה ...

קוד לייצוא שמות הקבצים מתוך תיקייה מסויימת (הקוד מייצא גם את נתיב הקובץ וגם את שם הקובץ) שימו לב! כרגע היצוא הוא בשיטת 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