Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

konvertovanje vise html-a u vise word dokumenta

[es] :: Office :: Word :: konvertovanje vise html-a u vise word dokumenta

Strane: 1 2

[ Pregleda: 2773 | Odgovora: 25 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

bokinet

Član broj: 29844
Poruke: 480



+42 Profil

icon Re: konvertovanje vise html-a u vise word dokumenta11.09.2018. u 14:28 - pre 30 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: 488
82.208.214.*



+2 Profil

icon Re: konvertovanje vise html-a u vise word dokumenta11.09.2018. u 18:59 - pre 30 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: 480



+42 Profil

icon Re: konvertovanje vise html-a u vise word dokumenta11.09.2018. u 19:28 - pre 30 meseci
sorry, nisam najbolje razumeo sta se hoce...
 
Odgovor na temu

vojvoda1010
nezaposlen

Član broj: 310516
Poruke: 488
82.208.214.*



+2 Profil

icon Re: konvertovanje vise html-a u vise word dokumenta12.09.2018. u 19:52 - pre 30 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: 480



+42 Profil

icon Re: konvertovanje vise html-a u vise word dokumenta12.09.2018. u 21:58 - pre 30 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: 488
82.208.214.*



+2 Profil

icon Re: konvertovanje vise html-a u vise word dokumenta14.07.2019. u 09:48 - pre 20 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

[es] :: Office :: Word :: konvertovanje vise html-a u vise word dokumenta

Strane: 1 2

[ Pregleda: 2773 | Odgovora: 25 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.