וורד למבינים במאקרו

[les]

מצאתי כאן מאקרו שמעתיק את הבחירה שלך בוורד ופותח קובץ חדש מדביק ושומר. כשניסיתי אותו הוא נתקע בשורה של ה'הדבק', משהו יכול להבין מה הסיבה?

 

[ישורון קובי]

אני לא רואה כל כך סיבה לתקלה בזה, וגם אצלי עבד בסדר.
כתבתי משהו חלופי בגישה קצת שונה, וגם ויתרתי על נושא של השמירה לקובץ (יכולות להיות שגיאות בגלל שם לא מתאים וכדומה).
אם רוצים שכן ישמור אז מבטלים את הגרש בתחילת השורות [7 שורות שלפני הסוף]).

תעדכנו אם זה עובד לכם. תודה.

Sub SaveSelectedTextToNewDocument()

    Dim Rng As range
    Dim DestRng As range
 
    If Selection.Start <> Selection.End Then
        Set Rng = Selection.range
       'Open a new document and paste the copied text into it
        Dim objNewDoc As Document
        Set objNewDoc = Documents.Add
        Set DestRng = objNewDoc.range
        DestRng.FormattedText = Rng
     
        'Set name for new document and save it
     
        'Dim Name As String
        'If objNewDoc.range.End < 10 Then
        '    Name = objNewDoc.range(0, objNewDoc.range.End - 1).Text
        'Else
        '    Name = objNewDoc.range(0, 10).Text
        'End If
        'objNewDoc.SaveAs FileName:="E:\Dropbox\111\" & Trim(Name) & ".docx"
             
    End If
 
End Sub

 

[les]

מדהים!
תודה רבה