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

יהודי זה הכי

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

יהודי זה הכי

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

kasnik

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

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

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

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

מים אחרונים

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

kasnik

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

מים אחרונים

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

מים אחרונים

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

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

ברור.

יהודי זה הכי

@kasnik ניסה

מים אחרונים

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

מים אחרונים

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

מים אחרונים

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

יהודי זה הכי

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