0
我有word文档。我想在打开这个文档时创建一个文本文件。 如何使用宏创建文本文件?如何使用MS Office中的宏创建文本文件?
我有word文档。我想在打开这个文档时创建一个文本文件。 如何使用宏创建文本文件?如何使用MS Office中的宏创建文本文件?
试试这个。您可以在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