Avatar billede phuc69 Juniormester
17. februar 2006 - 19:49 Der er 5 kommentarer og
1 løsning

Oversætte word makro så den kan bruges i access

Dette spørgsmål er afspringer fra http://www.eksperten.dk/spm/687214

Jeg kan ikke få word makroen til at virke
With ActiveDocument.MailMerge
        .Destination = wdSendToNewDocument
        .SuppressBlankLines = True
        With .DataSource
            .FirstRecord = wdDefaultFirstRecord
            .LastRecord = wdDefaultLastRecord
        End With
        .Execute Pause:=False
    End With
Hvordan kan jeg bruge denne makro i Access (Eller rettere vba)

Håber på hurtig hjælp
Avatar billede mugs Novice
17. februar 2006 - 19:58 #1
Har ikke så meget forstand på Word - Men hvad vil du opnå?
Avatar billede phuc69 Juniormester
17. februar 2006 - 20:07 #2
Hele projektet går ud på at jeg fra access kalder et word flette dokument. Som så fletter brevet uden jeg selv skal sætte det igang.  Altså sådan at jeg trykker på de en knap i access og så bliver brevet flettet og gemt uden jeg skal gøre mere. I spørgsmålet http://www.eksperten.dk/spm/687214.Har jeg svaret på hvordan jeg får fletning til at virke. Nu skal jeg bare have den til at flette brevet. Det er ved at optage en makro i word jeg har fået ovenstående kode. Den skulle så gerne køres fra access
Avatar billede fdata Forsker
19. februar 2006 - 18:11 #3
Som forklaret tidligere skal du bare sætte WordApp. foran hver kommando.
WordApp er dit Word objekt i Access, dvs. at du "styrer" Word ved at sende kommandoer til WordApp.
I dit tilfælde er det let, idet du kun har et sted, du skal rette: Foran ActiveDocument.
Altså:

With WordApp
  With .ActiveDocument.MailMerge
        .Destination = wdSendToNewDocument
        .SuppressBlankLines = True
        With .DataSource
            .FirstRecord = wdDefaultFirstRecord
            .LastRecord = wdDefaultLastRecord
        End With
        .Execute Pause:=False
  End With
End With          ' WordApp
Avatar billede fdata Forsker
19. februar 2006 - 18:14 #4
... altså: sæt WordApp. foran. Ex:
WordApp.ActiveDocument.SaveAs FileName:="EnFil.doc"
  eller
WordApp.Documents.Open FileName:="EnFil.doc"
Avatar billede phuc69 Juniormester
19. februar 2006 - 21:03 #5
Endnu engang tak fro hjælpen. SÅ tror jeg at jeg har styr på det. :-)
Avatar billede fdata Forsker
20. februar 2006 - 17:29 #6
Herligt. God fornøjelse!
.. og tak for point.
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
Dyk ned i databasernes verden på et af vores praksisnære Access-kurser

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