וורד האשכול המרכזי לשאלות וטיפים בוורד

[ישורון קובי]

זה מש"כ לעיל, הוורד לא מתייחס אל זה כגופן בצבע אחר.

 

[les]

הוא לא מוגדר כצבע בחיפוש

 

[haozar]

לתג.
נסיתי אך לא הועיל!

 

[ישורון קובי]

מה ניסית ושוב לא הועיל, ראית את הפיתרון שהצעתי לעיל [ממוספר כהודעה #4]?

 

[haozar]

חשבתי על זה אך יש גם הרבה מחיקות.
האם זה לא ישפיע?

 

[א.ישראל]

אתה צודק.
אולי פתרון זמני יש.
צור עותק של המסמך. עשה ספירת מילים ותוים - רשום את התוצאה. בצע בעותק של המסמך "דחה כל השינויים" - דבר שאמור למחוק את כל ההוספות שהוספת. שוב עשה ספרית מילים של התוצאה. השוה בין התוצאות.
עוזר?

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

 

[ישורון קובי]

אז מה אתם רוצים לספור??
כמ תוים הקלדתם וכמה תוים מחקתם??
אולי תספרו פשוט כמה שעות עשיתם תיקונים!

 

[tkh]

ידידים יקרים, בתפריט 'עיצוב' שב'החלף' יש שורה שנקראה 'הארה', לכאורה אותה אתם מבקשים, ואז מסמנים 'הבלט את כל הפריטים שנמצאו'.
(המומחים לחיפוש וכו' [מבלי לפגוע באף א'] כעת עוד לפני סעודה שלישית, אז מנסים לענות בינתים...)

 

[haozar]

ל-shabes אם אתה סופר לפני דחה את השינויים, הספירה לא מתבצעת על מה שמחוק, ואם תספור אחרי קבלת השינוים אז הכל נספר, ומה שקורה זה, שאם יש לי למשל 50 אלף תווים, ומתוכם מחקתי 5 אלף והוספתי 10 אלף, הספירה תראה על 55 אלף, ואז נראה שהספתי רק 5 אלף.
ולגבי העצה של לפי שעות. לא משתלם לאחד הצדדים!

 

[haozar]

ל- tkh היכן יש 'הארה' בעיצוב. אני עם וורד 2007!

 

[les]

ידידים יקרים, בתפריט 'עיצוב' שב'החלף' יש שורה שנקראה 'הארה', לכאורה אותה אתם מבקשים, ואז מסמנים 'הבלט את כל הפריטים שנמצאו'.
(המומחים לחיפוש וכו' [מבלי לפגוע באף א'] כעת עוד לפני סעודה שלישית, אז מנסים לענות בינתים...)

'הארה' מחפש סימון שנקרא האר (שכל השורה צבוע) לא את מה שמבקשים כאן.

 

[tkh]

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

 

[ישורון קובי]

ל-haozer בוורד 2007 'סימון' מקביל ל'האר'.

 

[haozar]

הצבע של השינוי זה בצבע גופן ממש ולא ב'האר', ולכן עדיין לא מצאתי!

תודה לכולם!

 

[לייזער]

דוגמא:

Sub abc()
Dim i As Integer, rev As Revision
For Each rev In ActiveDocument.Revisions
    If rev.Type = wdRevisionInsert Then i = i + Len(rev.Range)
Next rev
MsgBox i
End Sub

 

[les]

דוגמא:

Sub abc()
Dim i As Integer, rev As Revision
For Each rev In ActiveDocument.Revisions
    If rev.Type = wdRevisionInsert Then i = i + Len(rev.Range)
Next rev
MsgBox i
End Sub

מה זה אומר כל מה שכתבת?

 

[ישורון קובי]

זה אומר ש-thk צדק שהמומחים היו עדין בסעודה שלישית, ו*לייזער, כתב מאקרו שמגדירים אותו בוורד והכל בא על מקומו בשלום, כדרכם של המומחים של כאן.

 

[haozar]

איך ואיפה בדיוק מעתיקים את זה?

 

[ישורון קובי]

בקצרה (לוורד 2007)
לוחצים על הכפתור העגול שבפינה הימנית
עוברים לאפשרויות word
מסמנים v בתיבה 'הצג...מפתחים'
חוזרים לוורד ללשונית מפתחים
לוחצים על פקודות מאקרו
נותנים שם למאקרו abc
לוחצים על צור
מעתיקים לשם את הפקודות של ר' לייזער
(בודקים שאין כפילות של שורות)
שומרים
חוזרים למסמך
מפעילים את המאקרו abc
מקבלים תוצאה של כמה הקלדות עשית.
נפלא!!!
ישר כח לר' לייזער.

 

[les]

ושוב תודה שאבאס על כל העזרה שאתה נותן כאן בפורום.