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 <[email protected]>
> 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>>
