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

Àμö/ÆĶó¸ÞÅÍ
expression (Ç¥Çö½Ä : expression)
ÇʼöÀûÀÎ ¿ä¼ÒÀ̸ç, Àû¿ë ¸ñ·Ï¿¡ ÀÖ´Â Çϳª ÀÌ»ó °³Ã¼¸¦ ¹ÝȯÇϴ ǥÇö½ÄÀÌ´Ù.
sCmdID : (¸í·É¾î ÀνÄÀÚ)
ÇʼöÀûÀÎ ¿ä¼ÒÀ̸ç, command Identifiers¸¦ ÁöÁ¤ÇÏ´Â ¹®ÀÚ¿­ÀÌ»ç.
¹Ýȯ°ª

ÁöÁ¤µÈ ¸í·ÉÀÌ Áö¿øµÇ´Â°¡¸¦ ºÎ¿ï°ªÀ¸·Î ¹ÝȯÇÑ´Ù.

true ÁöÁ¤µÈ ¸í·ÉÀÌ Áö¿øµÈ´Ù.
false ÁöÁ¤µÈ ¸í·ÉÀÌ Áö¿øµÇÁö ¾Ê´Â´Ù.
Àû¿ë
°³Ã¼scriptIE
ÂüÁ¶
execCommand queryCommandEnabled queryCommandIndeterm queryCommandState queryCommandSupported queryCommandText queryCommandValue

ÁÖ¾îÁø ¸í·É¿¡ µû¸¥ °ü·Ã °ªÀ» µð½ºÇ÷¹ÀÌÇÑ´Ù.

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