Script MS Word 2010 untuk membuka File HTM dan Simpan Sebagai file DOCX

4

Saya memiliki banyak file .htm dan saya ingin mereka menjadi file .docx. Bagaimana saya bisa skrip Word untuk membuka semuanya dan menyimpannya sebagai file .docx?

Saya baik-baik saja dengan memulai proses secara manual. Saya tidak membutuhkan sesuatu yang akan menunggu lebih banyak file, hanya sesuatu yang akan berjalan sesuai permintaan dan memproses seluruh folder file.

Zach
sumber

Jawaban:

5
Sub ConvertHTMtoDOCX()

    With Application.FileDialog(msoFileDialogFolderPicker)
        .AllowMultiSelect = False
        .InitialView = msoFileDialogViewList
        .Show
        strPath = .SelectedItems.Item(1) + "\"
    End With

    strFilename = Dir(strPath & "*.htm")

    While Len(strFilename) <> 0
        Set myDoc = Documents.Open(strPath & strFilename)
        strNewName = strPath & strFilename & ".docx"
        myDoc.SaveAs FileName:=strNewName, FileFormat:=wdFormatDocumentDefault
        myDoc.Close SaveChanges:=wdDoNotSaveChanges
        strFilename = Dir()
    Wend

End Sub

Diuji dengan 2 file .HTM di desktop saya, Windows 7 x64 dan Office 2013

nixda
sumber
Sepertinya ini seharusnya berfungsi, sepertinya cukup lurus ke depan, tetapi mengeluhkan tentang baris: myDoc.SaveAs FileName: = strNewName, FileFormat: = wdFormatDocumentDefault
Zach
Kesalahan run-time 91: Variabel objek atau Dengan variabel blok tidak disetel
Zach
Bagi saya ini berhasil. Anda harus men-debug-nya. Ketika kesalahan terjadi, hover mouse di atas strPath, strFilenamedan strNewNamedan mencari nilai-nilai apa yang ada di dalamnya. Anda juga dapat mengeklik kanannya dan "Tambahkan arloji" untuk melihatnya. Juga, buka jendela dan ketik immidiate ?wdFormatDocumentDefaultdan tekan enter untuk melihat nilai integer yang mendasari konstanta itu
nixda
Terima kasih. Masalahnya adalah salah satu file bernama .htm tanpa nama sebenarnya. Setelah saya menamainya, makro dapat mulai memproses semua file di folder.
Zach