בעיה | באג בוורד נעלם תוכן שרואים בתצוגה מקדימה

[א. ד. ג.]

@מים-אחרונים מופעל לך שמירה אוטמטית?

[מניין]

@מים-אחרונים האם יש לך כותרות במסמך, אם התשובה כן, האם הכותרת לפני ה7 דפים אחרונים נשארה או גם נמחקה?

[מים אחרונים]

@מניין אין לי כותרות.
@א.-ד.-ג. ואין לי שמירה אוטומטית אז גם אין לי היסטוריית גרסאות.
כן שמרתי את המסמך כל הזמן.

[מים אחרונים]

גם בחיפוש וגם GPT טוענים שהקובץ קיים. במלואו!
מה אפשר לעשות?

[יהודי זה הכי]

@מים-אחרונים סתם הימור
תנסה להריץ את המאקרו

Sub Macro1()
'
' Macro1 Macro
'
'
    Selection.WholeStory
    Selection.Copy
    Selection.PasteAndFormat (wdFormatOriginalFormatting)
End Sub

[מים אחרונים]

@יהודי-זה-הכי כתב בבעיה | באג בוורד נעלם תוכן שרואים בתצוגה מקדימה:

@מים-אחרונים סתם הימור
תנסה להריץ את המאקרו

Sub Macro1()
'
' Macro1 Macro
'
'
    Selection.WholeStory
    Selection.Copy
    Selection.PasteAndFormat (wdFormatOriginalFormatting)
End Sub

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

[יהודי זה הכי]

@מים-אחרונים כתב בבעיה | באג בוורד נעלם תוכן שרואים בתצוגה מקדימה:

זה העתיק משהו ללוח.

הוא לא הדביק?

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

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

[מים אחרונים]

@יהודי-זה-הכי כתב בבעיה | באג בוורד נעלם תוכן שרואים בתצוגה מקדימה:

מעתיק ומדביק עם עיצוב המקור

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

[יהודי זה הכי]

@מים-אחרונים וואלה לא יודע
אמרתי תנסה

אולי תדביק במקום אחר ותראה מה יוצא

ואגב כמה עמודים יש בקובץ?

[מים אחרונים]

@יהודי-זה-הכי כתב בבעיה | באג בוורד נעלם תוכן שרואים בתצוגה מקדימה:

@מים-אחרונים וואלה לא יודע
אמרתי תנסה

אולי תדביק במקום אחר ותראה מה יוצא

ואגב כמה עמודים יש בקובץ?

14

[יהודי זה הכי]

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

[יהודי זה הכי]

@יהודי-זה-הכי תדבר ממני avi.ivr.pro@gmail.com

[pcinfogmach]

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

[מים אחרונים]

@מים-אחרונים כתב בבעיה | באג בוורד נעלם תוכן שרואים בתצוגה מקדימה:

@יהודי-זה-הכי כתב בבעיה | באג בוורד נעלם תוכן שרואים בתצוגה מקדימה:

@מים-אחרונים סתם הימור
תנסה להריץ את המאקרו

Sub Macro1()
'
' Macro1 Macro
'
'
    Selection.WholeStory
    Selection.Copy
    Selection.PasteAndFormat (wdFormatOriginalFormatting)
End Sub

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

תכלס לא עזר.
הדבק בסוף רק את מה שכבר קיים.
@pcinfogmach יצרתי קשר.

[יהודי זה הכי]

@מים-אחרונים אני מנסה משהו אחר עובד עליו כבר הרבה זמן

[מים אחרונים]

@יהודי-זה-הכי כתב בבעיה | באג בוורד נעלם תוכן שרואים בתצוגה מקדימה:

@מים-אחרונים אני מנסה משהו אחר עובד עליו כבר הרבה זמן

ואוו תודה!
זה באג ממש מוזר!!
מה יכול להיות? אפשר לפנות אליהם?

[יהודי זה הכי]

5 דקות (אפילו פחות) וזה מוכן

[מים אחרונים]

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

[יהודי זה הכי]

מוכן.
מיד כותב פוסט

[יהודי זה הכי]

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

אז תפעיל את המאקרו
ותשנה בשורות הבאות

• שורה 7 שם מסמך המקור (לא כולל סיומת)
• שורה 26 שם מסמך היעד (כנ"ל)
• שורה 28 שם מסמך המקור (כנ"ל)

    Sub SelectSpecificPage()
        Dim pge As Integer
        Dim rng As Range
        Dim dd As String
       mimi = MsgBox("האם לעדכן את המסך במהלך המאקרו?" & vbCrLf & vbCrLf & "זה עלול לגרום לקריסת המחשב!!!" & vbCrLf & "מומלץ רק במחשבים חזקים!", vbExclamation + vbMsgBoxRight + vbMsgBoxRtlReading + vbYesNo, "אזהרת אבטחה")
If mimi = vbYes Then Application.ScreenUpdating = False
        Windows("מסמך המקור").Activate
        pge = InputBox("הזן את העמוד הראשון", "העתקת עמודים")
        avi = pge
        en = InputBox("הזן את העמוד האחרון", "העתקת עמודים")
              dd = pge
       lo = en - pge + 1
MsgBox "מעתיק: " & lo & " עמודים", vbInformation + vbMsgBoxRight + vbMsgBoxRtlReading, "העתקת עמודים"

For i = 1 To lo


asdf = pge
If pge > 0 Then
            Selection.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=pge

            Set rng = Selection.Bookmarks("\Page").Range

            rng.Select
            Selection.Copy
            Windows("מסמך היעד").Activate
            Selection.Paste
            Windows("מסמך המקור").Activate
        Else
            MsgBox "מספר עמוד לא חוקי.", vbExclamation
   exit sub
     End If
        MsgBox "עמוד מספר: " & pge & " הועתק בהצלחה" & vbCrLf & vbCrLf & "לחץ אישור להמשך", vbInformation + vbMsgBoxRight + vbMsgBoxRtlReading, "העתקת עמוד " & pge
       pge = pge + 1
        Next i
       Application.ScreenUpdating = True
        MsgBox "בוצעו: " & lo & " העתקות!", vbInformation + vbMsgBoxRight + vbMsgBoxRtlReading, "הפעולה בוצעה בהצלחה"
    
    End Sub

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

בהצלחה
גמר חתימה טובה

---

@kasnik מה אתה אומר על מה שבניתי?