Word document opslaan

[sandervkn]

Hallo,

Ik wil graag mijn word-document opslaan met gebruik van VBA / macro.

En wel met het bestandsnaam: , bijv: Piet+"eeningevuldetextboxwaarde" in VBA.

Is dit mogelijk, en zo ja;
Welke code kan ik hiervoor gebruiken?

Alvast bedankt,
Sander.

 

[OctaFish]

Zoiets bijvoorbeeld?

Sub BestandOpslaan()
Dim sBestand As String, sUser as String
sUser=Environ("UserName")
 
BestandsNaam:
sBestand = InputBox("Typ de bestandsnaam", "Bestandsnaam")
If Not sBestand = "" Then
    ChangeFileOpenDirectory "H:\My Documents\_HelpMij\Word\"
    ActiveDocument.SaveAs FileName:=sUser & "_"& sBestand & ".doc", FileFormat:=wdFormatDocument, AddToRecentFiles:=True
Else
    GoTo BestandsNaam
End If
End Sub

 

[sandervkn]

Bedankt voor je reactie,

Ik kom er alleen niet uit.. =(,

Ik heb het test formulier toegevoegd als .zip.
Misschien kun jij het voor mij invullen daar?

Hij moet het document dus opslaan met een standaard naam; Fred en daarachter de naam welke is ingevuld bij bookmark bmNaam.

Ik wacht op je reactie,

SanderBekijk bijlage 10x10xvragen1.rar

 

[sarges]

Zoals OctaFish al zei, alleen naar eigen wens invullen.

@OctaFish: Bedankt, want ik kon het ook gebruikten

Dim sBestand As String, dDatum As String

dDatum = Date 'De datum van vandaag
'dDatum = "standaard naam" 'Dit kan ook
ActiveDocument.Bookmarks("bmNaam").Range.Text = Me("TextBox1").Text 'Waar de text in het document komt

[B][I]sBestand[/I][/B] = TextBox1.Text 'Text van Bookmark ("bmNaam")

BestandsNaam:
If Not sBestand = "" Then
    ChangeFileOpenDirectory "D:\helpmij\test\" 'Pad naar opslagplaats
    ActiveDocument.SaveAs FileName:=dDatum & "-" & sBestand & ".doc", FileFormat:=wdFormatDocument, AddToRecentFiles:=True
Else
    GoTo BestandsNaam
End If