如何使用MS Office中的宏创建文本文件？

Question

我有word文档。我想在打开这个文档时创建一个文本文件。 如何使用宏创建文本文件？

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