[VB] Aplikacja do zbiorowego zapisywania *.doc jako *.html

0

Witam
Mam taki problemik: jak napisać aplikację w VisualBasicu .NET (lub w czymkolwiek innym), która pozwoli mi na zapisywanie dokumentu *.doc jako *.html, ale bez potrzeby każdorazowego otwierania dokumentu?
Chodzi mi o coś takiego, co pozwoli wskazać dany katalog z plikami *.doc i cały proces zapisu przebiegnie po cichu.

Nie chodzi mi o szczegółowy kod programu, ale sam pomysł rozwiązania (np. jakie kotrolki wykorzystać).

Z góry dziękuję i pozdrawiam :)

0

Ja bym użył VBA, robisz prosty formularz podajesz ścieżke do pliku/ów ot i cała filozofia...

0

A może coś więcej?

0

No dobra, rzeczywiście skrócone naprowadzenie ;)

Więc robisz w Wordzie formularz, w którym masz pole na wpisanie ścieżki
Potem sprawdzasz czy ścieżka istnie itd.
Lecisz pętęlką po plikach w lokalizacji i jeżeli mają rozszerzenie doc to otwierasz je w Wordzie (obiekt Application)
Po otwarciu zapisujesz ten dokument w tej lokalizacji jako html.
I to powtarzasz dla wszystkich plików w katalogu.
Myślę że to Cię naprowadziło bardziej

0

Hmmm...., że to należy przeprowadzić w ten sposób, to ja wiem ;)
Chodziło mi bardziej właśnie o wskazanie na konkretne obiekty/metody, które należy wykorzystać. W VBA jestem raczej początkujący i naprowadzenie na właściwe obiekty po prostu ułatwi mi trochę życie i pozwoli oszczędzić czas.

Mimo wszystko dzięki za odpowiedź.

0

Dobra teraz dokładniej ;)
Robisz formularz w Wordzie (edytor VBA to [alt]+[F11])
Kontrolki to Button i Textbox

W texboxie wpisujesz ścieżke do folderu.

Zczytujesz wszystkie pliki w folderze np:

With Application.FileSearch
    .FileName = "*.doc"
    .LookIn = "C:\Moje dokumenty"
    .Execute
    For I = 1 to .FoundFiles.Count
        MsgBox .FoundFiles(I)
    Next I
End With

otwierasz i zapisujesz jako html:

    Documents.Open FileName:="plik.doc", ConfirmConversions:=False, ReadOnly:= _
        False, AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:= _
        "", Revert:=False, WritePasswordDocument:="", WritePasswordTemplate:="", _
        Format:=wdOpenFormatAuto, XMLTransform:=""
    ActiveDocument.SaveAs FileName:="plik.htm", FileFormat:=wdFormatHTML, _
        LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _
        :="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
        SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
        False
    ActiveWindow.View.Type = wdWebView

ruszy na pewno w Wordzie2003, proponuje nagrywanie makr, bardzo przydatne narzędzie i można się wiele nauczyć...

1 użytkowników online, w tym zalogowanych: 0, gości: 1