Hjælp til Word vba script

Lidt inspiration - måske:

Sub CommandButton1_Click()
Dim sfList

    Dim strFilePath As String
    Dim strPath As String
    Dim intCounter As Integer
    Dim strFileName As String
    Dim OldServer As String
    Dim objDoc As Document
    Dim objTemplate As Template
    Dim dlgTemplate As Dialog
    Dim nServer As Integer

    'hardcode the name of the old server.


    OldServer = "filserver"
    nServer = Len(OldServer)
    strFilePath = InputBox("What is the folder location that you want to use?")


    OldServer = "filserver"
    nServer = Len(OldServer)
    strFilePath = InputBox("What is the folder location that you want to use?")

    If Right(strFilePath, 1) <> "\" Then strFilePath = strFilePath & "\"
        sfList = bygSubFolderList(strFilePath)  'HER OPBYGGES LISTE OVER SUBFOLDERS PÅ DET VALGTE STINIVEAU
        MsgBox (sfList)                        'Her vises disse
       
Rem men denne process skal gentages for hver subfolder - indtil der ikke er flere

        strFileName = Dir(strFilePath & "*.doc")
       
        Do While strFileName <> ""
        Set objDoc = Documents.Open(strFilePath & strFileName)
        Set objTemplate = objDoc.AttachedTemplate
        Set dlgTemplate = Dialogs(wdDialogToolsTemplates)
        strPath = dlgTemplate.Template
   
    If LCase(Left(strPath, nServer)) = LCase(OldServer) Then
        objDoc.AttachedTemplate = NormalTemplate
    End If

    strFileName = Dir()
    objDoc.Save
    objDoc.Close

    Loop

    Set objDoc = Nothing
    Set objTemplate = Nothing
    Set dlgTemplate = Nothing

End Sub
Private Function bygSubFolderList(folderspec)  'HER OPBYGGES LISTEN
    Dim fs, f, f1, s, sf
    s = ""
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFolder(folderspec)
    Set sf = f.SubFolders
    For Each f1 In sf
        s = s & f1.Name + "|"
    Next
   
    bygSubFolderList = s
End Function

Tak for dit svar

Den er desværre ikke helt nok, da jeg pt. ikke ved hvor mange undermapper der er.

Hvis nu jeg looper en mappe igennem med Dir hvordan kan jeg så se om den enkle ”fil” er en mappe eller om det er en ”normal” fil.

Det var også kun lidt inspiration - skal nok prøve lidt mere.....