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

[דודו10]

כל תחילת קטע

 

[tkh]

ע"י מאקרו

 

[NIVDFB]

פותחים חלון החלפה, בחלון חפש את כותבים ^p^$ [התהפך לי בהדבקה לכאן אבל תעשה העתק לקוד ותדביק אותו בשורת החיפוש וכנראה זה יעבוד, אצלי זה עבד].
ובהחלף ב לא כותבים כלום אלא עיצוב מודגש.
אם אתה עושה החלף הכל לא צריך מאקרו., אך כמובן שאפשר גם להקליט את זה במאקרו.
בהצלחה.

 

[חברה]

זה מחליף את כל האותיות, לא רק תחילה

 

[NIVDFB]

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

 

[Yisrael]

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

אפשרי לעשות זאת ע"י מאקרו פשוט.

 

[דודו10]

עשיתי את ה-$^p^ וזה לא עובד לי טוב, זה מחליף לי רק את האות הראשונה, ואני צריך להחליף את כל המילה הראשונה.
מישהו יוכל לכוון אותי מה לעשות זה מאוד דחוף לי
תודה רבה

 

[Yisrael]

פעם הבאה מומלץ להגיד מה שאתה צריך ולא משהו אחר...

נסה את זה:

^13*>

עם תווים כלליים.

 

[דודו10]

ואאהוו
תודה הסתדרתי זה עובד מעולה
ממש תודה רבה!!!!!!!!!!!!!!!!!!

 

[NIVDFB]

תחילת כל מקטע
דהיינו כל אות ראשונה במקטע שתהיה מודגשת

תודה

אבל ראיתי שהסתדרת, כך שלא צריך להשיב על הפרטי.

 

[אלחנן אריאל]

שלום וברכה!

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

היש למישהו רעיון?


נ.ב. צירפתי דוגמא קובץ מקור.
ודוגמא לתוצאה המיוחלת.

 

[Yisrael]

אפשר ע"י מאקרו. מקווה שאמצא זמן לזה.

האם אתה מדבר על צבע מסוים (כמו במסמך המצורף) או כל צבע שאינו הצבע האוטומטי של וורד?

 

[אלחנן אריאל]

מסתברא שעדיפא לי כל צבע שאינו הצבע האוטומטי של וורד!

יישר כחך ר' ישראל!

 

[Yisrael]

נסה את הקוד הבא:

Sub העתקת_טקסט_צבוע()
Dim MyArray() As Variant
For i = 1 To ActiveDocument.Characters.Count
    If Not ActiveDocument.Characters(i).Font.ColorIndexBi = wdAuto Then
      start = ActiveDocument.Characters(i).start
        For t = start + 2 To ActiveDocument.Characters.Count
          If ActiveDocument.Characters(t).Font.ColorIndexBi = wdAuto Then
            endd = ActiveDocument.Characters(t).start
            Selection.SetRange start, endd
            y = y + 1
            ReDim Preserve MyArray(y)
            MyArray(y) = Selection.Range & " -" & Selection.Information(wdActiveEndPageNumber)
            i = endd + 1
            Exit For
            End If
        Next t
    End If
Next i

Documents.Add
  For E = 1 To y
    ActiveDocument.Paragraphs(E).Range = MyArray(E)
      If E < y Then
        Selection.EndKey wdStory
        ActiveDocument.Paragraphs.Add Selection.Range
      End If
  Next E
End Sub

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

כמובן לשמור הכל לפני שמנסים.

 

[אלחנן אריאל]

ר' ישראל יישר כחך!

הוא נתקע בשורה הזו:

 start = ActiveDocument.Characters(i).start

כאשר הוא מציין את המילה הראשונה.

ושוב תודה רבה!

 

[אלחנן אריאל]

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

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

תודה רבה!

 

[moishy]

ר' ישראל, מסתברא מילתא שאין טעם לעבור תו תו, מן הסתם אפשר להסתפק במילים שלמות.

 

[Yisrael]

ר' ישראל יישר כחך!

הוא נתקע בשורה הזו:

 start = ActiveDocument.Characters(i).start

כאשר הוא מציין את המילה הראשונה.

ושוב תודה רבה!

מה ז"א מציין את המילה הראשונה?

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

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

תודה רבה!

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

ר' ישראל, מסתברא מילתא שאין טעם לעבור תו תו, מן הסתם אפשר להסתפק במילים שלמות.

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

 

[אלחנן אריאל]

ראשית, תודה רבה!

צירפתי תמונה של הודעת השגיאה.

ושוב תודה!
אין מילים!

 

[אלחנן אריאל]

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

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