כללי למבינים בוורד!! איך ממירים הערת בלונים (סקירה) להערת שוליים

[vtri]

הנה תמונה:
תודה

 

[שמח לעזור]

עם מאקרו זה אפשרי.

הנה קוד:

Sub comment2footnote()
	Application.ScreenUpdating = False
	Dim oDoc As Document, oComment As Comment
	Set oDoc = ActiveDocument
	For Each oComment In ActiveDocument.Comments
		oDoc.Footnotes.Add Range:=oComment.Scope, Text:=oComment.Range.Text 
		oComment.Delete 
	Next 
	Application.ScreenUpdating = True
End Sub

לקוח מכאן.

 

[vtri]

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

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

 

[שמח לעזור]

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

 

[vtri]

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

 

[שמח לעזור]

קשה לי לנחש מה יש שם.
צילום מסך עם תווים מוסתרים מוצגים היה עוזר.

 

[Yisrael]

תבדוק בתצוגת טיוטה בהודעת המשך הערות שוליים אם יש פסקאות מיותרות.

 

[vtri]

הנה התמונה

הנה התמונה מקווה שיעזור

 

[Yisrael]

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

 

[נוכחות לעסקים]

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

 

[שמח לעזור]

אחרי שלחי את ההודעה ראיתי שכבר "אחד פלוס" כתבו לפני.
השארתי בכל אופן את תוכנה ליתר הבהרה:

חיפוש והחלפה > ב"חפש את" להזין ^p^p (או להעתיק מכאן ללא רוחים, או ב"עוד>>">מיוחד>סימון פיסקה, פעמיים).
ב"החלף ב" להזין ^p.
ואח"כ "החלף הכל", עוד ועוד עד שתהיה הודעה שלא נמצאו תוצאות תואמות במסמך.​

 

[vtri]

תודה רבה!!!

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

 

[Yisrael]

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

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