Automatic Word in Visual Basic Editor

This code to saving file with your name :

Sub KataUlang()
'Kata Ulang designed by SUTRISNO
'http://trisnowlaharwetan.net
'http://muhammad-fauzil-adhim.com
'http://ourvideotutorial.blogspot.com
'http://freeofcode.blogspot.com
Selection.MoveLeft Unit:=wdWord, Count:=1, Extend:=wdExtend
Selection.Copy
Selection.MoveRight Unit:=wdWord, Count:=1
Selection.TypeText Text:="-"
Selection.PasteAndFormat (wdPasteDefault)
Selection.MoveDown Unit:=wdParagraph, Count:=1
Selection.MoveLeft Unit:=wdWord, Count:=1
Selection.TypeBackspace
Selection.MoveRight Unit:=wdWord, Count:=1
Selection.TypeText Text:=" "
End Sub

Download Tutorial

Video Tutorial

Dowload Script

Copy and paste it in your document.