Avatar billede yeti Nybegynder
18. januar 2002 - 09:22 Der er 6 kommentarer og
1 løsning

Knap til at åbne doc.

Jeg skal lave en knap der kan åbne et document.

Hvis dokumentet nu ligger i d:\\hat\\hue.doc

Hvad skal koden så være?
18. januar 2002 - 09:29 #1
Option Explicit
\'***********************************************
\'*** Ref.: Microsoft Word 9.0 Object Library ***
\'***********************************************
Public WordApp As Word.Application
Public WordDoc As Word.Documents

Sub UseWordFromExcel()
    Application.ScreenUpdating = False

    On Error GoTo ShitHappens
   
    \'Starter word - giver fejl hvis Word ikke er startet
    \'Hvorfor der er indbygget fejlstyringen
    Set WordApp = GetObject(, \"Word.Application\")
    WordApp.Visible = True
    WordApp.Activate
   
   
    WordApp.Documents.Open \"D:\\hat\\hue.doc   
   

    Application.ScreenUpdating = True

  Exit Sub
ShitHappens:
  Select Case Err.Number
    Case 429
      \'Hvis Word ikke er startet
      Set WordApp = CreateObject(\"Word.Application\")
      \'Til styring af om vi har startet Word op eller Ej
      WordStartet = True
      \'Fortsætter programmet fra næste linie.
      Resume Next
    Case Else
      Err.Raise Err.Number
  End Select
End Sub
18. januar 2002 - 09:30 #2
Hov der mangler lige en  \"  efter WordApp.Documents.Open \"D:\\hat\\hue.doc\" (sådan)
Avatar billede yeti Nybegynder
18. januar 2002 - 09:37 #3
Den kan ikke lide de ting der er defineret i \"Public\"
Avatar billede yeti Nybegynder
18. januar 2002 - 09:53 #4
Den skulle bare se sådan ud!!!

Private Declare Function ShellExecute Lib \"shell32.dll\" Alias \"ShellExecuteA\" _
    (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
    ByVal lpParameters As String, ByVal lpDirectory As String, _
    ByVal nShowCmd As Long) As Long

       

Private Sub CommandButton1_Click()
    Dim result As Long
    result = ShellExecute(0, \"open\", \"D:\\hat\\hue.doc\" , \"\", \"\", vbNormalFocus)
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)

End Sub
Avatar billede kol Nybegynder
18. januar 2002 - 09:53 #5
Som opgaven er beskrevet, vil det være nemmest at indspille en makro, som er knyttet til en knap på værktøjslinien.

Hilsen KOL
18. januar 2002 - 09:54 #6
Det er fordi du ikke har lavet  Ref.: Microsoft Word 9.0 Object Library
I VBA editoren vælger du menupunktet  Tools / References  hvilket giver dig en dialogboks. Her finder du \"Microsoft Word 9.0 Object Library\" som du sætter V udfor og trykker OK - så virker det :-)
18. januar 2002 - 09:55 #7
yeti>>Det er jo en smagssag!
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
IT-kurser om Microsoft 365, sikkerhed, personlig vækst, udvikling, digital markedsføring, grafisk design, SAP og forretningsanalyse.

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester