[belajar-excel] copy dari notepad ke msword lalu disave

classic Classic list List threaded Threaded
3 messages Options
Reply | Threaded
Open this post in threaded view
|

[belajar-excel] copy dari notepad ke msword lalu disave

Muhammad Risky
Teman2,

bagaimana caranya agar memindahkan tulisan dari notepad ke msword, seperti yang dilampiran?

adakah di excel seperti method atau apa yang bisa mengontrol software lain sehingga software lain itu bergerak otomatis sesuai yang kita inginkan?


terima kasih

notepad ke msword.zip (31K) Download Attachment
Reply | Threaded
Open this post in threaded view
|

[belajar-excel] copy dari notepad ke msword lalu disave

Muhammad Risky
Teman2,


bagaimana caranya agar memindahkan tulisan dari notepad ke msword, seperti yang dilampiran?

adakah di excel seperti method atau apa yang bisa mengontrol software lain sehingga software lain itu bergerak otomatis sesuai yang kita inginkan?


terima kasih

notepad ke msword.zip (31K) Download Attachment
Reply | Threaded
Open this post in threaded view
|

Re: [belajar-excel] copy dari notepad ke msword lalu disave

iHaps
Sub OpenAndSaveDoc()
   '--------------------------------------------
   ' iHaps : buka & save word Doc dari VBA Excel
   ' Maarweg / 14 Mar 2012
   '--------------------------------------------
   Dim PathDirNm As String, r As Integer
   Dim FSO As Object, FOL As Object, F As Object
   Dim WdApp As Object, Wdocx, DocxName As String

   Set WdApp = CreateObject("Word.Application")
   PathDirNm = ThisWorkbook.Path
   Range("C2") = PathDirNm
   Range("C11").CurrentRegion.ClearContents

   On Error GoTo Ngisorr
   Set FSO = CreateObject("Scripting.FileSystemObject")
   Set FOL = FSO.GetFolder(PathDirNm).Files

   For Each F In FOL
     If LCase(F.Name) Like "*.txt" Then
     r = r + 1
      With Range("C11")
         '--mendaftar fileName ke sheet --
         .Cells(r, 0) = r
         .Cells(r, 1) = F.Name
         '--membuka txt
         DocxName = Replace(F.Name, ".txt", "")
         Set Wdocx = WdApp.Documents.Open(PathDirNm & "\" & F.Name)
         '--mensave as doc di folder hasil lain
         Wdocx.SaveAs _
            Filename:=PathDirNm & "\hasil\" & DocxName, _
            FileFormat:=wdFormatDocumentDefault
         '--menutup doc
         Wdocx.Close
      End With
     End If
   Next
   Set WdApp = Nothing
Ngisorr:
End Sub
'--------------------------------------

http://www.box.com/s/088a6a211bd261d8eecb

[image: Inline image 1]
*
*
*- i Haps -*
*
*


*2012/3/18 Muhammad Risky <[hidden email]>
> Teman2,
> bagaimana caranya agar memindahkan tulisan dari notepad ke msword,
seperti yang dilampiran?
> adakah di excel seperti method atau apa yang bisa mengontrol software
lain sehingga software lain itu *
*> bergerak otomatis sesuai yang kita inginkan?
> terima kasih*

msWord_Library.PNG (32K) Download Attachment