ÇöÀçÀÇ ¹üÀ§¿¡¼¼ ÁöÁ¤µÈ ¸í·ÉÀÌ Áö¿øµÇ´Â°¡¸¦ ³ªÅ¸³»´Â ºÎ¿ï°ªÀ» ¹ÝȯÇÑ´Ù.
ÁöÁ¤µÈ ¸í·ÉÀÌ Áö¿øµÇ´Â°¡¸¦ ºÎ¿ï°ªÀ¸·Î ¹ÝȯÇÑ´Ù.
| true | ÁöÁ¤µÈ ¸í·ÉÀÌ Áö¿øµÈ´Ù. |
| false | ÁöÁ¤µÈ ¸í·ÉÀÌ Áö¿øµÇÁö ¾Ê´Â´Ù. |
| °³Ã¼ | script | IE |
|---|
ÁÖ¾îÁø ¸í·É¿¡ µû¸¥ °ü·Ã °ªÀ» µð½ºÇ÷¹ÀÌÇÑ´Ù.
<BUTTON onClick="QueryCommand()">¸í·É¿¡ µû¸¥ °ü·Ã °ª ¾ò±â</BUTTON>
<SCRIPT language=VBScript>
Sub QueryCommand() 'ÇöÀçÀÇ ¼±Åÿ¡¼ ¸í·ÉÀÌ Áö¿øµÇ´Â°¡¸¦ Ãâ·ÂÇÑ´Ù.
Dim objApp As FrontPage.Application
Dim objDoc As DispFPHTMLDocument
Dim strUser As String
Dim strYN
Set objApp = FrontPage.Application
Set objDoc = objApp.ActiveDocument
strUser = InputBox("¼öÇàÇÒ ¸í·ÉÀ» ÀÔ·ÂÇ϶ó.")
If objDoc.queryCommandSupported(cmdID:=strUser) = True Then
strYN="µÈ´Ù."
Else
strYN="µÇÁö ¾Ê´Â´Ù."
End If
MsgBox "ÀÌ ¸í·É(" & strUser & ")Àº ÇöÀç ¼±ÅÃÀ¸·Î Áö¿ø" & strYN
End Sub
</SCRIPT>