/ Forside / Teknologi / Administrative / MS-Office / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
MS-Office
#NavnPoint
sion 18709
refi 14474
Klaudi 9389
Rosco40 5695
berpox 5456
dk 5398
webnoob 4919
Benjamin... 4870
o.v.n. 4637
10  EXTERMINA.. 4373
Hjelp i Word (VBA)
Fra : Arild Eriksen


Dato : 26-06-02 22:35

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




 
 
Mikkel Bundgaard (27-06-2002)
Kommentar
Fra : Mikkel Bundgaard


Dato : 27-06-02 08:01

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



Søg
Reklame
Statistik
Spørgsmål : 177558
Tips : 31968
Nyheder : 719565
Indlæg : 6408929
Brugere : 218888

Månedens bedste
Årets bedste
Sidste års bedste