Problemer med MS Word

lige en lille ting mere :-)

det er i denne linie fejlen opstår:
--------------------------------------------------------
    Call Selection.Collapse
--------------------------------------------------------

Mvh
SeeQue

Run-time error 462:
http://support.microsoft.com/default.aspx?scid=kb;en-us;Q189949

Det har muligvis noget at gøre med at du ikke nedlægger MyWordObject efter brug.
Husk at skrive
Set MyWordObject = Nothing
Efter du har oprettet dokumentet

Hej blackadder

Jeg måtte lige tjekke... men som jeg også huskede så har jeg lukket de objecter jeg bruger. Denne stump kode står i programmet lige umiddelbart efter det første stykke jeg indsendte:
--------------------------------------------------------
        Set MyShape = Nothing
        Set MyWordDocument = Nothing
        Set MyWordObject = Nothing
--------------------------------------------------------

Jeg har oven i købet prøvet at lave en selvstændig form som håndtere WordObjectet, som jeg så Unload'er igen bag efter.
Alt kode er lagt i den samme sub.
Der ud over har jeg lagt mærke til at hvis man ikke lukker word ordetligt så kan man se WINWORD.EXE i Win2K taskmanager... og desværre så er den der ikke.

Mvh
SeeQue

hej igen.. igen :)

For at undgå forvirring så kommer lige koden som den ser ud samlet:
--------------------------------------------------------
        Dim MyWordObject As Word.Application
        Set MyWordObject = New Word.Application
        Dim MyWordDocument As Word.Document
        'Set MyWordDocument = New Word.Document
        Dim MyShape As Word.Shape
       
       
        If MyWordObject Is Nothing Then
            Call MsgBox("Word kunne desværre ikke åbnes" & vbCrLf & "Undersøg evt. om word mangler at blive installeret på computeren", vbOKOnly, "Fejl i åbning af dokument")
        Else
            With MyWordObject
                TMP_Bredde = .CentimetersToPoints(10)  'cm --> Points
                TMP_hoejde = .CentimetersToPoints(5)    'cm --> Points
                TMP_Xpos = .CentimetersToPoints(5)      'cm --> Points
                TMP_Ypos = .CentimetersToPoints(5)      'cm --> Points
               
                .Visible = False
               
               
                'Call MyWordDocument.Shapes.AddTextbox(msoTextOrientationHorizontal, TMP_Xpos, TMP_Ypos, TMP_Bredde, TMP_hoejde).Select
                'Selection.ShapeRange.TextFrame.TextRange.Select
               
                Set MyWordDocument = .Documents.Add(App.Path & "\std_skabelon.dot")
                Call MyWordDocument.Activate
                Set MyShape = MyWordDocument.Shapes.AddTextbox(msoTextOrientationHorizontal, TMP_Xpos, TMP_Ypos, TMP_Bredde, TMP_hoejde)
                Call MyShape.Select
                Call MyShape.TextFrame.TextRange.Select
                Call Selection.Collapse
                Selection.ParagraphFormat.Alignment = wdAlignParagraphLeft
                Selection.TypeText Text:="Casper Quitzau" & vbCrLf & "Bredstedgade 7, 1.th" & vbCrLf & "5000 Odense"
                Selection.ShapeRange.Fill.Visible = msoFalse
                Selection.ShapeRange.Line.Visible = msoFalse
                'Selection.ShapeRange.WrapFormat.AllowOverlap = True
                Selection.Font.Size = 12
               
                'Selection.Font.Name = "Arial Black"
                'Selection.Font.Bold = True
                'Selection.Font.Italic = True
                'Selection.Font.StrikeThrough = True
                'If Selection.Font.Underline = wdUnderlineNone Then
                '    Selection.Font.Underline = wdUnderlineSingle
                'Else
                '    Selection.Font.Underline = wdUnderlineNone
                'End If
               
               
                'Call .ActiveDocument.PrintPreview
           
                .Visible = True
            End With
        End If
        'MyWordObject.Quit
        Set MyShape = Nothing
        Set MyWordDocument = Nothing
        Set MyWordObject = Nothing
--------------------------------------------------------

Mvh
SeeQue

Får du stadigvæk samme fejlmeddelelse ?

Hej blackadder

Ja desværre... hvis det bare havde været det andet der var galt. Det ville jeg meget gerne have givet dig de 200 point for.

Du skulle vel ikke have et bud mere på hvad der skulle være galt ?? :)

Mvh
SeeQue

Jeg fadt selv ud af det ved at lave en miniprogram som åbner word og lukker sig selv bag efter.

Jeg lukker spørgsmålet

Mvh
SeeQue

Hvordan kom dit program til at se ud? Jeg sidder nemlig med et lignende problem.