Layout af skabelon oversigt i Word

Har prøvet, kunne ikke få det til at virke.

Det har heller ikke kunnet lykkedes for mig. Men du kan ramme Følgeskrivelse.dot ved at trykke F (hvis følgeskrivelsen er den første) - mener også, at du kan skrive føl... indtil du finder den rigtige skabelon.

Ja, det var nu et svar...!

Det er måske en slags løsning - men skabelonerne hedder næsten det samme (notat, notat eng, brev, brev eng, brev flet) ..... og jeg vil ikke ændre navnene
jeg afventer & håber på flere ideer

ellers må jeg vel kunne lave en makro, der vise skabeloner ved opstart af Word

Ja, det skulle være til at lave en lille dialogboks, med et listbillede som viser alle *.dot filer fra et eller flere biblioteker, og ved valg starter en kopi her af.
Du kan snilt lave en menu til højre for \"Hjælp\", så dialogboksen kan startes igen og igen.

Du kan i stedet oprette forskellig mapper, inde i den mappe der formantlig hedder skabeloner eller templates, altså den mappe skabelonerne ligger i nu.

Hver mappe bliver så til at faneblad i oversigten. Så kan du dele op i breve, notater, fax etc.og så lægge de tilhørende skabeloner i disse mapper.

mvh P

>> piphans
Det har jeg allerede - under fanerne ligger Words standarder og mine kollegers i den øverste ligger \'bare\' mine egne - det bliver for besværligt at vælge yderligere et niveau ned.
Jeg er også mest bare irriteret over at Word ikke bare husker hvordan jeg vil have mappen vist !

Hvis der ikke kommer egentlig gode ideer lukker jeg spørgsmålet på mandag - så må i dele pointene

Hvilken version af Word kører du?

Min husker hvilken visning jeg brugte sidst, altså skal man kun ændre den en gang.

P

Jeg bruger Word 97 SR2 - og den husker intet !

michaelprehn>>> hvis du vil lave nummeret, med at liste alle filer i et bibliotek i en listbox, så har du grundstammen til koden her.

Sub FindAllFileNamesInFolder()
Dim iX As Integer, iZ As Integer
Dim strFileNames() As String
Dim strTmpFileName As String
Dim strFilePath As String

    strFilePath = \"D:\\Temp\\Newsgroups\\\"

\'Indlæsning af filer til et array
        iX = 0
        ReDim Preserve strFileNames(iX)
        strTmpFileName = Dir(strFilePath)
        strFileNames(iX) = strTmpFileName
    Do
        iX = iX + 1
        strTmpFileName = Dir
        If strTmpFileName <> \"\" Then
            ReDim Preserve strFileNames(iX)
            strFileNames(iX) = strTmpFileName
        Else
            Exit Do
        End If
    Loop
   
    For iZ = 0 To iX - 1
        Debug.Print strFileNames(iZ)
    Next iZ
End Sub

Udskift Debug.Print sætningen med additem til listbox\'en, og lav lidt kode for at åbne den valgte skabelon.

Du kunne jo evt. lave flere lister, og sortere på breve osv..

Hvis det er en virksomhedsløsning, som du skal have lavet, så kan den jo altid købes :-) klik på mit navn for yderligere info.

Det ser ud til at I må dele, den ideelle løsninge udebliver jo !