word farklı kaydet

[tukayf]

arkadaşlar ekteki dosya sayın leumruk hocamın bi çalışması. Kodlar çalışıyor ancak ben BN butonuna bastığımda ana dosya kapanıp farklı kaydet ile Bilgi Notu adıyla yeni bir dosya kaydediliyor.
Yapmak istediğim ana dosyanın kapanmadan Bilgi Notu'nun oluşması.
Yardımlarınız için şimdiden teşekkürler.

 

[leumruk]

Merhaba,
Bilginotu makronuzu aşağıdaki ile değiştirin.

Sub Bilgi_Notu()
Application.ScreenUpdating = False
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "Olay Özeti*:"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .MatchWildcards = True
    End With
Selection.Find.Execute Replace:=wdReplaceAll

For x = ActiveDocument.Shapes.Count To 1 Step -1
If ActiveDocument.Shapes(x).AutoShapeType = 1 Then
    ActiveDocument.Shapes(x).Delete
End If
Next

For y = 1 To ActiveDocument.Tables.Count - 1
Set tbl = ActiveDocument.Tables(y)
    If tbl.Rows.Count > 1 Then
        For Z = tbl.Rows.Count To 2 Step -1
            tbl.Rows(Z).Delete
        Next
    End If
Next

ActiveDocument.FormFields(1).Result = "BİLGİ NOTU"

dsy = ActiveDocument.FullName

Set ds = CreateObject("Scripting.FileSystemObject")
uzanti = "." & ds.GetExtensionName(ThisDocument.Name)
yol = ThisDocument.Path & "\"
Ad = Format(Date, "dd.mm.yyyy") & " Bilgi Notu"

If Right(uzanti, 1) = "m" Then
    ChangeFileOpenDirectory yol
    ActiveDocument.SaveAs FileName:=Ad & ".docx", _
        FileFormat:=wdFormatXMLDocument, LockComments:=False, Password:="", _
        AddToRecentFiles:=True
Else
ThisDocument.SaveAs yol & Ad & ".doc"
End If

dsy2 = ActiveDocument.Name

CreateObject("shell.Application").Open dsy
Documents(dsy2).Close
Application.ScreenUpdating = True

End Sub

 

[tukayf]

Sayın leumruk hocam cevap için teşekkürler harika olmuş ama sormak istediğim bir şey var acaba kaydet yapılan dosya da açık kalabilir mi? Dosyayı günün tarihiyle kaydettikten sonra o dosya kapanıyor. Kapanan dosyayı açarak tekrar düzenleme yapıyoruz bu nedenle o dosya da açık kalabilirse çok iyi olur tabi mümkünü varsa. Tekrar teşekkürler. Zihninize sağlık.

 

[leumruk]

Sayın leumruk hocam cevap için teşekkürler harika olmuş ama sormak istediğim bir şey var acaba kaydet yapılan dosya da açık kalabilir mi? Dosyayı günün tarihiyle kaydettikten sonra o dosya kapanıyor. Kapanan dosyayı açarak tekrar düzenleme yapıyoruz bu nedenle o dosya da açık kalabilirse çok iyi olur tabi mümkünü varsa. Tekrar teşekkürler. Zihninize sağlık.

Her iki dosya da mı açık kalacak?

 

[tukayf]

evet hocam her iki dosya da açık kalacak mümkünse.

 

[leumruk]

Merhaba,
Aşağıdaki satırı sildiğinizde her iki dosya açık kalacaktır.

Documents(dsy2).Close

 

[tukayf]

Çok teşekkürler hocam zihninize sağlık.