Ga naar inhoud

Titel aanpassen groep documenten


Obsolium
 Delen

Aanbevolen berichten


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.

Link naar reactie
Delen op andere sites


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

 

Link naar reactie
Delen op andere sites


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

Link naar reactie
Delen op andere sites

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.

Link naar reactie
Delen op andere sites

Gast
Dit topic is nu gesloten voor nieuwe reacties.
 Delen

×
×
  • Nieuwe aanmaken...