WORD文書を新規作成するには？ (ID:123706)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 '======================================================================= ' Word 起動 '======================================================================= '【引数】 ' para = 文書ファイル名 '【戻り値】 ' boolean = 処理結果 ' TRUE = 正常 ' FALSE = エラー '【処理】 ' ・Word を起動する。 '【履歴】 ' 1999.04.17 sak ver 1.00 新規作成 '======================================================================= Public Function ExecWord(para As String) As Boolean Dim wrd As variant '** Word 起動 On Local Error Resume Next Set wrd = CreateObject("Word.Application") Shell wrd.path & "\winword.exe " & para, 1 if err <> 0 then ExecWord = False else ExecWord = True end if On Local Error GoTo 0 End Function