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

[moishy]

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

 

[Yisrael]

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

אכן כן.

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

Set MyRange = ActiveDocument.Range
MyRange.Find.ClearFormatting: MyRange.Find.Font.ColorIndexBi = wdRed
a:
  If MyRange.Find.Execute(FindText:="") Then
    m = m & MyRange & " -" & MyRange.Information(wdActiveEndPageNumber) & vbCr
    GoTo a
  End If

Documents.Add
ActiveDocument.Range = m

והפעם בלי selection...

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

וצירפתי גרסה שלי לדרך שלך...

Documents.Add ActiveDocument.FullName
With Selection
    Selection.EndKey wdStory
    .Find.Font.ColorIndexBi = wdAuto
a:    If .Find.Execute(FindText:="", Forward:=False) Then
        If Selection.Range.start = ActiveDocument.Range.start Then .Delete Else .Text = " -" & .Information(wdActiveEndPageNumber) & vbCr
      GoTo a: End If
End With
  For Each para In ActiveDocument.Paragraphs
    If para.Range.Characters(1) < Chr(224) Then para.Range.Delete
  Next

כמובן שכל זה רק ל"הגדיל תורה ולהאדירה"...

 

[moishy]

ר' ישראל, חילך לאורייתא, קוד נפלא.

 

[דודו10]

מילה ראשונה

 

[eliezer]

מילה ראשונה

חפש כפי מה שכתבתי לפני כמה הודעות. או כפי שכבר הציעו לשנות מ> לרווח.

 

[דודו10]

שלום
אתה יכול בבקשה לכתוב לי את הקוד המדוייק (פשוט יש פפה כבר כמה אופציות ואני קצת מתבלבל)

תודה רבה

 

[eliezer]

http://www.prog.co.il/showpost.php?p=802591&postcount=17

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

 

[eliezer]

טיפ לחיפוש תחילת פסקה, כתבתי כאן.
http://www.prog.co.il/showthread.php?t=105601

 

[רמה פלוס]

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

 

[פרסומון]

בוורד.
זה דחוף לי נורא.

 

[NIVDFB]

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

 

[אברהם]

http://www.prog.co.il/tags.php?tag=שצג

 

[פרסומון]

תודה, אך הורדתי את הקובץ האמור כאן: http://www.prog.co.il/showpost.php?p=105353&postcount=6
והוא כותב לי 'שגיאה! סימניה לא מוגדרת'.

 

[פרסומון]

נו, אף אחד לא יודע?

 

[Yisrael]

נו, אף אחד לא יודע?

מה עשית עם הקובץ שהורדת? אתה מדבר על מספרי עמודים?

 

[פרסומון]

כן, העתקתי את התתשצ"ג לקובץ שלי, והוא כתב לי באמת את המספר עמוד אבל הוא כתב לי באותה נשימה גם 'שגיאה! סימניה לא מוגדרת'.

 

[Yisrael]

אם תיתן הורדה של העמוד המדובר אולי יהיה אפשר לעזור...

 

[moishy]

האם כתוב 'שגיאה! סימניה לא מוגדרת' או "הסגנון לא מוגדר"?

 

[ישראלה]

להעברת התאריך לסוף השורה.

באינדיזיין זה שיפט + טאב
בוורד?

 

[ישראלה]

הקפצה