@האדם-החושב
ברמה כללית אני לא בעד לתכנת דברים שכבר קיימים
ביוזר פורם שהבאת אין שום דבר שכבר לא קיים בחיפוש והחלפה של וורד חוץ מהאפשרות לחיפוש במיקום מסויים אז אולי משהו שייתן למתמש לבחור פרמטרים אבל שישמתש את החיפוש והחלפה של וורד כמו שעשיתי.....
לגבי שמירת החיפוש רעיון מעניין צריך לחשוב איך לעשות את זה בלי להעמיס על התוכנה ובלי ללכלך את המחשב בקבצים מיותרים
@ישעיהו-כץ כתב בבירור | מה זה "מיושר לשני הצדדים" בהגדרות עמוד בוורד:
@menajemmendel לא נראה לי שיעבוד לך בשני טורים, בטור אחד זה עובד יופי, קטע ראשון למעלה קטע שני למטה, ואם יש שלוש אז השני נתקע באמצע... יופי של עבודה...
אני מתנצל שהצילום מסך לא עלה אני יוסיף אותו שוב
צילום מסך (68)_LI.jpg
ואחר כך תשים את הסימן כתיבה בשורה הראשונה ואז תבטל את הבחירה הזאתצילום מסך (69)_LI.jpg
קוד לייצוא שמות הקבצים מתוך תיקייה מסויימת (הקוד מייצא גם את נתיב הקובץ וגם את שם הקובץ)
שימו לב! כרגע היצוא הוא בשיטת 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
@מניין כתב בשרשור עזרה בפיתוח התוסף לוורד - עיצוב ספרי קודש:
זה עובד, אבל הספר נפתח בדף מוסתר [וכן ההוראות בפתיחת התוסף] ולא בחלון הראשי, והדף המוסתר לא רואים על המסך, רק כששמים את העכבר על הסמל בשורת המשימות רואים שזה פתוח.
תרגמתי כאן תוסף לוורד שמאפשר חיפוש והחלפה מקובץ אקסל, כלומר שבעמודה a מופיעה המילה לחיפוש ובעמודה b מופיעה המילה להחלפה [למיטב ניסיוני ניתן להוסיף תיאור בעמודה c וזה לא ישפיע על החיפוש וההחלפה] ניתן שם גם לאפשר תווים כלליים ועוד ועוד ,אז חשבתי לעשות שני קבצי אקסל שיתופיים ,אחד לתווים כלליים ואחד לרגיל ושם הציבור הק' יוסיף את הטעויות הנפוצות
חיפוש והחלפה רגילים
תווים מיוחדים
כמו כן לגבי תיקון שגיאות אוטומטי יש בכתובת זו תוסף לגיבוי והעברה ממחשב למחשב, אולי אתרגם אותו כשיהיה לי זמן