אם התוסף לא עובד יש להגדיר באפשרויות וורד "מטב עבור תאימות"
כמו"כ יש להסיר את החסימה לפני ההתקנה על ידי לחיצה ימנית על הקובץ ואז לחיצה על מאפיינים
אם התוסף לא עובד יש להגדיר באפשרויות וורד "מטב עבור תאימות"
כמו"כ יש להסיר את החסימה לפני ההתקנה על ידי לחיצה ימנית על הקובץ ואז לחיצה על מאפיינים
התחלתי לפתח userform להציג את הספרים של תורת אמת בוורד כדי להקל על ציטוטים
אשמח מאוד לקבל הצעות הן מבחינת הקוד והן משאר בחינות
לעת עתה יש עדיין קצת בעיה מצד החזות של המסמכים כי צריך להתאים את הקודים של המסמכים של תורת אמת לhtml מי שיודע איך לעשות זאת אשמח מאוד לשמוע.
כדי לנווט בקלות אפשר להקליד לחיפוש לדוגמא: "דף כב" או "פרק כב" או "פרשת וארא"
כמובן שיש להתקין קודם את תורת אמת כדי להשתמש בתבנית
כדי להתקיןאת יש להעתיק את התבנית אל תוך תיקייה זו
%AppData%\Microsoft\Word\STARTUP
ואז לפתוח דרך תפריט המאקרו בכרטיסיית 'תצוגה'
או ללחוץ על קיצור המקשים (Alt + T)
להלן הקובץ:
פרויקט נוסף שלי:
[תוסף עיצוב תורני לוורד]
https://mitmachim.top/post/626904
@dovid
תודה
תוכל למקד אותי קצת יותר בבקשה?
בתוך הפקוייקט איפה אני מוצא את הפרסור
(אגב איך אומרים פרסור באנגלית?)
אני רוצה להמיר אותו ל-html אבל לא דרך התוכנה של תורת אמת
תודה
אני רק תוהה לעצמי איך אני אמור לדעת את מה להמיר למה?
מישהו יודע באיזה שפת תיכנות המסמכים של תורת אמת מקודדים? או אולי איך להמיר בקלות את כל הקודים ל-html על ידי חיפוש והחלפה (בלי להשתמש עם האופציה המובנית של התוכנה)
חלק מהקודים הם html אבל חלק לא.....
מצו"ב כמה מסמכי דוגמא
a01_Genesis.txt b01_Genesis.txt a01__Genesis.txt
Private Sub App_PresentationOpen(ByVal Pres As Presentation)
שמתי לב שיש בעיה הגירסאות מסויימות של וורד שהקוד מייצא עברית בגיבריש
קוד vba לייצוא מודולים
Sub ייצוא_מודולים()
'נוצר על ידי pcinfogmach
Dim sourceDoc As Object ' מסמך מקור המכיל את המודולים
Dim targetDoc As Object ' מסמך יעד להעתקת המודולים אליו
Dim sourceModule As Object ' מודול מקור
Dim targetModule As Object ' מודול יעד
Dim fileDialog As Object ' דיאלוג לבחירת קובץ
Dim savePath As String ' נתיב לשמירת המודולים המיוצאים
Dim mysavePath As String ' נתיב לשמירת המודולים המיוצאים
Dim saveFolder As Object ' דיאלוג לבחירת תיקייה
' יצירת דיאלוג לבחירת קובץ
Set fileDialog = Application.fileDialog(msoFileDialogFilePicker)
' אפשרות לבחירת קובץ יחיד בלבד
fileDialog.AllowMultiSelect = False
' הגדרת הכותרת והסינונים לדיאלוג
fileDialog.Title = "בחר מסמך מקור"
fileDialog.Filters.Clear
fileDialog.Filters.Add "מסמכי וורד", "*.docm; *.dotm; *.dot"
' הצגת הדיאלוג ובדיקה אם נבחר קובץ
If fileDialog.Show = -1 Then
' הגדרת הקובץ הנבחר כמסמך המקור
Set sourceDoc = Documents.Open(fileDialog.SelectedItems(1))
' יצירת דיאלוג לבחירת תיקיית יעד
Set saveFolder = Application.fileDialog(msoFileDialogFolderPicker)
' הגדרת הכותרת לדיאלוג
saveFolder.Title = "בחר תיקיית יעד"
' הצגת הדיאלוג ובדיקה אם נבחרה תיקייה
If saveFolder.Show = -1 Then
' הגדרת התיקייה הנבחרת כנתיב השמירה
savePath = saveFolder.SelectedItems(1) & Application.PathSeparator
' לולאה על כל מודול במסמך המקור
For Each sourceModule In ActiveDocument.VBProject.VBComponents
'קבלת שם המודול
Dim moduleName As String
moduleName = sourceModule.Name
' בניית נתיב הקובץ לשמירת המודול המיוצא באמצעות השם המקורי
If sourceModule.Type = 1 Or sourceModule.Type = 100 Then
mysavePath = savePath & moduleName & ".bas"
ElseIf sourceModule.Type = 2 Then
mysavePath = savePath & moduleName & ".cls"
ElseIf sourceModule.Type = 3 Then
mysavePath = savePath & moduleName & ".frm"
End If
' ייצוא המודול מהמסמך המקור באמצעות נתיב הקובץ
sourceModule.Export mysavePath
Next sourceModule
' סגירת המסמך המקור בלי שמירת שינויים
sourceDoc.Close False
End If
End If
End Sub