ÇöÀçÀÇ ¹üÀ§¿¡¼¼ ÁöÁ¤µÈ ¸í·ÉÀÌ Áö¿øµÇ´Â°¡¸¦ ³ªÅ¸³»´Â ºÎ¿ï°ªÀ» ¹ÝȯÇÑ´Ù.
ÁöÁ¤µÈ ¸í·ÉÀÌ Áö¿øµÇ´Â°¡¸¦ ºÎ¿ï°ªÀ¸·Î ¹ÝȯÇÑ´Ù.
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>