---

Trenger litt hjelp her!
Har Office XP, og problemet er hentet ut fra en Wordmal.

Vil at dokumentnavnet som blir skrevet inn i koden under,
skal lagres i: C:\mappe18
Og hvis det er mulig, en kode som sjekker om navnet er
brukt tidligere, og da ikke kan brukes på nytt, samt at hvis
det ikke er skrevet noe i InputBox'en, avsluttes programmet,
eller starter prosedyren på nytt, helt til det er skrevet inn
noe nytt i InputBox'

Håper noen kan hjelpe.

Her er koden som er brukt frem til nå.

Hilsen
Arild Eriksen

Option Explicit

Private Sub Document_New()
Dim strDocName As String
Dim intPos As Integer

'Find position of extension in filename
strDocName = ActiveDocument.Name
intPos = InStrRev(strDocName, ".")

If intPos = 0 Then

'If the document has not yet been saved
'Ask the user to provide a filename
strDocName = InputBox("Skriv inn navnet på " & _
"dokumentet som du nå vil lage.")
Else
'Strip off extension and add ".doc" extension
strDocName = Left(strDocName, intPos - 1)
strDocName = strDocName & ".doc"
End If

'Save file with new extension
ActiveDocument.SaveAs FileName:=strDocName

End Sub

---

Arild Eriksen <lakka@online.no> wrote:
> Trenger litt hjelp her!
> Har Office XP, og problemet er hentet ut fra en Wordmal.
>
> Vil at dokumentnavnet som blir skrevet inn i koden under,
> skal lagres i: C:\mappe18
> Og hvis det er mulig, en kode som sjekker om navnet er
> brukt tidligere, og da ikke kan brukes på nytt, samt at hvis
> det ikke er skrevet noe i InputBox'en, avsluttes programmet,
> eller starter prosedyren på nytt, helt til det er skrevet inn
> noe nytt i InputBox'
>
> Håper noen kan hjelpe.
>
> Her er koden som er brukt frem til nå.
>
> Hilsen
> Arild Eriksen
Hej Arild

Jeg har givet dig et svar i
news:dk.edb.tekst.ms-word
--
Mikkel Bundgaard
Student at IT University of Copenhagen
http://officehelp.gone.dk
Codito, Ergo Sum