Titel aanpassen groep documenten

[Obsolium]

Hallo,

Ik heb een grote hoeveelheid Word documenten waar ik onder bestand en dan eigenschappen overal dezelfde titel heb staan. Die wil ik in 1 keer allemaal een ander naam geven.

Is bij iemand bekend hoe ik dat kan doen?

[alpha]

Op 1-2-2018 om 19:14, Obsolium zei:

Ik heb een grote hoeveelheid Word documenten waar ik onder bestand en dan eigenschappen overal dezelfde titel heb staan.

Redelijkerwijs gesproken kan dat niet.

In een folder kunnen geen 2 Worddocumenten dezelfde naam hebben.

[alpha]

Ook vermeld je niet welke nieuwe namen je aan de Worddocumenten wil geven.

[Obsolium]

6 uren geleden, alpha zei:

Ook vermeld je niet welke nieuwe namen je aan de Worddocumenten wil geven.

Hallo bedankt voor de reactie: het gaat hier niet om de filenaam van de word bestanden maar om de titlelnaam, te vinden onder "stand" - eigenschapen en dan Titel

[alpha]

Gebruik onderstaande macro in een Worddocument dat niet in de map staat waarin je documenttitels wil wijzigen.

Vul bij mydir het pad in dat van toepassing is op jouw computer en natuurlijk ook verderop in de macro de juiste titel voor al die documenten.

Sub Titel_wijzigen()
Dim fso, folder, files, mydir As String
Application.Visible = False
mydir = "Hier het pad op jouw computer invullen"
Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder(mydir)
Set files = folder.files
For Each file In files
Documents.Open FileName:=file.path
With ActiveDocument
.BuiltInDocumentProperties(wdPropertyTitle) = "Mijn titel"
.Close (wdSaveChanges)
End With
Next file
Application.Visible = True
End Sub

 

[Obsolium]

Hallo Alpha, waaauw, geweldig, het werkt perfect. Echt super beankt hiervoor !!!

[alpha]

Mooi zo, en dank voor je reactie.
De macro in je topic over het omzetten van Wordbestanden naar pdf's doet het ook goed, neem ik aan?

Op mijn computer in elk geval wel.
 

 

[Obsolium]

Hallo Alpha, waaauw, geweldig, het werkt perfect. Echt super beankt hiervoor !!!

[Obsolium]

Hoi Alpha, heb die andere nog niet geprobeerd, ff nog geen tijd voor gehad. Ga ik het weekend mee aan de gang.

Bij de eigenschappen staan op "opmerkingen" daar staan in diverse Word documenten ook nog een regel die aangepast moet worden. 

Dus moet toch nog een stukje handmatig doen. Maar voor nu flink geholpen.

 

Resultaat van die andere macro ga ik je nog melden !!

 

Greetz

[alpha]

1 uur terug, Obsolium zei:

Bij de eigenschappen staan op "opmerkingen" daar staan in diverse Word documenten ook nog een regel die aangepast moet worden. 

Dus moet toch nog een stukje handmatig doen.

Dat hoeft niet handmatig. Als je de macro hierboven goed bekijkt, dan kun je toch wel bedenken dat die macro slechts een kleine aanpassing behoeft om in plaats van de titel het item "Opmerkingen" te wijzigen? Wijzig

.BuiltInDocumentProperties(wdPropertyTitle) = "Mijn titel"

in:

.BuiltInDocumentProperties(wdPropertyComments) = "Mijn opmerking"

waarbij je in plaats van "Mijn opmerking" een zelfgekozen tekst kiest.