פקודת סגור הקובץ במקרא

[אהרן2]

איזה שורה\ות להוסיף למקרא קיים, בשביל שיסגור הקובץ מבלי לשמור?

תודה

 

[צורת הדף]

ActiveDocument.Close 0

 

[אהרן2]

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

Sub even1()
'
' even1 Macro
' מאקרו הוקלט ב- ‏23/04/2010 על-ידי 2
'
    If ActiveWindow.ActivePane.View.Type = wdPrintView Or ActiveWindow. _
        ActivePane.View.Type = wdWebView Or ActiveWindow.ActivePane.View.Type = _
        wdPrintPreview Then
        ActiveWindow.View.SeekView = wdSeekEndnotes
    Else
        ActiveWindow.View.SplitSpecial = wdPaneEndnotes
    End If
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "^2"
        .Replacement.Text = "+|#"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchKashida = False
        .MatchDiacritics = False
        .MatchAlefHamza = False
        .MatchControl = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
        ActiveDocument.Close 0
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.WholeStory
    Selection.Copy
End Sub

 

[אהרן2]

אוקי הסתדרתי חלקית.
הפקודה הנ"ל סוגרת לי את הקובץ יחד עם התוכנה, אך אם אני מחליף את ה-0 ב 1- בשביל שישמור, הוא סוגר רק את הקובץ אך משאיר פתוח את התוכנה.

יש אפשרות שגם יסגור את התוכנה (רק התוכנה שפתחה את הקובץ)?

תודה

 

[אהרן2]

אוקי הסתדרתי חלקית.
הפקודה הנ"ל סוגרת לי את הקובץ יחד עם התוכנה, אך אם אני מחליף את ה-0 ב 1- בשביל שישמור, הוא סוגר רק את הקובץ אך משאיר פתוח את התוכנה.

יש אפשרות שגם יסגור את התוכנה (רק התוכנה שפתחה את הקובץ)?

תודה