Hej!
Jag har en CommonDialogBox för att kunna öppna en fil, spara den och skriva i den. Så här ser lite av koden ut:

Private Sub Print_Click()

Dim Wordobject
Set Wordobject = CreateObject("Word.Basic")

Wordobject.arkivöppna App.Path & "\worksheet.doc", 0, 1, 0

'lägger in text i bokmärken
Wordobject.RedigeraGåTill ("bok1")
Wordobject.Infoga Text1.Text6.Text

Payback.CommonDialog4.ShowSave
If CommonDialog4.filename <> "" Then
Wordobject.ArkivSparaSom CommonDialog4.filename

Wordobject.ArkivStäng
Set Wordobject = Nothing
Else
'GoTo Errhandler:
'Wordobject.ArkivSpara = 0
'CommonDialog4 = 0


'Wordobject.ArkivStäng
Set Wordobject = Nothing
End If

End Sub

Om jag skriver in värden i textrutor och sedan klickar på CommonDialogBoxen skrivs värdena in i worddokumentet och sparas. Så långt allting bra. Men, om jag sedan inte stänger ner programmet, utan bara ändrar ett av värdena, klickar på CommonDialogBoxen igen. Så kommer det upp ett felmeddelande: "Invalid filename" och raden "Payback.CommonDialog4.ShowSave" markeras i debugen. Varför får jag detta fel!?

Jag vill inte behöva stänga ner programmet för då måste man ju skriva in alla värdena från början igen, det är ju bara ett jag vill ändra. Det är många värden som skrivs in i dokumentet. (I koden tog jag bara med ett.)

Tacksam för svar.

/Diana

Hej
Första påpekande ,det kommer mer när jag funderat

Dim Wordobject
Som vad ? Du måste tala om vad du vill dimmensionera
Wordobjekt As

Dvs du skall skriva Dim Wordobjekt As .......... vadå ?

mvh
Sven

>Du måste tala om vad du vill dimmensionera
>Wordobjekt As

Nja, måste och måste, det fungerar ju med variant också, men "Dim Wordobject As Object" är ju bättre.

/Johan

Ok, tack för det. Jag har skrivit till "As Object".

Men jag får ändå samma fel!


/D

Tack för att ni tog er tid att kolla på mitt problem!!
Jag har hittat felet. Om jag sätter Commondialog4.filename="" så fungerar det!


/Diana

Hej
Bra att du ger FeedBack.Satt och funderade på att
du borde ha filename som Global sträng.

Ha det programmera mera.
Sven

Tack igen!