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
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.
Read more...