vba - 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