åben worddokument fra formular

Prøv nedenstående

Private Sub Command19_Click()
On Error GoTo Err_Command19_Click
    \' Button launches Word and opens a specified document
    \' And runs an optional macro. the macro could print out the word doc and quit
   
    Dim retval As Variant
    Dim DocName, MacroName As String
    \' Drive and Full path to name and location of Word document
    DocName = \"F:\\Somefolder\\MyDoc.doc\"
   
    \'Optional Macro Name. Note Word Macro name cannot have any spaces in it.
    \'MacroName = \"/M\" & \"MacroName\"
   
    \'Note full path to Word including Drive and folder
    retval = Shell(\"c:\\Microsoft Office97\\Office\\WinWord.exe\" & \" \" & DocName & MacroName, vbNormalFocus)

Exit_Command19_Click:
    Exit Sub

Err_Command19_Click:
    MsgBox Err.Description
    Resume Exit_Command19_Click
   
End Sub

Når jeg skriver din kode, får jeg en fejl i word der siger at dokumentnavnet eller stien er ugyldig. Og det er det rigtige dokumentnavn og placering, ved du hvad der kan være galt?

Min kode ser således ud:

Private Sub Command19_Click()
On Error GoTo Err_Command19_Click
    \' Button launches Word and opens a specified document
    \' And runs an optional macro. the macro could print out the word doc and quit
   
    Dim retval As Variant
    Dim DocName, MacroName As String
    \' Drive and Full path to name and location of Word document
    DocName = \"G:\\Databaser\\Access2000\\Reinhard oil\\Reinhard.doc\"
   
    \'Optional Macro Name. Note Word Macro name cannot have any spaces in it.
    \'MacroName = \"/M\" & \"MacroName\"
   
    \'Note full path to Word including Drive and folder
    retval = Shell(\"F:\\Office2000\\Office\\Winword.exe\" & \" \" & DocName & MacroName, vbNormalFocus)

Exit_Command19_Click:
    Exit Sub

Err_Command19_Click:
    MsgBox Err.Description
    Resume Exit_Command19_Click
   
End Sub

nu fik jeg det squ\' til at virke - jeg læste der ikke måtte være mlrum. sorry. svar på indlægget tmceu og du får dine fortjente points.
tak for hjælpen

hej,

Jeg mener ikke at Shell er særlig velegnet, da man skal kende stien til Word på forhånd. Istedet vil jeg anbefale OLE automation.

Det kræver bare, at du sætter en reference til Microsoft Word først.

Public Sub OpenWord()
  Dim Wrd As New Word.Application
  Wrd.Visible = True
  Wrd.Activate
  Wrd.Documents.Open \"E:\\Dokumenter\\WORD\\test.doc\"
  Set Wrd = Nothing
End Sub

/Thomas

Hvad var der galt med mit svar?

/Thomas

Hej thomas,
dit forslag ser godt ud og lettere anvendeligt, men der sker ikke en krone når jeg skal køre koden...

Kommentar til VBA koden:

Dim DocName, MacroName As String

Erklærer kun MacroName som string, DocName er erklæret som variant.

Istedet kunne man skrive:

Dim DocName As String, MacroName As String
og derved spare en lille smule hukommelse

Niels

Har du husket at gå i menuen Tools->References og sætte kryds i \"Microsoft Word x.0 Object Library\"?

Endvidere skal du selvfølgelig ændre stien til dit eget dokument, så koden herefter hedder:

  Dim Wrd As New Word.Application
  Wrd.Visible = True
  Wrd.Activate
  Wrd.Documents.Open \"G:\\Databaser\\Access2000\\Reinhard oil\\Reinhard.doc\"
  Set Wrd = Nothing


mvh
Thomas

PS: Hvorfor afviser du allerede spørgmålene? Du skulle jo lige til at give tmceu point, men kunne ikke, fordi du allerede havde afvist ham. Sålænge du ikke har accepteret et spørgsmål, så ved folk godt, at du ikke er 100% tilfreds endnu.
Grunden til at jeg nævner det, er at det virker en smule negativt, at få afvist sit svar, når man nu ved at man har givet et korrekt svar - Når det ikke virker hos dig, kan det jo være en mindre detalje. F.eks. en skrive fejl fra din egen side eller en versions-konflikt eller lign :o)

OK, jeg forstå hvad du mener. Men det er jo ikke for at være negativ, det var jo en fejl.

Jeg skal nok prøve at lade være med at være for hurtig på aftrækkeren i fremtiden 8o). Egentlig var det også fordi jeg havde misforstået systemet lidt, jeg troede at man skal skulle acceptere/afvise et svar med det samme der kom et nyt indlæg.....og hvis jeg så afviste var det for at få yderligere hjælp.

Helt ok :o)

Du er heller ikke den eneste, der gør det, og jeg er heller ikke klar over, om det kun er mig, der opfatter det negativt...De fleste venter bare med at acceptere/afvise til aller sidst.

Fandt du ud af det med Word?

/Thomas :~)

jep, det virker når man referer til microsoft objekt blabla. Jeg er helt rookie på vba, så alt det der med at referere ved benyttelse af forskellige slags kode osv. - tager nok et stykke tid at sive ind.

Jeg bruger din løsning istedet, men jeg giver points til tcmeu, for han var trods alt først ude. Ikke fordi jeg jonglerer med den største bonus at give ud af, men bare princippet.
tak for hjælpen.

Det er mere fordi jeg skrev at jeg ville give ham dem.

anytime :o)

Nu her når jeg har opmærksomheden fra nogle er jer, er der så nogle der lynhurtig kan svare på, om det er muligt selv at definere nye genvejstaster på F-tasterne, som herefter kan benyttes til at navigere rundt i databasen?

Bare et Ja el. Nej

Søg i hjælpen under Autokeys eller Autotaster.

/Thomas

Tak igen thomas, nu skal jeg nok lade jer være i fred.

numsi >> du er ikke tvunget til at give mig point, fordi jeg var først ude. Det står dig frit for at give point til den bruger hvis løsning du mener er korrekt (sådan har jeg i hvert tilfælde opfattet reglerne). Du bør retfærdigvis give point til thomasjepsen, men du kan jo også dele dem som du finder retfærdigt :-)

Jeg kan nu godt lide, at du svarede hurtigt og rigtigt.

Hej Numsi,

Endnu en lille lektion i netetikette her på eksperten.dk :o)

De 15 point er ligegyldige, men principielt er det forkert, ikke at belønne den, som kommer med det \'rigtige\' svar. Med \'rigtige\' svar, så mener jeg det svar, som du vælger at benytte.
Retfærdigvis bør man belønne, at folk gider bruge tid på at hjælpe én. Og ikke bare den der svare hurtigts (det har jo næsten altid bare noget at gøre med hvem der lige er online på det tidspunkt). Og da det er pointene, som holder dette site kørende, så burde du måske have delt pointene ligeligt - eller have givet ekstra-point, så begge parter kunne få 15 point.
Jeg skriver ikke dette for at kritisere - jeg er klar over, at du kun har været på en lille måneds tid. Men hvis der var flere point med i spillet, så kunne du godt risikere, at nogle kunne blive sure over ikke at få point i dette tilfælde.

Anyway; held og lykke fremover her på sitet :o)
/Thomas