Ga naar inhoud

Aanbevolen berichten

Geplaatst:

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?

Geplaatst:
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.

Geplaatst:
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

Geplaatst:

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

 

Geplaatst:

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.
 

 

Geplaatst:

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

Geplaatst:
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.

Gast
Dit topic is nu gesloten voor nieuwe reacties.
×
×
  • Nieuwe aanmaken...

Belangrijke informatie

We hebben cookies geplaatst op je toestel om deze website voor jou beter te kunnen maken. Je kunt de cookie instellingen aanpassen, anders gaan we er van uit dat het goed is om verder te gaan.