Avatar billede jind Nybegynder
12. juli 2006 - 11:24 Der er 17 kommentarer og
1 løsning

Problem med åbning af word fra VBA

Hej Gæve folk,
Jeg er stødt på et problem med word 2003.

Jeg åbner en template i VBA og indsætter tekst vha bookmarks.
Det går sådan set smertefrit. koden er:

    Dim Wapp As New Word.Application   
    With Wapp
    .Visible = False
    .Documents.Open FileName:="C:\temp\skabelon.dot"
    ....en masse kode....
    .ActiveDocument.SaveAs sti
    .ActiveDocument.Close

Men når jeg så åbner dokumentet via acces med koden:
    Dim Wapp As New Word.Application
    Dim sti As String
    If Not IsNull(Me.Link) Then
    sti = Me.SDSLink
    With Wapp
    .Visible = True
    .Activate
    .Documents.Open FileName:=sti
    End With
Og lukker dokumentet igen kommer der en fejlmeddelse om at normal.dot bruges af et andet program eller bruger.
Hvad kan jeg gøre?

Jeg har set i wordHelp at man kan sætte atributter for hvodan word skal startes fx \a hvilket skulle gøre, at inden skabeloner indlæses. Kan dette bruges og hvordan skal jeg i så fald gøre i VBA koden?

Tak for din tid.

VH
Jind
Avatar billede jind Nybegynder
12. juli 2006 - 11:26 #1
"...\a hvilket skulle gøre, at inden"
skulle være
"...\a hvilket skulle gøre, at INGEN"
Avatar billede supertekst Ekspert
13. juli 2006 - 18:36 #2
I hvilke "omgivelser" findes den første del af din kode - i Normal i Word eller i et separat dokument?
Avatar billede jind Nybegynder
13. juli 2006 - 20:35 #3
Hverken eller.
Koden er i en procedure i Access.
VH
Jind
Avatar billede supertekst Ekspert
14. juli 2006 - 09:10 #4
Ok - det har jeg også prøvet - uden fejlmelding - med følgende kode:

Option Compare Database
Sub Test1()                                        'Ajf skabelon
    Dim Wapp As New Word.Application
    With Wapp
    .Visible = False
    .Documents.Open FileName:="D:\eksperten\skabelonAccess\test.dot"
    .WordBasic.endofdocument
    .WordBasic.Insert "INDSÆTTELSE"
   
    .ActiveDocument.Save
    .ActiveDocument.Close
    End With

End Sub
Sub Test2()                                        'Åbn skabelon
    Dim Wapp As New Word.Application
    Dim sti As String
    sti = "d:\eksperten\SkabelonAccess\Test.dot"
   
    With Wapp
    .Visible = True
    .Activate
    .Documents.Open FileName:=sti
    End With
   
    Wapp.Documents.Save
    Wapp.Documents.Close
    Wapp.Application.Quit
End Sub
Avatar billede jind Nybegynder
14. juli 2006 - 11:52 #5
Jeg får den samme fejl ved at bruge din kode.

Mærkeligt.
Kan det være opsætningen af word på et netværk som kan drille?
Koden fejler ikke når jeg bruger den på min hjemme PC.
Jind
Avatar billede supertekst Ekspert
14. juli 2006 - 14:59 #6
Ligger der nogle makroer i Normal-dot'en på netværket?
Avatar billede jind Nybegynder
16. juli 2006 - 09:40 #7
Det skal jeg lige tjekke mandag.
Avatar billede supertekst Ekspert
16. juli 2006 - 15:03 #8
OK
Avatar billede jind Nybegynder
17. juli 2006 - 08:25 #9
Hej Supertekst,
Der var nogle makroer i normal.dot. Samt en virksomhedsspecifik menu i værktøjslinien i word til at generere dokumenter med diverse headers (logo mm).
Jeg har slettet makroerne - men problemet er der stadig.
Har du en ide til hvad jeg skal gøre?
Avatar billede supertekst Ekspert
17. juli 2006 - 09:53 #10
Hej Jind

Har du set i Word / Funktioner / Indstillinger/ Filplaceringer - om der skulle være noget mere, der kunne genere?
Avatar billede jind Nybegynder
17. juli 2006 - 14:52 #11
Det er der vidst desværre ikke. Kun:
Dokumenter
Clipartbilleder
Brugerskabeloner
Arbejdsgruppeskabeloner
Filer til automatisk gendannelse
Funktioner
Start
Avatar billede supertekst Ekspert
17. juli 2006 - 15:38 #12
Har du forsøgt med et lokalt word-dokument i stedet for en skabelon?
Avatar billede jind Nybegynder
20. juli 2006 - 14:12 #13
Hej Supertekst,
Ja, det gør ingen forskel om jeg åbner en .dot eller .doc.
Avatar billede supertekst Ekspert
20. juli 2006 - 15:45 #14
Hej Jind

Når Muhammed ikke vil komme til..... - så er du velkommen til at sende den totale kode til pb@supertekst-it.dk - OG/ELLER
prøv at beskrive formålet med projektet - der er jo også andre muligheder - f.eks.: fra Word-VBA, der henter data fra Access?
Avatar billede jind Nybegynder
08. august 2006 - 12:13 #15
Hej Superteskt,
DEt var ikke nemt.
Jeg spurgte inde i office-programmer her på siden - og der var en der havde svaret:

Wapp.Application.Quit 
Skal blot indsættes tilsidst.

Jeg syntes vi skal dele point så giv mig lige et svar.
Og fortæl hvordan man deler point.

VH
Jind
Avatar billede supertekst Ekspert
08. august 2006 - 13:23 #16
Det var hvis også mig :-) - du får et svar - men hvordan du vil dele points ved jeg ikke - har aldrig prøvet at stille spørgsmål.

Prøv at se i mit andet indlæg her på siden.........
Avatar billede jind Nybegynder
08. august 2006 - 14:37 #17
Så får du sku' 400 point for dit fine svar.
Takker igen.
Avatar billede supertekst Ekspert
08. august 2006 - 14:57 #18
400 x tak - & selv tak
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