invoer textbox gebruiken als bestandsnaam

[hewolar]

Hallo,

Ik heb een textbox gemaakt en ik wil de tekst wat is ingevoerd in de textbox gebruiken als
bestandsnaam.

voorbeeld: er is een naamloos Word document geopend en je klikt op de macro. De tekstbox opend en je voert in "naam document".

Door op OK te klikken zou ik graag het document opslaan op een locatie laten we zeggen C:\Word\* met dan de invoer in de tekstbox als bestandsnaam.

De textbox e.d. heb ik al het gaat alleen om de code om de ingevoerde tekst als bestandsnaam te gebruiken en zo op een bepaalde locatie op te slaan.

Wie weet er raad?

 

[leofact]

dat kan met saveas

Sub test()
Dim sdocnaam as string
sdocnaam = "c:\"InputBox("geef bestandsnaam")
ActiveDocument.SaveAs FileName:=sdocnaam
End Sub

Wel zaak om er voor te zorgen dat de foutmelding afgevangen wordt wanneer er een foutieve bestandsnaam gegeven wordt.
mvg leo

 

[hewolar]

dat kan met saveas

Sub test()
Dim sdocnaam as string
sdocnaam = "c:\"InputBox("geef bestandsnaam")
ActiveDocument.SaveAs FileName:=sdocnaam
End Sub

Wel zaak om er voor te zorgen dat de foutmelding afgevangen wordt wanneer er een foutieve bestandsnaam gegeven wordt.
mvg leo

De code die je geeft zal hier bij in moeten komen:

Private Sub OK_Click()


Selection.Copy
    Documents.Add DocumentType:=wdNewBlankDocument
    Selection.PasteAndFormat (wdPasteDefault)
         
   




End Sub

Ik doe dit nog niet zo lang dus ik hoop dat je me verder wilt/kan helpen.
De locatie waar het opgeslagen moet worden C:\Word\Tekstblokken

 

[leofact]

Dim sDocNaam as string
    sDocNaam = "C:\Word\Tekstblokken\" & InputBox("geef bestandsnaam") _
        & ".doc"
        MsgBox sDocNaam
    ActiveDocument.SaveAs FileName:=sDocNaam

Is de juiste code voor opslag (in de vorige zat een fout).
De inputbox kun je er tussenuit halen wanneer je de bestandsnaam al eerder gevraagd hebt.
Waar de code te plaatsen is niet zo heel makkelijk.
Dit omdat je waarschijnlijk het nieuw aangemaakte document wil opslaan.
Wanneer het brondocument een sjabloon is kun je de code plaatsen
in de gebeurtenismacro Document_New()
mvg leo

 

[eric cirkel]

Dim sDocNaam as string
sDocNaam = "C:\Word\Tekstblokken\" & InputBox("geef bestandsnaam") _
& ".doc"
MsgBox sDocNaam
ActiveDocument.SaveAs FileName:=sDocNaam

Dit is wel goed maar mist nog wat, als je nu annuleren kies loop je code vast, dit kan je als volgt oplossen.
tis maar dat je het weet ...

Dim sDocNaam as Variant
sDocNaam = InputBox("geef bestandsnaam")
MsgBox sDocNaam
If not sDocNaam = "" then
sDocNaam = "C:\Word\Tekstblokken\" & sDocNaam & ".doc"
ActiveDocument.SaveAs FileName:=sDocNaam
End if

Vertaling: Als sDocNaam is niet leeg is dan opslaan als …

 

[hewolar]

thnx voor alle hulp! echt geweldig.

ik zal het uit gaan proberen.