Useful Macros for Designing HTML Pages

These macros will help you design HTML pages. They are by no means complete, however they do provide a framework for adding further code.

 
MENU "NATSPEAK" {
	STATE "Dragon NaturallySpeaking" {
		 COMMAND "Open Preformated Text" {
			KEYS {
				<PRE>\n
			}
		}

		COMMAND "Close Preformated Text" {
			KEYS {
				</PRE>\n
			}
		}

		COMMAND "Open Header " {
			SCRIPT {
				SendKeys "<H"
				SendKeys "{" + _arg1 + "}"
				SendKeys ">"
				SendKeys "</H"
				SendKeys "{" + _arg1 + "}"
				SendKeys ">"
				SendKeys "{Left 4}"
			}
		}

		COMMAND "Insert < htmltag >" {
			SCRIPT {
				If _arg1 = "Paragraph" then
				SendKeys "<P>"
				HeardWord "\New-Paragraph"
				end if
				If _arg1 = "Line Break" then
				SendKeys "<BR>" 
				HeardWord "\New-Paragraph"
				end if
				If _arg1 = "Horizontal Rule" then SendKeys "<HR>"
			}
		}

		COMMAND "Open " {
			SCRIPT {
				if _arg1 = "Anchor" then 
				SendKeys "<A HREF=""""></A>"
				SendKeys "{Left 8}"
				end if
				if _arg1 = "Italics" then
				SendKeys "<I></I>"
				SendKeys "{Left 4}"
				end if
				if _arg1 ="Comment" then
				SendKeys "<!-- -->"
				SendKeys "{Left 3}"
				end if
				if _arg1= "Unordered List" then
				SendKeys "<UL>{Enter}"
				SendKeys "     <LI>{Enter}"
				SendKeys "</UL>{Enter}"
				SendKeys "{Left 7}"
				end if
				If _arg1 = "Item" then
				SendKeys "{Space 5}"
				SendKeys "<LI>"
				end if
				If _arg1 = "Skeleton Page"  then
				SendKeys "<HTML>{Enter}"
				SendKeys "<HEAD>{Enter}"
				SendKeys "<TITLE></TITLE>{Enter}"
				SendKeys "</HEAD>{Enter}"
				SendKeys "<BODY>{Enter}"
				SendKeys "</BODY>{Enter}"
				SendKeys "</HTML>{Enter}"
				SendKeys "{Left 40}"
				end if
				If _arg1 = "Named Anchor" then
				SendKeys "<A NAME=""""></A>"
				SendKeys "{Left 6}"
				end if
			}
		}
		
		LIST "headerlist" {
			"1"
			"2"
			"3"
			"4"
		}

		LIST " htmltag " {
			"Paragraph"
			"Line Break"
			"Horizontal Rule"
		}

		LIST "HTMLLIST" {
			"Anchor"
			"Italics"
			"Comment"
			"Unordered List"
			"Item"
			"Skeleton Page"
			"Named Anchor"
		}
	}