MS Office에서 매크로를 사용하여 텍스트 파일을 만드는 방법은 무엇입니까?

Question

나는 워드 문서를 가지고있다. 이 문서를 열 때 텍스트 파일을 만들고 싶습니다. 매크로를 사용하여 텍스트 파일을 만들려면 어떻게해야합니까?

Answer 1

시도해보십시오. Document_Open() 이벤트에 텍스트 파일을 만들 수 있습니다.

Private Sub Document_Open() 
    Dim filesize As Integer 
    Dim FlName As String 

    FlName = "C:\Sample.Txt" 

    '~~> get a free file handle 
    filesize = FreeFile() 

    '~~> Open your file 
    Open FlName For Output As #filesize 

    '~~> Export Text 
    Print #filesize, "Hello World" 
    Close #filesize 
End Sub