להורדה |תוסף 'שולחן העורך' - סט כלים לעורך התורני - גירסה מספר 4.0!!!
-
@איש-גמזו
יש מצב שתעלה דוגמא או תמונה של איך יצא?@pcinfogmach הנה דוגמא לא גמורה
רק פשלה אחת, עשיתי מספרי עמודים עבריים (אותיות) ע"י התוסף שלך (יען כי במובנה של וורד משתבש לי אם אני ממספר אחרי חלוקה של המסמך למקטעים, כלומר הוא במקטע הבא חוזר להיות מספרים ולא אותיות)
והתוכן עניינים עשה לי אותם במספרים, לא בדקתי מה יהיה אם אעשה את האותיות בוורד עצמו.
תוכן עניינים.pdf -
@pcinfogmach הנה דוגמא לא גמורה
רק פשלה אחת, עשיתי מספרי עמודים עבריים (אותיות) ע"י התוסף שלך (יען כי במובנה של וורד משתבש לי אם אני ממספר אחרי חלוקה של המסמך למקטעים, כלומר הוא במקטע הבא חוזר להיות מספרים ולא אותיות)
והתוכן עניינים עשה לי אותם במספרים, לא בדקתי מה יהיה אם אעשה את האותיות בוורד עצמו.
תוכן עניינים.pdf -
@איש-גמזו כתב בלהורדה |תוסף 'שולחן העורך' - סט כלים לעורך התורני - גירסה מספר 4.0!!!:
כנ"ל, מופיע שגיאה 404
-
@איש-גמזו
צריך להעלות בתוך קובץ זיפ -
@איש-גמזו כתב בלהורדה |תוסף 'שולחן העורך' - סט כלים לעורך התורני - גירסה מספר 4.0!!!:
נשמח להסבר איך עשית את זה, כי ניסתי כמה פעמים ולא יצא מסודר
-
@איש-גמזו כתב בלהורדה |תוסף 'שולחן העורך' - סט כלים לעורך התורני - גירסה מספר 4.0!!!:
נשמח להסבר איך עשית את זה, כי ניסתי כמה פעמים ולא יצא מסודר
@לשכת-הרב פשוט אחרי שעושים עדכון לתוכן עניינים לוחצים על הפקודת מאקרו שמנתקת את השדות והופכת את כל התוכן עניינים לטקסט רגיל
א"כ מסמנים את כל התוכן עניינים ומשתמשים עם הפקודה מהתוסף שממירה את המספרים לאותיות (הפקודה באדיבות אחת מהבינות... אבל עובד מעולה)
ואח"כ סוגרים לPDF ומודים לה'
Sub מנתק_טקסט_בתוכן_עניינים() Dim toc As TableOfContents Dim tocRange As Range For Each toc In ActiveDocument.TablesOfContents Set tocRange = toc.Range ' ממיר את תוכן העניינים לטקסט רגיל tocRange.Fields.Unlink ' מסיר קו תחתון tocRange.Font.Underline = wdUnderlineNone ' מחזיר צבע טקסט לברירת מחדל (אוטומטי) tocRange.Font.Color = wdColorAutomatic Next toc MsgBox "תוכן העניינים הומר לטקסט רגיל, הקו התחתון הוסר והצבע הוחזר לברירת מחדל." End Sub -
@לשכת-הרב פשוט אחרי שעושים עדכון לתוכן עניינים לוחצים על הפקודת מאקרו שמנתקת את השדות והופכת את כל התוכן עניינים לטקסט רגיל
א"כ מסמנים את כל התוכן עניינים ומשתמשים עם הפקודה מהתוסף שממירה את המספרים לאותיות (הפקודה באדיבות אחת מהבינות... אבל עובד מעולה)
ואח"כ סוגרים לPDF ומודים לה'
Sub מנתק_טקסט_בתוכן_עניינים() Dim toc As TableOfContents Dim tocRange As Range For Each toc In ActiveDocument.TablesOfContents Set tocRange = toc.Range ' ממיר את תוכן העניינים לטקסט רגיל tocRange.Fields.Unlink ' מסיר קו תחתון tocRange.Font.Underline = wdUnderlineNone ' מחזיר צבע טקסט לברירת מחדל (אוטומטי) tocRange.Font.Color = wdColorAutomatic Next toc MsgBox "תוכן העניינים הומר לטקסט רגיל, הקו התחתון הוסר והצבע הוחזר לברירת מחדל." End Sub@u88 השלבים האלה זה ברור [אגב לא חייב פקודות מאקרו לחלק מהשלבים, בכמה לחיצות פשוטות במקלדת אתה מסדר את זה, אכתוב בהמשך בל"נ].
אני שואל איך הצלחת לעשות עם הכותרות, שכותרת ראשית בשורה בפנ"ע, וכותרות משנה מסודרות כותרת ליד כותרת עם תו ביניהם. ולא כל כותרת בשורה בפנ"ע.
זה השאלה, כי ניסתי כו"כ פעמים. -
@u88 השלבים האלה זה ברור [אגב לא חייב פקודות מאקרו לחלק מהשלבים, בכמה לחיצות פשוטות במקלדת אתה מסדר את זה, אכתוב בהמשך בל"נ].
אני שואל איך הצלחת לעשות עם הכותרות, שכותרת ראשית בשורה בפנ"ע, וכותרות משנה מסודרות כותרת ליד כותרת עם תו ביניהם. ולא כל כותרת בשורה בפנ"ע.
זה השאלה, כי ניסתי כו"כ פעמים.