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

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

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

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

• שורה 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 מה אתה אומר על מה שבניתי?

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

@מים-אחרונים מוכן
בבקשה

[kasnik]

@מים-אחרונים
כשאתה 'מדפיס' הוא מדפיס את כל העמודים?
אם כן, תנסה לעשות שמור בשם.

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

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

שאני שונא תיוגים סתם
ואין לי כח עכשיו לעבור על זה.

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

@kasnik ברור, את זה ניסיתי מזמן.
להדפיס לא ניסיתי.

[kasnik]

@מים-אחרונים על מחשב אחר ניסת?

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

ובכלל הזיה!
בתחתית המסמך הוא כותב שיש לי 2 עמודים או 3 עמודים...
כשיש לי 7 גלויים ובאמת יש לי 14

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

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

@מים-אחרונים על מחשב אחר ניסת?

ברור.

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

@kasnik ניסה

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

@יהודי-זה-הכי
אני לא מצליח לעשות מאקרו.
תוכל לכתוב לי את התהליך?

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

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

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

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

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

@מים-אחרונים שינית את השמות?
תיצור איתי קשר במייל avi.ivr.pro@gmail.com
יהיה הכי יעיל והכי מהיר

[pcinfogmach]

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

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

@pcinfogmach לא עוזר לי הרבה..
איך אני ממשיך לערוך?

[pcinfogmach]

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

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

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

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

לא אפשרי מתצוגת קריאה

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

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

מי שרוצה לשפץ אותו ומוזמן

[ע"ה דכו"ע]

@מים-אחרונים

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

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