macro uitvoeren op meerdere bestanden

[Johny58]

Ik heb de volgende macro gemaakt die ik moet uitvoeren op een groot (lees gigantisch) aantal bestanden. De macro zorgt ervoor dat er een header/footer wordt ingevoerd met het path en de bestandsnaam en dat het bestaande bestand wordt overschreven door het bestand waarbij dus de path en bestandsnaam zijn toegevoegd.

code:

Sub Macro1()
    If ActiveWindow.View.SplitSpecial = wdPaneNone Then
        ActiveWindow.ActivePane.View.Type = wdPrintView
    Else
        ActiveWindow.View.Type = wdPrintView
    End If
    If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
        ActiveWindow.Panes(2).Close
    End If
    If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _
        ActivePane.View.Type = wdOutlineView Then
        ActiveWindow.ActivePane.View.Type = wdPrintView
    End If
    ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
    NormalTemplate.AutoTextEntries("Bestandsnaam en pad").Insert Where:= _
        Selection.Range
    ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
    ActiveDocument.Save
End Sub

Nou heb ik aan de hand van de search en google het een en ander geprobeert maar het lukt me allemaal niet echt. Ik ben uiteindelijk hierop uitgekomen:

code:

Sub Macro1()
Dim d As Document
Dim a As String
  a = Dir("C:\2\*.doc")
  Do Until a = ""
    Set d = Application.Documents.Open("C:\2\" & a)
    If ActiveWindow.View.SplitSpecial = wdPaneNone Then
    ActiveWindow.ActivePane.View.Type = wdPrintView
    Else
        ActiveWindow.View.Type = wdPrintView
    End If
    If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
        ActiveWindow.Panes(2).Close
    End If
    If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _
        ActivePane.View.Type = wdOutlineView Then
        ActiveWindow.ActivePane.View.Type = wdPrintView
    End If
    ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
    NormalTemplate.AutoTextEntries("Bestandsnaam en pad").Insert Where:= _
        Selection.Range
    ActiveDocument.Save
    ActiveDocument.Close
    Loop
End Sub

Maar het lijkt erop dat er helemaal niks gebeurt. Aangezien ik absoluut geen ervaring heb met het werken met macro's hoop ik dat jullie me kunnen helpen. De bedoeling is dus dat alle *.doc bestanden in de aangegeven map worden aangepast.

edit:
Het gaat dus om MS Word 2000 en de Visual Basic Editor die daarbij zit

[ Voor 11% gewijzigd door Johny58 op 10-02-2004 06:05 . Reden: oeps... vergeten ]

[curry684]

Dusse.... is dit een macro voor Adobe Photoshop of voor de Visual Studio.NET IDE?

Hint: ***** Lees dit! Over topictitels in P&W *****