Avatar billede bluestrike Nybegynder
15. december 2003 - 15:48 Der er 10 kommentarer og
2 løsninger

VBA, start Word fra Excel. Problem i Office2000.

Jeg har lavet en størrer adressebog til det firma jeg arbejder i, en af de funktioner adressebogen har er, at man kan åbne et standardbrev, og få navnet og adresseinformationerne ført med over fra adressebogen, så det står rigtigt ved udprintning til et brev med rude. Det hele fungere upåklageligt i Office XP hvor jeg har udviklet det, men prøver jeg at kører denne opstart af Word i en office 2000, så går Excel 2000 ned. Her er koden der køres:

Sub Open_word()
        Dim wdApp As Word.Application
        Dim myDoc As Word.Document
        Dim mywdRange As Word.Range
        Set wdApp = New Word.Application
        With wdApp
            .Visible = True
            .WindowState = wdWindowStateMaximize
        End With
        If Wordform.OptionButton1 = True Then
            Set myDoc = wdApp.Documents.Open("G:\skabeloner\Produktion\Vedr.dot")
        Else
            Set myDoc = wdApp.Documents.Open("G:\skabeloner\Produktion\tilbud.dot")
        End If
        Set mywdRange = myDoc.Words(1)
        With mywdRange
            .Text = Range("F6") & Cells(ActiveCell.Row, 2) & Chr(13) & Chr(10) & Cells(ActiveCell.Row, 4) & Chr(13) & Chr(10) & Cells(ActiveCell.Row, 5)
        End With
End Sub

Den linie hvor Excel går ned er:

Set myDoc = wdApp.Documents.Open("G:\skabeloner\Produktion\tilbud.dot")

Håber nogen har nogle ideer til hvad mit problem kan være. Jeg har foresten husket at ordne den manglende reference til Microsoft Word 10.0 object library.
Avatar billede kabbak Professor
15. december 2003 - 16:22 #1
tilbud.dot er den så lavet om til word 2000, eller er det XP stadigvæk,hvis det er det, så prøv at lave en tilbud.dot i word 2000
Avatar billede bluestrike Nybegynder
15. december 2003 - 16:23 #2
tilbud.dot kan godt åbnes i Word 2000 det har jeg prøvet, det er meget brugt dokument i virksomheden, jeg umiddelbart tror jeg ikke der er problemer med det.
Avatar billede martin_moth Mester
15. december 2003 - 16:46 #3
Ingen fejlmeddelser?
Avatar billede kabbak Professor
15. december 2003 - 16:50 #4
If Wordform.OptionButton1 = True Then

det er denne, OptionButton1 = True, der gør det, jeg ved ikke hvorfor endnu.

jeg leger lidt med dene if

    If A = 1 Then
          Set myDoc = wdApp.Documents.Open("C\Vedr.dot")
      Else
            Set myDoc = wdApp.Documents.Open("C:\Tilbud.dot")
        End If

Den virker uanset om A = 1 eller 0

men med det samme jeg sætter , If OptionButton1 = True Then, kommer fejlen


som der ikke makeres, på kun en tom dialog.
Avatar billede kabbak Professor
15. december 2003 - 17:00 #5
denne virker nu ved mig
OptionButton1 har jeg på arket, derfor ingen henvisning.

Sub Open_word()
        Dim wdApp As Word.Application
        Dim myDoc As Word.Document
        Dim mywdRange As Word.Range
        Set wdApp = New Word.Application
        With wdApp
            .Visible = True
            .WindowState = wdWindowStateMaximize
        End With
        If OptionButton1 = True Then
            Set myDoc = wdApp.Documents.Open("C:\Vedr.dot")
        Else
            Set myDoc = wdApp.Documents.Open("C:\tilbud.dot")
        End If
        Set mywdRange = myDoc.Words(1)
        With mywdRange
            .Text = Range("F6") & Cells(ActiveCell.Row, 2) & Chr(13) & Chr(10) & Cells(ActiveCell.Row, 4) & Chr(13) & Chr(10) & Cells(ActiveCell.Row, 5)
        End With
End Sub
Avatar billede kabbak Professor
15. december 2003 - 17:03 #6
Har reference til microsoft Word 9.0 objekt libray
Avatar billede bluestrike Nybegynder
16. december 2003 - 09:53 #7
Okay jeg tester den.. håber du har ret, ville være for cool hvis det spiller...
Avatar billede bluestrike Nybegynder
16. december 2003 - 09:59 #8
Hvad er egentlig forskellen på vores kodedele??
Avatar billede bluestrike Nybegynder
16. december 2003 - 10:22 #9
Nu har jeg prøvet at flytte kontrollen af optionbutton... men så vidt jeg kan se er det stadig ved

Set myDoc = wdApp.Documents.Open("C\Vedr.dot")

at den crasher... Kan det være fordi jeg har valgt microsoft Word 10.0 object library på Office 2000 installation, skal den have 9.0??
Avatar billede bluestrike Nybegynder
16. december 2003 - 11:38 #10
Davs igen, jeg roede lidt videre med versions nummeret af object librariet... og det viste sig at så snart jeg fik referencen til at passe på 9.0 så virkede det efter hensigten. Så jeg må bare finde mig en Office2000 full install til at udvikle på. Jeg vælger at give dig halvdelen af pointene kabbak, som tak for din insats.
Avatar billede bluestrike Nybegynder
16. december 2003 - 11:38 #11
Hvis du altså smider et svar ;-)
Avatar billede kabbak Professor
16. december 2003 - 11:52 #12
Et svar ;-))
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
Kurser inden for grundlæggende programmering

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