מאקרו - פיסקאות עם כניסה ימנית

[tkh]

תנסה לחפש:
לפני הטקסט - 21.5 נק'.
(הוא הופך את זה ל0.76 ס"מ, אבל מוצא את זה- לפחות אצלי, על אף שלא מצא 0.76 ס"מ בקובץ ששלחת).
(יתכן שההסבר לזה הוא שזה לא באמת 0.76, אלא 21.5 נק', אלא שבתרגום לס"מ יוצא הכי קרוב ל0.76 וכך הוא מציג את זה, אבל בחיפוש לא יכול למצוא את זה כי באמת לא זה המספר)

 

[tkh]

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

 

[חיטובים]

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

Sub SearchIndent()

For i = 1 To ActiveDocument.Paragraphs.Count

myRng = ActiveDocument.Paragraphs(i)

If myRng.ParagraphFormat.LeftIndent > 0 Then

myRng.InsertBefore "$$$"

End If

Next

End Sub

 

[tkh]

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

 

[חיטובים]

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

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

 

[שיקול דעת]

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

 

[חיטובים]

במקרה כזה באמת המאקרו לא מתאים

 

[צורת הדף]

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

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

Sub SearchIndent()
For i = 1 To ActiveDocument.Paragraphs.Count
myRng = ActiveDocument.Paragraphs(i)
If myRng.ParagraphFormat.LeftIndent > 0 And myRng.ParagraphFormat.FirstLineIndent = 0 Then
myRng.InsertBefore "$$$"
End If
Next
End Sub

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

כמובן שאפשר לכתוב בתוך המאקרו שיעור הכניסה, לדוגמא בשביל 1 ס"מ:

myRng.ParagraphFormat.LeftIndent = CentimetersToPoints(1)

 

[שיקול דעת]

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

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

מה שכן, במקרה שיש כניסה על כל הפסקה חוץ משורה ראשונה (Hanging), אתה צודק, ולכן הוספתי משהו שידלג על פסקאות אלו.

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