rand(life)

엑셀에서 매크로를 실행하여 특정 폴더안의 모든 워드 문서 중에서 본문에 특정한 단어가 있는지 검사한 후 해당 단어가 있는 문장과 문장의 첫단어가 있는 라인 수 해당 파일의 이름을 출력하는 매크로이다 VB편집기에서 도구 - 참조 클릭하고 Microsoft Word Object Library에 체크를 해야 작동한다. Option Explicit Sub macro() Dim WApp As Object, WDoc As Object, WDR As Object Dim ExR As Range, sPath As String Dim str2Find As String, myData As String, sFname As String, myfile As String Dim myline As Long Set ExR = Rang..

MS워드는 사용할 일이 거의 없는데, 다른 분이 MS워드로 만든 자료를 이용하려다보니 이런것도 공부하게 된다. 문서 안에 있는 모든 표의 크기를 "창의 크기에 자동으로 맞춤"으로 맞추는 일을 하는 VBA이다. 오피스튜터와 책을 참고해서 만들었다. Sub ExParagraph() Do Selection.GoTo What:=wdGoToTable, Which:=wdGoToNext, Count:=1, Name:="" Selection.Find.ClearFormatting On Error GoTo errorhandler Selection.Tables(1).AutoFitBehavior (wdAutoFitWindow) Selection.MoveDown Unit:=wdLine, Count:=2 Loop errorhan..