TextAreaからWinwordとメモ帳にデータを保存するにはどうすればいいですか？

私はスクリプトの割り当ての一部として、ユーザーがテキストエリアにデータを入力できるhtmlフォームを作成する必要があります。このフォームは、HドライブにWordまたはメモ帳のいずれかのドキュメントとして保存できます。 HTAを使用します。 HTMLフォームの部分は非常に簡単でしたが、どちらかのボタンをクリックすると正しい場所にデータが保存されるようになっています。これまで私は最初にWordでファイルを保存するための最初のボタンを手に入れていましたが、ここからどこに行くのかについては率直に言っています。これまで私が持っていたコードは以下の通りです：TextAreaからWinwordとメモ帳にデータを保存するにはどうすればいいですか？

<html> 
<head> 
<HTA:APPLICATION> 

<script type="text/javascript" language="javascript"> 
function SaveFile() 
{ 
wordApp = new ActiveXObject("Word.Application"); 
wordApp.Visible = true; 
} 
</script> 
</head> 
<body> 
<form> 
Enter your information: 
<br /> 
<textarea cols="40" rows="12"> 
</textarea> 
<br /> 
<input type="button" value="save into word" id="Word.Application" /> 
<input type="button" value="save into notepad" /> 
</form> 
</body> 
</html>

私はこれに関する助けを得ることができますか？前もって感謝します。

出典

2017-09-23 Paraiyar

まあ、アクションをトリガーするイベントがありません。この場合は 'onClick'。それによって、 'onClick'はあなたのSaveFile関数を呼び出します。私はSaveFile関数に渡される値によって、どのアプリケーションがデータを保存するために使用されるかを決める汎用の保存関数を使用することをお勧めします（このために条件付き構造の1つを使用できます）。

onClick="SaveFile('notepad')" //saves data in notepad 

onClick="SaveFile('word')" //saves data in word

出典

2017-09-23 04:25:08

あなたはこのHTAのために試してみることができます。

<html> 
<Title>Save file into noteapd and Word Application</Title> 
<META HTTP-EQUIV="MSThemeCompatible" CONTENT="YES"> 
<head> 
<HTA:APPLICATION 
ICON="Notepad.exe" 
APPLICATIONNAME = "Save file into noteapd and Word Application" 
BORDER="dialog" 
BORDERSTYLE="complex" 
> 
</head> 
<script type="text/Vbscript"> 
'***************************************************** 
Sub window_onload() 
    CenterWindow 500,350 
End Sub 
'***************************************************** 
Sub CenterWindow(x,y) 
    Dim iLeft,itop 
    window.resizeTo x,y 
    iLeft = window.screen.availWidth/2 - x/2 
    itop = window.screen.availHeight/2 - y/2 
    window.moveTo ileft,itop 
End Sub 
'***************************************************** 
Sub Save2Word() 
'Create and Save a Word Document 
Title = "Data saved into Word Appplication" 
FileDoc = "C:\" & Month(Date) & "_" & Day(Date) & "_" & Year(Date) & ".doc" 
Set objWord = CreateObject("Word.Application") 
objWord.Visible = False 
Txtarea = document.all("Txtarea").Value 
Set objDoc = objWord.Documents.Add() 
Set objSelection = objWord.Selection 
objSelection.Font.Name = "Comic Sans MS" 
objSelection.Font.Size = "12" 
objSelection.TypeText Txtarea 
objDoc.SaveAs(FileDoc) 
objWord.Quit 
MsgBox "Data saved into : " & FileDoc,vbInformation,Title 
End Sub 
'***************************************************** 
Sub Save2Notepad() 
'Save into a Notepad Document 
Title = "Data saved into Notepad Appplication" 
Set fso = CreateObject("Scripting.FileSystemObject") 
FileTxt = "C:\" & Month(Date) & "_" & Day(Date) & "_" & Year(Date) & ".txt" 
Txtarea = document.all("Txtarea").Value 
Set oFile = fso.OpenTextFile(FileTxt,8,true) 
oFIle.WriteLine Txtarea 
oFile.Close 
MsgBox "Data saved into : " & FileTxt,vbInformation,Title 
End Sub 
'***************************************************** 
</script> 
<body> 
<center> 
<form> 
Enter your information: 
<br> 
<textarea ID="Txtarea" NAME="Txtarea" cols="40" rows="12"></textarea> 
<hr> 
<input type="button" value="save into word" onClick="Save2Word()"/> 
<input type="button" value="save into notepad" onClick="Save2Notepad()"/> 
<hr> 
</form> 
</center> 
</body> 
</html>

を

出典

2017-09-25 11:07:23 Hackoo

TextAreaからWinwordとメモ帳にデータを保存するにはどうすればいいですか？

答えて

関連する問題