VBA kode fejler på en PC

Der må mangle et "If" foran Mid og et End If efter koden.

Hvad er fejlmeddelelsen/fejlnummeret?

Jeg undrer mig over kodens opbygning. Den siger:
Hvis det aktive dokument ikke hedder noget med "Dokument" først, skal koden gemme_ alle_ åbne dokumenter. Man ved i almindelighed ikke noget om andre åbne dokumenter ved blot at tjekke navn på ét dokument. Er det hensigten, at alle åbne dokumenter skal gemmes - eller skulle det blot have været det aktive dokument?

Kun det aktive dokument. Beklager lige svartiden, har været lidt "ophængt" og har ikke haft fokus på dette problem.

Koden som vist kan ikke køre nogen steder. Den mangler som nævt "If" og "End If". Hvis koden rettes til dette:

If Mid(ActiveDocument.Name, 1, 8) <> "Dokument" Then
        Documents.Save NoPrompt:=True, _
        OriginalFormat:=wdOriginalDocumentFormat
End If

vil den gemme ALLE ÅBNE DOKUMENTER uden at spørge om noget.

For at gemme blot det aktive dokument, skal der ændres. Lige et opklarende spørgsmål for at finde ud af, hvad det er meningen, I vil opnå:
Er det meningen, at koden blot skal gemme dokumentet, hvis det ikke tidligere har været gemt, og bruge det tilfældige navn "Dokument X", hvor X er det tilfældige nr., Word er kommet til i den indeværende Word-session? Det ser det ud til, men det lyder for mig ikke specielt hensigtsmæssigt.

Rettelse til min sidste post: den eksisterende makrokode ser ud til at skulle gemme alle åbne dokument, som i forvejen HAR VÆRET gemt - ikke omvendt, som jeg skrev.

Lukket