Bestand opslaan met als bestandsnaam een variabele

[fotofons]

Ik heb hetvolgende in een macro staan:
Selection.Copy
sVar = Selection.Text
Windows("1213-n234-internet").Activate
ActiveDocument.SaveAs2 FileName:="pietje.docx", _
FileFormat:=wdFormatXMLDocument, LockComments:=False, Password:="", _
AddToRecentFiles:=True, WritePassword:="", ReadOnlyRecommended:=False, _
EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, SaveFormsData _
:=False, SaveAsAOCELetter:=False, CompatibilityMode:=14

Als ik bij de bestandsnaam "pietje.docx" vervang door sVar & ".docx" loopt het macro vast. Foutcode 5487
Wat doe ik fout?

 

[edmoor]

5487 zegt dat je geen toestemming hebt.
Gaat het met "pietje.docx" wel goed?

 

[fotofons]

5487 zegt dat je geen toestemming hebt.
Gaat het met "pietje.docx" wel goed?

Dan gaat het wel goed. Als ik de muisaanwijzer in het macro bij Filename:= sVar op sVar ga staan zie ik sVar="pietje".

 

[OctaFish]

Probeer 'm zo eens:

sVar = Selection.Text & ".docx"
Windows("1213-n234-internet").Activate
ActiveDocument.SaveAs2 FileName:=sVar, FileFormat:=wdFormatXMLDocument, AddToRecentFiles:=True, CompatibilityMode:=14

 

[fotofons]

Probeer 'm zo eens:

sVar = Selection.Text & ".docx"
Windows("1213-n234-internet").Activate
ActiveDocument.SaveAs2 FileName:=sVar, FileFormat:=wdFormatXMLDocument, AddToRecentFiles:=True, CompatibilityMode:=14

Nog steeds hetzelfde probleem

 

[fotofons]

Zelf probleem opgelost.