Avatar billede h_s Forsker
15. juli 2004 - 10:43 Der er 11 kommentarer og
1 løsning

Åbne et Word-dokument via en Formular-knap

Jeg har brug for en makro (eller noget andet), der kan åbne et word-dukument.

Jeg har prøvet om jeg kan lave et hyperlink uden held og jeg kan heller ikke rigtig få en makro til at virke når jeg skal indspille den!

Kan nogen hjælpe mig?
Avatar billede h_s Forsker
15. juli 2004 - 10:44 #1
Ja, Word-dokument er det altså. Jeg skal kunne åbne det fra en Excel-fil
Avatar billede h_s Forsker
15. juli 2004 - 10:45 #2
Og igen..

Jeg bruger Office 95! XP har sikkert muligheden! :-)
Avatar billede kabbak Professor
15. juli 2004 - 11:05 #3
Subject:    Open a Word-Document, enter a Value of a Worksheet and save it
Version:    >= Excel 5
   
Question:    How can I open a Word document with a name written in a Cell,
    enter a Value of a Cell in a Chart that is contained in this
    Document and save the Workbook as a name that is in another Cell?
Answer:    Enter the following Code in a Module, assign it to a
    Button and start it. Please note: A link to the
    Microsoft Word Object Library has to be created via Menu
    TOOLS / REFERENCES in the VB-Editor.
   
**********                  Use VBA code shown below                  **********   
   
'Place the code below into the standard module   
Sub OpenWordDoc()   
  Dim WordObj As Word.Application   
  Dim WordDoc As Word.Document   
  Dim dName$   
  dName = "C:\My Database\MyCopy.Doc"   
  On Error GoTo w   
  AppActivate "Microsoft Word"   
  Set WordObj = Word.Application   
  GoTo n   
w:   
    Set WordObj = CreateObject("Word.Application")   
n:   
    Set WordDoc = WordObj.Documents.Open(Range("A1").Value)   
    WordDoc.Tables(1).Cell(1, 2).Range = Range("B1").Value   
    WordDoc.SaveAs Range("C1").Value   
    WordObj.Quit   
    Set WordObj = Nothing   
    Set WordDoc = Nothing   
End Sub
Avatar billede asol Nybegynder
15. juli 2004 - 11:07 #4
Sub OpenWordDoc()
Dim objWord As Word.Application
Dim docWord As Word.Document
Set objWord = New Word.Application
objWord.Visible = True
Set docWord = objWord.Documents.Open(Filename:="C:\test.doc")

End Sub

Husk en reference til word.
Avatar billede h_s Forsker
15. juli 2004 - 12:55 #5
Jeg får en fejl i denne linje ved begge makroer:

Dim objWord As Word.Application
Avatar billede asol Nybegynder
15. juli 2004 - 12:59 #6
Har du lavet en reference til Word?
I VBE: Tools -> References... og markér 'Microsoft Word ?.0 Obejct Library'
Avatar billede kabbak Professor
15. juli 2004 - 12:59 #7
Husk en reference til word.
Tools > references

Find Microsoft Word X.X object library

sæt flueben i og sig ok
Avatar billede h_s Forsker
15. juli 2004 - 13:19 #8
Nu virker det, men men hvordan påvirker det andres brug af regnearket. Kan de åbne wordfilen uden at tilføje referencen?
Avatar billede kabbak Professor
15. juli 2004 - 13:22 #9
det følger med regnearket, når det er gemt.
Avatar billede h_s Forsker
15. juli 2004 - 13:42 #10
Tak :-)

Jeg har brugt asol's makro, så han bør vil have point for sit besvær, så asol, vil du lige "skrive et svar".

Desværre kabbak, men du fik jo også point i går :-)
Avatar billede asol Nybegynder
15. juli 2004 - 13:44 #11
Et svar fra mig - vi kan nu godt dele :-)
Avatar billede kabbak Professor
15. juli 2004 - 13:44 #12
jeg havde sandelig også forventet at asol fik pointene ;-))
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
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

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