'--------------------
' 
Sub UnloadDoc(doc)
	'   
	If doc = docTable Then
		fName = BaseDir & doc.Name & ".mxl"
	Else 
		fName = BaseDir & doc.Name & ".txt"
	end if
	'   : ////
	'message fName '  
	if doc.Name <> " " then
		firstdec = InStr(fName, ".")
		Dir = Left(fName, firstdec - 1)
		'   
		MakeDir Dir
		'   ,      
		fName = Left(fName, firstdec-1) & "\" & Mid(fName, firstdec+1)
	end if
	'    ,    
	doc.SaveToFile fName
	' ,      turbomd.prm
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set f = fso.OpenTextFile(IBDir & "turbomd.prm", 1, True)
    If f.AtEndOfStream = True Then t = "" Else t = f.ReadAll()
    If InStr(t, doc.Name) = 0 Then
        If MsgBox(" " & doc.Name & "  turbomd.prm ?", vbQuestion + vbYesNo) = vbYes Then
			'    turbomd.prm
            f.Close
            Set f = fso.OpenTextFile(IBDir & "turbomd.prm", 8)
            If Len(t) > 0 And Right(t, 2) <> vbCrLf Then f.WriteBlankLines 1
            f.WriteLine doc.Name & " = " & Replace(fName, IBDir, "")
        End If
    End If
    f.Close 
	Status "TurboMD:   <" & doc.Name & ">"
End Sub


'--------------------
'     
Sub UnloadCurrentWnd()
    Set w = Windows.ActiveWnd
    If w Is Nothing Then
        MsgBox "  ", vbOKOnly, "TurboMD"
        Exit Sub
    End If
    Set d = w.Document
'    If d.ID < 2 Then '  
    If d.ID < 1 Then '  
        MsgBox "  ,  ", vbOKOnly, "TurboMD"
        Exit Sub
    End If
    If d = docText Then     '  
		if d.ID=1 then
			If MsgBox("  ?", vbQuestion + vbYesNo, "TurboMD") = vbYes Then
				UnloadDoc d
			End If
		else
			If MsgBox("  ?", vbQuestion + vbYesNo, "TurboMD") = vbYes Then
				UnloadDoc d
			End If
		End If
    Else
        If d = docWorkBook Then ' 
	        IF d.ActivePage = 0 THEN ' 
				If MsgBox(" ?", vbQuestion + vbYesNo, "TurboMD") = vbYes Then
					UnloadDoc d.Page(0) '  
				End If
			END IF ' ,     
			IF d.ActivePage > 1 THEN ' 
				'  
				lMXLName = d.Page(d.ActivePage).Name
				lastdec  = InStrRev(lMXLName, ".")
				lMXLName = Right(lMXLName, Len(lMXLName) - lastdec)
				If MsgBox("  <"+lMXLName+">?", vbQuestion + vbYesNo, "TurboMD") = vbYes Then
					UnloadDoc d.Page(d.ActivePage)
				End If
			END IF
			IF d.ActivePage = 1 THEN ' 
				If MsgBox("  ?", vbQuestion + vbYesNo, "TurboMD") = vbYes Then
					'strOldText = d.Page(1).text
					'd.Page(1).text = ModuleText
					UnloadDoc d.Page(1) '  
					'd.Page(1).text = strOldText
				End If
			END IF ' ,     
        End If
    End If
End Sub