מה אתה מנסה לתרגם? מסמך?@Yisrael אני צריך לתרגם והגוגל לא מתרגם יותר מכמה עמודים בפעם
Sub בר_בי_רב
Dim strFolder As String, wdDoc As Document, Rng As Range, Copyng As Range, MyName As String
application.ScreenUpdating = False
MyName = ActiveDocument.Name
strFolder = GetFolder
If strFolder = "" Then Exit Sub
With Selection
.HomeKey wdStory
For i = 1 To ActiveDocument.Range.Information(wdActiveEndPageNumber) Step 2 ' / 2
A = A + 1
.start = .End
Set Rng = Selection.Range
If A >= ActiveDocument.Range.Information(wdActiveEndPageNumber) / 2 Then
.End = ActiveDocument.Range.End
Else
.GoTo What:=wdGoToPage, Which:=wdGoToNext, Count:=2, Name:=""
.start = Rng.start
End If
Set Copyng = .Range
Set wdDoc = Documents.Add(DocumentType:=wdNewBlankDocument)
wdDoc.Range.text = Copyng.text
ChangeFileOpenDirectory strFolder
wdDoc.SaveAs FileName:=Left(MyName, InStr(MyName, ".") - 1) & " Part" & A & ".docx", _
FileFormat:=wdFormatXMLDocument
wdDoc.Close
Next i
.HomeKey wdStory
End With
application.ScreenUpdating = True
End Sub
אכן הPC עובר רק על השורות הראשונות פחות או יותרתעבור על הקוד עם F8 (ככה הוא עובר שורה שורה) ותראה אם הוא בכלל נכנס לsub
כמובן כשהסמן נמצא בתוך ה sub
אצלי במחשב זה יוצר בנתיב המיקום עותק זהה של הקובץ רק בלי העיצוב. נסיתי פעמיים.מה זאת אומרת על השורות הראשונות, איזה שורות?
תנסה למחוק את השורות האלה:
קוד:strFolder = GetFolder If strFolder = "" Then Exit Sub
ובשורה הזו
במקום strFolder תכתוב את הנתיב של התיקייה שבה אתה רוצה לשמור את הקבצים, עם מרכאות.קוד:ChangeFileOpenDirectory strFolder
אצלי במחשב זה יוצר בנתיב המיקום עותק זהה של הקובץ רק בלי העיצוב. נסיתי פעמיים.
אל תחמיצו!!!
מנוי פרימיום באתר פרוג, יקפיץ את המוניטין שלך לקהל גדול שאסור לך להחמיץ!
ועכשיו בהזדמנות, מבצע פסח 10% הנחה ברכישת מנוי שנתי!
לוח לימודים
מסלולי לימוד שאפשר לההצטרף
אליהם ממש עכשיו:
2.04
כ"ג אדר ב'
השקה חגיגית
חדש בפרוג
קורס חדשנות AI ובינה מלאכותית
14 שיעורים מפוצצים תוכן על כלי הAI השונים ליצירת תמונות וויז'ואל, עריכת וידאו ומושן, כתיבה ורעיונות, אפיון ועיצוב אתרים ועוד המון!
ההרשמה נפתחה!
20.03
י' אדר ב'
פתיחת מסלול
עיצוב ואדריכלות פנים
מלגות גבוהות!
26.03
טז' אדר ב'
פתיחת מסלול
מאסטר בשיווק דיגיטלי
מלגות גבוהות!
8.05
ל' ניסן
פתיחת מסלול
אוטומציות עסקיות, בוטים והטמעת מערכות מידע
מלגות גבוהות!
9.05
א' אייר
ירושלמי?
יש לנו מלגה מטורפת עבורך! קורס במימון כמעט מלא!!
אוטומציות עסקיות, בוטים והטמעת מערכות מידע
ההרשמה בעיצומה
28.05
כ' אייר
פתיחת מסלול מורחב:
פיתוח ובניית אתרים
מלגות גבוהות!