[es] - konvertovanje vise html-a u vise word dokumenta

bokinet

Član broj: 29844
Poruke: 574

+50 Profil

Re: konvertovanje vise html-a u vise word dokumenta

^{11.09.2018. u 14:28 - pre 68 meseci}

Evo f-je koja sluzi za prikaz tkz. dialog Browse for folders.

Pored iste, dat je i primer kako moze ista da se pozove.

Ovo moze da se modifikuje shodno potrebama.

U vasem slucaju, znaci f-ja se poziva dva puta - kako ste naveli za 'da mogu da biram folder iz koga konvertujem i folder u koji konvertujem'.

U svakom slucaju sta je sa nazivimi file-ova, posto folder (direktorijum) i file nisu isto?

Code:

Public Function DialogBrowseForFolder(Optional ByVal MultiSelect As Boolean = False, Optional InitialFileName As String = "") As String

    On Error GoTo ErrHandler

    Dim f As FileDialog
    Dim r As String

    r = ""

    Set f = Application.FileDialog(msoFileDialogFolderPicker)

    With f

        .Title = "Odaberite lokaciju (folder)"

        .AllowMultiSelect = MultiSelect

        .InitialFileName = InitialFileName

        If .Show = -1 Then r = .SelectedItems(1)


    End With

    If Len(Trim(r)) > 0 Then If Right(r, 1) <> "\" Then r = r & "\"

    Debug.Print Now, "DialogBrowseForFolder()", MultiSelect, InitialFileName, "Return value: "; r

    DialogBrowseForFolder = r

    Set f = Nothing

Exit Function
ErrHandler:
    ' Prikazi poruku
    MsgBox "Doslo je do greske prilikom pokusaja odabira lokacije (folder)" & vbCrLf & vbCrLf & "Greska #" & Err.Number & " - " & Err.Description, vbCritical, ""
    Debug.Print Now, "DialogBrowseForFolder() Error", MultiSelect, InitialFileName, r
End Function

Sub PrimerKoriscenja()

    Dim r As String

    r = DialogBrowseForFolder(False, "")

    If Len(Trim(r)) > 0 Then

        Debug.Print "Lokacija je odabrana. Lokacija: "; r

    Else

        Debug.Print "Lokacija nije odabrana."

    End If

End Sub

Odgovor na temu

vojvoda1010
nezaposlen

Član broj: 310516
Poruke: 547
82.208.214.*

+2 Profil

Re: konvertovanje vise html-a u vise word dokumenta

^{11.09.2018. u 18:59 - pre 68 meseci}

ChangeFileOpenDirectory "C:\Users\Korisnik\Desktop\PRAKSA SUDOVA\APELACIONU SUD KRAGUJEVAC\naknada stete\html\"

ChangeFileOpenDirectory "C:\Users\Korisnik\Desktop\PRAKSA SUDOVA\APELACIONU SUD KRAGUJEVAC\naknada stete\html\"

to sam hteo u ovom delu koda da iskoristim, ako mi se dokumenta nalaze u drugom folderu a ne navedenom u kodu

Odgovor na temu

bokinet

Član broj: 29844
Poruke: 574

+50 Profil

Re: konvertovanje vise html-a u vise word dokumenta

^{11.09.2018. u 19:28 - pre 68 meseci}

sorry, nisam najbolje razumeo sta se hoce...

Odgovor na temu

vojvoda1010
nezaposlen

Član broj: 310516
Poruke: 547
82.208.214.*

+2 Profil

Re: konvertovanje vise html-a u vise word dokumenta

^{12.09.2018. u 19:52 - pre 68 meseci}

pa se u prethodnom kodu ubaci putanja (folder) iz koje se povlaci html, do putanje gde se konvertovani word salje (folder)

Odgovor na temu

bokinet

Član broj: 29844
Poruke: 574

+50 Profil

Re: konvertovanje vise html-a u vise word dokumenta

^{12.09.2018. u 21:58 - pre 68 meseci}

Ja vas opet nisam razumeo kao i na koji prethodni kod se odnosi sto ste naveli...

Malo vise pojasnjenja, uzoraka, primer i sl. nije na odmet - ako zelite da vas neko razume su dobro dosli!

Odgovor na temu

vojvoda1010
nezaposlen

Član broj: 310516
Poruke: 547
82.208.214.*

+2 Profil

Re: konvertovanje vise html-a u vise word dokumenta

^{14.07.2019. u 09:48 - pre 58 meseci}

kako ova dva koda spojiti:

Sub convertToWord()
Dim MyObj As Object, MySource As Object, file As Variant
file = Dir("C:\Users\Korisnik\Desktop\PRAKSA SUDOVA\APELACIONU SUD KRAGUJEVAC\naknada stete\html\" & "*.html") 'pdf path
Do While (file <> "")
ChangeFileOpenDirectory "C:\Users\Korisnik\Desktop\PRAKSA SUDOVA\APELACIONU SUD KRAGUJEVAC\naknada stete\html\"
Documents.Open FileName:=file, ConfirmConversions:=False, ReadOnly:= _
False, AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:= _
"", Revert:=False, WritePasswordDocument:="", WritePasswordTemplate:="", _
Format:=wdOpenFormatAuto, XMLTransform:=""
ChangeFileOpenDirectory "C:\Users\Korisnik\Desktop\PRAKSA SUDOVA\APELACIONU SUD KRAGUJEVAC\naknada stete\html\" 'path for saving word
ActiveDocument.SaveAs2 FileName:=Replace(file, ".html", ".docx"), FileFormat:=wdFormatXMLDocument _
, LockComments:=False, Password:="", AddToRecentFiles:=True, _
WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
False, CompatibilityMode:=15
ActiveDocument.Close
file = Dir
Loop
End Sub

Public Function DialogBrowseForFolder(Optional ByVal MultiSelect As Boolean = False, Optional InitialFileName As String = "") As String

On Error GoTo ErrHandler

Dim f As FileDialog
Dim r As String

r = ""

Set f = Application.FileDialog(msoFileDialogFolderPicker)

With f

.Title = "Odaberite lokaciju (folder)"

.AllowMultiSelect = MultiSelect

.InitialFileName = InitialFileName

If .Show = -1 Then r = .SelectedItems(1)

End With

If Len(Trim(r)) > 0 Then If Right(r, 1) <> "\" Then r = r & "\"

Debug.Print Now, "DialogBrowseForFolder()", MultiSelect, InitialFileName, "Return value: "; r

DialogBrowseForFolder = r

Set f = Nothing

Exit Function
ErrHandler:
' Prikazi poruku
MsgBox "Doslo je do greske prilikom pokusaja odabira lokacije (folder)" & vbCrLf & vbCrLf & "Greska #" & Err.Number & " - " & Err.Description, vbCritical, ""
Debug.Print Now, "DialogBrowseForFolder() Error", MultiSelect, InitialFileName, r
End Function

Sub PrimerKoriscenja()

Dim r As String

r = DialogBrowseForFolder(False, "")

If Len(Trim(r)) > 0 Then

Debug.Print "Lokacija je odabrana. Lokacija: "; r

Else

Debug.Print "Lokacija nije odabrana."

End If

End Sub

Odgovor na temu