Åbning af mange word filer på én gang

man kunne lave en .bat fil, og smide den i roden:

@echo off
dir *.doc /s /b >files.lst
for /f "delims= tokens=1" %%n in (files.lst) do start winword %%n

ovenstående virker dog ikke på win9x

Lav en søgning efter *.doc filer i stifinderen med start i hovedfolderen, marker alle filerne den fandt med ctrl+a og tryk enter.

hmm har lige prøvet, og word åbner en ny instans for hvert dokument. ikke brugbart.

Ikke sikkert problemet er dette, men hvis du har XP, så prøv at gå ind i Tools - Options - fanebladet View, og fjern hakket i Windows in taskbar.

Fra
http://www.experts-exchange.com/Applications/MS_Office/Q_11310537.html
fik jeg engang dette svar:

Sub BatchTemplateChange()
With Application.FileSearch
  .FileType = msoFileTypeWordDocuments
  .LookIn = "C:\Mijn Documenten\" 'Specify the folder to look from
  .SearchSubFolders = True 'It will include subdirectories !
  .Execute
  For i = 1 To .FoundFiles.Count
      Documents.Open .FoundFiles(i)
      With ActiveDocument
          .UpdateStylesOnOpen = False
          'Change the template path below to the path to a known existing template
          .AttachedTemplate = "C:\Program Files\Microsoft Office\Templates\Normal2.dot"
      End With
      ActiveDocument.Save
      ActiveDocument.Close
  Next i
End With

End Sub

Der skal vist ikke meget redigering til for at få denne macro til at gøre det du gerne vil have.

Noget i retning af:

Sub BatchTemplateChange()
With Application.FileSearch
  .FileType = msoFileTypeWordDocuments
  .LookIn = "C:\Mijn Documenten\" 'Specify the folder to look from
  .SearchSubFolders = True 'It will include subdirectories !
  .Execute
  For i = 1 To .FoundFiles.Count
      Documents.Open .FoundFiles(i)
  Next i
End With

End Sub