tag:blogger.com,1999:blog-83269383962809821182024-03-14T00:00:07.496-07:00FREE CODING IN PROGRAMMINGvisual basic, visual basic editor, php, asp, editor flash, etcfree ebookhttp://www.blogger.com/profile/06744330838229744548noreply@blogger.comBlogger3125tag:blogger.com,1999:blog-8326938396280982118.post-6310314722857706042009-06-22T03:05:00.001-07:002009-06-22T03:14:30.327-07:00Automatic Word in Visual Basic Editor<span class="fullpost"><br /><div><div style="margin: 5px;">This code to saving file with your name :<br /><div class="smallfont" style="margin-bottom: 2px;"><i><span style="font-weight: bold;"><br /></span></i><input value="Show" style="margin: 0px; padding: 0px; width: 60px; font-size: 10px;" onclick="if (this.parentNode.parentNode.getElementsByTagName('div')[1].getElementsByTagName('div')[0].style.display != '') { this.parentNode.parentNode.getElementsByTagName('div')[1].getElementsByTagName('div')[0].style.display = ''; this.innerText = ''; this.value = 'Hide'; } else { this.parentNode.parentNode.getElementsByTagName('div')[1].getElementsByTagName('div')[0].style.display = 'none'; this.innerText = ''; this.value = 'Show'; }" type="button"><br /></div><br /><div class="alt2" style="border: 1px inset ; margin: 0px; padding: 6px;"><br /><div style="display: none;"><br /><span style="font-style: italic;"><br />Sub KataUlang()<br />'Kata Ulang designed by SUTRISNO<br />'http://trisnowlaharwetan.net<br />'http://muhammad-fauzil-adhim.com<br />'http://ourvideotutorial.blogspot.com<br />'http://freeofcode.blogspot.com<br />Selection.MoveLeft Unit:=wdWord, Count:=1, Extend:=wdExtend<br />Selection.Copy<br />Selection.MoveRight Unit:=wdWord, Count:=1<br />Selection.TypeText Text:="-"<br />Selection.PasteAndFormat (wdPasteDefault)<br />Selection.MoveDown Unit:=wdParagraph, Count:=1<br />Selection.MoveLeft Unit:=wdWord, Count:=1<br />Selection.TypeBackspace<br />Selection.MoveRight Unit:=wdWord, Count:=1<br />Selection.TypeText Text:=" "<br />End Sub<br /><br /><table align="center" border="10"><br /><tbody><tr><br /><td><a href="http://muhammad-fauzil-adhim.com/?p=32" target="_blank"> Download Tutorial </a></td><br /><td><a href="http://ourvideotutorial.blogspot.com/2009/06/saving-file-with-your-name.html" target="_blank"> Video Tutorial </a></td><br /><td><a href="http://freeofcode.blogspot.com/2009/06/saving-file-with-your-name.html" target="_blank"> Dowload Script </a></td><br /></tr><br /></tbody></table><br /></span><br /></div></div></div></div><br />Copy and paste it in your document.<br /><br /> </span>free ebookhttp://www.blogger.com/profile/06744330838229744548noreply@blogger.com0tag:blogger.com,1999:blog-8326938396280982118.post-61185352975133289362009-06-10T15:32:00.000-07:002009-06-10T15:36:21.148-07:00Saving File with Password<div><div style="margin: 5px;">This code to saving file with your name :<br /><div class="smallfont" style="margin-bottom: 2px;"><i><span style="font-weight: bold;"><br /></span></i><input value="Show" style="margin: 0px; padding: 0px; width: 60px; font-size: 10px;" onclick="if (this.parentNode.parentNode.getElementsByTagName('div')[1].getElementsByTagName('div')[0].style.display != '') { this.parentNode.parentNode.getElementsByTagName('div')[1].getElementsByTagName('div')[0].style.display = ''; this.innerText = ''; this.value = 'Hide'; } else { this.parentNode.parentNode.getElementsByTagName('div')[1].getElementsByTagName('div')[0].style.display = 'none'; this.innerText = ''; this.value = 'Show'; }" type="button"><br /></div><br /><div class="alt2" style="border: 1px inset ; margin: 0px; padding: 6px;"><br /><div style="display: none;"><br /><span style="font-style: italic;"><br />Sub filesave()<br />' Created by Sutrisno<br />' http://trisnowlaharwetan.net<br />' http://muhammad-fauzil-adhim.com<br />' http://freeofcode.blogspot.com<br />' http://ourvideotutorial.blogspot.com<br />' Title : menyimpan file otomatis di password<br /><br />Dim MyPass, FileName As String, Space<br />MyPass = "sutrisno" 'bisa diganti dengan yang lain<br />Space = Left(ActiveDocument.Name, 8)<br />If Space = "Document" Then<br /> Dialogs(wdDialogFileSaveAs).Show<br /> FileName = Left(ActiveDocument.Name, (Len(ActiveDocument.Name) - 4)) & " "<br /> ActiveDocument.SaveAs FileName:=FileName, Password:=MyPass<br />End If<br />ActiveDocument.Save<br />End Sub<br /><table align="center" border="10"><br /><tbody><tr><br /><td><a href="http://muhammad-fauzil-adhim.com/?p=32" target="_blank"> Download Tutorial </a></td><br /><td><a href="http://ourvideotutorial.blogspot.com/2009/06/saving-file-with-your-name.html" target="_blank"> Video Tutorial </a></td><br /><td><a href="http://freeofcode.blogspot.com/2009/06/saving-file-with-your-name.html" target="_blank"> Dowload Script </a></td><br /></tr><br /></tbody></table><br /></span><br /></div></div></div></div><br />Copy and paste it in your document.free ebookhttp://www.blogger.com/profile/06744330838229744548noreply@blogger.com0tag:blogger.com,1999:blog-8326938396280982118.post-87203441700460450942009-06-03T12:04:00.000-07:002009-06-05T01:48:38.285-07:00Saving File With Your Name<div><div style="margin: 5px;">This code to saving file with your name :<br /><div class="smallfont" style="margin-bottom: 2px;"><i><span style="font-weight: bold;"><br /></span></i><input value="Show" style="margin: 0px; padding: 0px; width: 60px; font-size: 10px;" onclick="if (this.parentNode.parentNode.getElementsByTagName('div')[1].getElementsByTagName('div')[0].style.display != '') { this.parentNode.parentNode.getElementsByTagName('div')[1].getElementsByTagName('div')[0].style.display = ''; this.innerText = ''; this.value = 'Hide'; } else { this.parentNode.parentNode.getElementsByTagName('div')[1].getElementsByTagName('div')[0].style.display = 'none'; this.innerText = ''; this.value = 'Show'; }" type="button"><br /></div><br /><div class="alt2" style="border: 1px inset ; margin: 0px; padding: 6px;"><br /><div style="display: none;"><br /><span style="font-style: italic;">Sub FileSave()<br />‘Created by Sutrisno<br />‘http://trisnowlaharwetan.net<br />Dim FileName, MyName, FirstName<br />MyName = "trisno-"<br />a = Left(ActiveDocument.Name, 8)<br />If a = "Document" Then<br />Dialogs(wdDialogFileSaveAs).Show<br />End If<br />FirstName = ActiveDocument.Name<br />y = Left(FirstName, Len(MyName))<br />If y = MyName Then<br />FileName = ActiveDocument.Name<br />Else<br />FileName = MyName & ActiveDocument.Name<br />End If<br />ActiveDocument.SaveAs FileName<br />End Sub<br /><table align="center" border="10"><br /><tbody><tr><br /><td><a href="http://muhammad-fauzil-adhim.com/?p=32" target="_blank"> Download Tutorial </a></td><br /><td><a href="http://ourvideotutorial.blogspot.com/2009/06/saving-file-with-your-name.html" target="_blank"> Video Tutorial </a></td><br /><td><a href="http://freeofcode.blogspot.com/2009/06/saving-file-with-your-name.html" target="_blank"> Dowload Script </a></td><br /></tr><br /></tbody></table><br /></span><br /></div></div></div></div><br />Copy and paste it in your document.free ebookhttp://www.blogger.com/profile/06744330838229744548noreply@blogger.com1