Nhờ xem code vb trong word bị lỗi 5487 file permission error (1 người xem)

[Tnhatanh68]

Mình có 1 đoạn code thế này dùng để lưu file word theo nội dung như ý muốn

Sub test()
'
' test Macro
'
'
   Dim k As String, t As String




    Selection.MoveUp Unit:=wdLine, Count:=500
    Selection.MoveDown Unit:=wdLine, Count:=4
    Selection.HomeKey Unit:=wdLine
    Selection.EndKey Unit:=wdLine, Extend:=wdExtend
    Selection.Copy
    k = Selection.Range


 ' Minh muon lay tên  để lưu như thế này  "PIC326     SGN   TBB     17JAN16     VN-A198 " '
  
    t = "D:\OCC\" & k & ".docx"


 ' Đường dẫn để lưu'   
   
    
    ActiveDocument.SaveAs2 FileName:=t, FileFormat:= _
        wdFormatXMLDocument, LockComments:=False, Password:="", AddToRecentFiles _
        :=True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts _
        :=False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
        SaveAsAOCELetter:=False, CompatibilityMode:=14
   
End Sub

File mẫu có dạng như file đính kèm.

Nhưng mỗi lần mình Run nó lại báo lỗi 5487 error file permission. Trong khi nếu mình làm theo thác tác bình thường thay vì macro nó vẫn cho lưu bình thường

Mọi người có thể giúp mình với được không, xin cảm ơn