Nije jasno šta dalje treba da radiš sa tim kodom

Pošto je u pitanju funkcija potrebno je da napraviš proceduru (Sub) iz koje je starturješ. Prilikom poziva ove funkcje prosleđuješ argument koji si naveo
Pozvana funkcija će vratiti rezultat - string za izabrani folder sa kojim dalje radiš šta treba.

Sub testhello()
Dim file
Dim path As String


path = "C:\Users\Korisnik\Downloads\RAD VBA\"

file = Dir(path & "*.doc")
Do While file <> ""
Documents.Open FileName:=path & file

Call SelectBullets
Call DeleteSelection

ActiveDocument.Save
ActiveDocument.Close

file = Dir()
Loop

End Sub
___________________________________________________________________
Sub SelectBullets()
On Error Resume Next
Dim Para As Word.Paragraph
With ActiveDocument
.DeleteAllEditableRanges (-1)
For Each Para In .Paragraphs
If Para.Range.ListFormat.ListType > 0 Then
Para.Range.Editors.Add (-1)
End If
Next
.SelectAllEditableRanges (-1)
.DeleteAllEditableRanges (-1)
End With
End Sub
___________________________________________________________________
Sub DeleteSelection()

Selection.Find.Execute
Selection.Delete

End Sub






a ovo path = "C:\Users\Korisnik\Downloads\RAD VBA\" bih promeno da ide u dijalog boxu da biram putanju, a ne da stalno menjam u vba putanju. To pokusavam ali nikako

Umesto



u



VBA DIR Function – An Easy Explanation with Examples
trumpexcel.com/vba-dir-function/

Probao sve ali nece

Da li sada sve treba da spojim?

Function GetFolder(strPath As String) As String
Dim fldr As FileDialog
Dim sItem As String
Set fldr = Application.FileDialog(msoFileDialogFolderPicker)
With fldr
.Title = "Select a Folder"
.AllowMultiSelect = False
.InitialFileName = strPath
If .Show <> -1 Then GoTo NextCode
sItem = .SelectedItems(1)
End With
NextCode:
GetFolder = sItem
Set fldr = Nothing
End Function

Sub Test()
Dim Path As String
' Poziv funkcije sa parametrom
Path = "C:\Users\Korisnik\Downloads\RAD VBA\"
IzabraniFolder = GetFolder(Path)
' Ispis rezultata funkcije
Debug.Print IzabraniFolder

End Sub

path = GetFolder("")

' Ako je promenljiva prazan string onda...
if len(trim(path))=0 then
msgbox "Niste odabrali putanju."
exit sub
end if

' Moze da se proveri i da li odabrani direktorijum/putanja koja je dodeljena promenljivoj path stvarno postoji ili ne
' Pozeljno koristiti naimenovanje dim sPath as string ... sPath = "" ...