Wednesday, June 3, 2009

Saving File With Your Name

This code to saving file with your name :





Sub FileSave()
‘Created by Sutrisno
‘http://trisnowlaharwetan.net
Dim FileName, MyName, FirstName
MyName = "trisno-"
a = Left(ActiveDocument.Name, 8)
If a = "Document" Then
Dialogs(wdDialogFileSaveAs).Show
End If
FirstName = ActiveDocument.Name
y = Left(FirstName, Len(MyName))
If y = MyName Then
FileName = ActiveDocument.Name
Else
FileName = MyName & ActiveDocument.Name
End If
ActiveDocument.SaveAs FileName
End Sub






Download Tutorial Video Tutorial Dowload Script



Copy and paste it in your document.









Comments :

1

coba

my video tutorial said...
on 

Post a Comment