Autoload af makro

Du skal i shortcut'en der starter word tilføje denne parameter:

/m<macroname>

Så kører den makroen <macroname> når Word startes....

Hmmm, med shortcut "WINWORD.EXE /m <Bruger> siger den "The document name or path is not valid". Uden <> siger den, at den ikke kan finde Bruger.doc (med shortcut: "WINWORD.EXE /m Bruger").

Og makroen er der kan jeg se, når jeg kigger i listen (og den virker også - er afprøvet).

Du skal ikke have <>'erne med.

I shortcut'en kan der fx. stå følgende:

"C:\Program Files\Microsoft Office\Office\Winword.exe" /mTEST

Så starter den makroen med navnet TEST.

Husk, at den starter makroen inden den loader templates. Så hvis du vil have den til at åbne Bruger.doc skal du lave en makro, der åbner Bruger.doc - og så køre den med /m parametren. Der skal ikke være noget mellemrum mellem /m og makronavnet.

Du kan også skrive:

/ttemplatename

Så loader den den template, som du angiver.

Kunne du lave makroen (please)? Den skal bare bed om et brugervalg. Fra en liste, skal man så bare kunne vælge mellem bruger1, bruger2 og gæst (den præcise tekst, kan jeg altid selv lave). Hvis man vælger bruger1, så skal der oprettes et dokument fra skabelonen bruger1.dot og så videre.

Joh, det kunne jeg vel godt. Men det er ikke noget man (ihvertilfælde jeg)
lige laver på ti minutter... Såehh - nok ikke for 30 point...

OK, hvor mange points skal du have for det, så kan jeg bare lave et nyt spørgsmål?

Men ellers tak for hjælpen, det var mellemrummet det var galt med i første omgang.

Til inspiration:
Her er en primitiv løsning, som fungerer i Word97. Burde kunne laves til Word6 uden de store krumspring.


Sub Autoexec()
Dim strBruger As String
Dim fLoginOK As Boolean

LoginOK = False
Do While Not fLoginOK
    strBruger = InputBox("Bruger1, Bruger2 eller Gæst?", "Bruger", "Gæst")
    Select Case LCase(strBruger)
        Case "bruger1"
            fLoginOK = True
            Documents.Add "C:\skabeloner\bruger1.dot"
        Case "C:\skabeloner\bruger2"
            fLoginOK = True
            Documents.Add "bruger2.dot"
        Case "gæst"
            fLoginOK = True
            Documents.Add "C:\skabeloner\gæst.dot"
        Case Else
            If MsgBox("Bruger kan ikke genkendes, vil du prøve igen?", vbYesNo + vbQuestion, "Ukendt bruger") = vbNo Then
                fLoginOK = True
            End If
    End Select
Loop
   
End Sub

Ups øverste LoginOK skal hedde fLoginOK - (ikke at det betyder noget for afviklingen)

swjensen >> Tak skal du have, men jeg får en Err=100 meddelelse. Hver eneste gang jeg gemmer makroen, så smadrer word fuldstændig opsætningen (fjerner linieskift) og det er forskelligt hvad den gør hver gang - hvad sker der???

Hm, WordBasic forstår nok ikke kommandoer som Document.Add.
Prøv med
FilerNyt "C:\skabeloner\xxx.dot"
i stedet for

Jeg kan slet ikke få det til at fungere. Den kan heller ikke finde ud af første og sidste linie. Hvis jeg ændrer navnet til sub MAIN, så brokker den sig over linie 2 i stedet. Det kører bare slet ikke :-(

Tjo, jeg tror nu nok, at WB forstår Document.Add.