FileFormat

[agent1980]

Merhabalar...

Word içerisinde makro kaydı sayesinde dos uzantılı dosyayı .mht formatına çeviren makroyu

Sub Macro1()
'
' Macro1 Macro
' Macro recorded 26.05.2007 by agent1980
'
    ChangeFileOpenDirectory "C:\Documents and Settings\agent1980\Desktop\"
    ActiveDocument.SaveAs FileName:="deneme.mht", _
        FileFormat:=wdFormatWebArchive, LockComments:=False, Password:="", _
        AddToRecentFiles:=True, WritePassword:="", ReadOnlyRecommended:=False, _
        EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, SaveFormsData _
        :=False, SaveAsAOCELetter:=False
    ActiveWindow.View.Type = wdWebView
End Sub

şeklinde buldum..
Peki buna benzer şekilde alt alta klasörler ve içerisinde karışık yerlerde bulunan doc dosyalarını makro yardımı ile hepsini birden .mht dosyasına nasıl çevirebilirim?

Teşekkürler...

 

[agent1980]

Merhabalar...

Bu şekilde olabildi...

word içerisinde visual basic editor module içerisine bu şekilde bir kod ekledim

Sub deneme()

On Error Resume Next

Dim klasoryolu As String

klasoryolu = InputBox("klasor yolunu giriniz...", "klasor yolu", Default)


With Application.FileSearch
    .FileName = "*.doc"
    .LookIn = klasoryolu
    .Execute
    For I = 1 To .FoundFiles.Count
        
   Documents.Open FileName:=.FoundFiles(I), ConfirmConversions:= _
        True, ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:="", _
        PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _
        WritePasswordTemplate:="", Format:=wdOpenFormatAuto, XMLTransform:=""
    ActiveDocument.SaveAs FileName:=.FoundFiles(I) & ".mht", FileFormat:= _
        wdFormatWebArchive, LockComments:=False, Password:="", AddToRecentFiles:= _
        True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:= _
        False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
        SaveAsAOCELetter:=False
    ActiveDocument.Close (savechanges = True)
 ' bu kısıma eski dosyayı silmek için hangi satırı eklemeliyim?
  
    Next I
End With
End Sub

... ama sanki biraz kaba gibi oldu daha kullanışlı nasıl olabilir? mesela sadece mht olarak işlem yapabiliyorum diğer bütün formlarda farklı kaydet seçeneğini toplu olarak nasıl kullanabiliriz.

Bir de benim yaptığım bu örneğe dosya silmeyi ekleyemedim yani farklı kaydet işlemini yaptıktan sonra eski dosyayı nasıl silebilir.

Teşekkürler....