Ændring af textdokumenter !

Det var mange *S*

Her er en løsning:

Sub FællesSkriftyper()

  With Application.FileSearch
        .NewSearch
        .LookIn = "C:\WINDOWS\Skrivebord"
        .FileName = "*.doc"
        .SearchSubFolders = True
        .Execute
        .FileType = msoFileTypeWordDocuments
       
        For i = 1 To .FoundFiles.Count
            Documents.Open FileName:=.FoundFiles(i)
            Selection.WholeStory
            With Selection.Font
                .Name = "Arial Black"
                .Size = 9
            End With
            ActiveDocument.Close SaveChanges:=wdSaveChanges
        Next
    End With
End Sub

Hvor skal jeg køre det?

Nu ved jeg jo ikke om du kender til VBA, men jeg ville ligge det i et modul i Normal.dot.

Metode:
Åbn Word *S*
Tryk Alt+F11
Vælg Normal.dot i projektstifinderen (til venstre i billedet)
Vælg Insert/Module
Kopier koden ind i det indsatte modul

Tilpas koden, så den passert til dine behov f.eks.:

LookIn = "C:\WINDOWS\Skrivebord" - skriv stien til dine filer
.Name = "Arial Black" - skriv den skrifttype du vil have
.Size = 9 - skriv den skriftsstørrelse du ønsker

Mvh

Richardt

Nej jeg kender ikke til det, men nu kan jeg jo prøve. Findes der en liste over hvordan man ændrer de forskellige ting?

Du kan prøve at optage en makro, hvor du ændrer til den skrifttype og størrelse som du ønsker. Det gør du via Funktoner/makro/Optag.

Vælg derefter Funktioner/makro/makroer
Marker din makro og vælg rediger
Nu står du i din makro og kan se navnet på den valgte skrifttype

Kopier skriftypenavnet ind i ovenstående makro, hvor der nu står "Arial Black"

FANTASTISK, og spændene at eksperimentere med, tusind tak for hjælpen!

-Jonas