Titels in bulk verwijderen

[bakkietje]

Beste,

Is er een manier om van meerdere Office-documenten tegelijk de ooit ingestelde titel (onder eigenschappen) te verwijderen?

Bedankt!

 

[OctaFish]

Je kunt macro met een lus routine maken die de bestanden opent, titel leegmaakt en document weer sluit.

 

[bakkietje]

En kan een niet-programmeur dat?

 

[OctaFish]

Lijkt me sterk; je kunt het handmatig doen uiteraard

 

[bakkietje]

Iemand een idee van een of ander progje?

 

[OctaFish]

Zoals ik al zei: je hebt daar een macro voor nodig. Bijvoorbeeld deze:

Sub TitelsWissen()
Dim Pad As String
Dim sFile As String
Dim iCheck As Variant

    Pad = CurDir
    Pad = InputBox("Selecteer een map...", "Typ een pad", Pad)
    If Len(Pad) Then
        sFile = Dir(Pad & "*.doc")
        Do While sFile <> ""     ' Start the loop.
            Documents.Open FileName:=sFile
            If ActiveDocument.BuiltInDocumentProperties("Title").Value <> "" Then
                iCheck = MsgBox("Wil je de titel " & ActiveDocument.BuiltInDocumentProperties("Title").Value _
                    & " verwijderen?", vbYesNo)
                If iCheck = vbYes Then ActiveDocument.BuiltInDocumentProperties("Title").Value = ""
                ActiveDocument.Close savechanges:=wdSaveChanges
            End If
            sFile = Dir    ' Get next entry.
        Loop
    Else
        MsgBox "Er is op <Cancel> gedrukt..."
    End If

End Sub

Deze macro vraagt om een pad, opent vervolgens elk document en controleert of de titel leeg is of niet. Vervolgens wordt gevraagd of je de titel wilt wissen.