תחומים - פורום חרדי מקצועי

התחלתי לפתח userform להציג את הספרים של תורת אמת בוורד כדי להקל על ציטוטים
אשמח מאוד לקבל הצעות הן מבחינת הקוד והן משאר בחינות

לעת עתה יש עדיין קצת בעיה מצד החזות של המסמכים כי צריך להתאים את הקודים של המסמכים של תורת אמת לhtml מי שיודע איך לעשות זאת אשמח מאוד לשמוע.

כדי לנווט בקלות אפשר להקליד לחיפוש לדוגמא: "דף כב" או "פרק כב" או "פרשת וארא"

כמובן שיש להתקין קודם את תורת אמת כדי להשתמש בתבנית

כדי להתקיןאת יש להעתיק את התבנית אל תוך תיקייה זו

%AppData%\Microsoft\Word\STARTUP

ואז לפתוח דרך תפריט המאקרו בכרטיסיית 'תצוגה'
או ללחוץ על קיצור המקשים (Alt + T)

להלן הקובץ:

תורת-אמת-בוורד.dotm

---

פרויקט נוסף שלי:

[תוסף עיצוב תורני לוורד]
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