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

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

@u88 כתב בבעיה | כותרות עליונות ומספרי עמודים משובשות:

@u88 עובד?

כן לעת עתה נראה שעובד טוב ב''ה, תודה על הדאגה

@ישעיהו-כץ כתב בבירור | מה זה "מיושר לשני הצדדים" בהגדרות עמוד בוורד:

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

נו, אז מה הם התכוונו? הם לא כאלה בטלנים

אני מתנצל שהצילום מסך לא עלה אני יוסיף אותו שוב
‏‏צילום מסך (68)_LI.jpg
ואחר כך תשים את הסימן כתיבה בשורה הראשונה ואז תבטל את הבחירה הזאת‏‏צילום מסך (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

@מניין כתב בשרשור עזרה בפיתוח התוסף לוורד - עיצוב ספרי קודש:

זה עובד, אבל הספר נפתח בדף מוסתר [וכן ההוראות בפתיחת התוסף] ולא בחלון הראשי, והדף המוסתר לא רואים על המסך, רק כששמים את העכבר על הסמל בשורת המשימות רואים שזה פתוח.

האם שינית את ההגדרות של וורד לפי ההוראות?

@הראל-האלוף אם זה לא נוח לך אתה יכול להכניס את התמונה בתוך ה"כותרת עליונה ותחתונה". ואז זה לא יציק לך

וכן. אפשר גם להכניס שם תמונה על כל העמוד. נסה והיווכח.

תרגמתי כאן תוסף לוורד שמאפשר חיפוש והחלפה מקובץ אקסל, כלומר שבעמודה a מופיעה המילה לחיפוש ובעמודה b מופיעה המילה להחלפה [למיטב ניסיוני ניתן להוסיף תיאור בעמודה c וזה לא ישפיע על החיפוש וההחלפה] ניתן שם גם לאפשר תווים כלליים ועוד ועוד ,אז חשבתי לעשות שני קבצי אקסל שיתופיים ,אחד לתווים כלליים ואחד לרגיל ושם הציבור הק' יוסיף את הטעויות הנפוצות
חיפוש והחלפה רגילים
תווים מיוחדים
כמו כן לגבי תיקון שגיאות אוטומטי יש בכתובת זו תוסף לגיבוי והעברה ממחשב למחשב, אולי אתרגם אותו כשיהיה לי זמן

@menajemmendel
בסדר רק שיכתוב מה הבעיה

@שמעיה
בחלונית סגנונות (החץ הקטן ליד סגנונות) יש אפשרות כזו

e677f866-2d42-4401-98f2-9de3daf4c822-image.png

@צור יש לך תמלול בעברית תפתח וורד דרך edge. בהצלחה !

@T8412371 תעלה צילום מסך של השגיאה.

שלחתי את השאלה הזו ליוצר התוסף והוא אמר לי שאת הפקודה הזו יצר @רפרם-ב-ר-פפא אשמח אם הוא יסביר לי בזה.