" + pageName + "

Sub htmlSkel()
'
' htmlSkel Macro
' Macro created 01/22/98 by Andy Harris
' Shows the HTML Skeleton in Office 97 Syntax

  Dim pageName As String
  pageName = InputBox("Page Name?")
  
  Selection.TypeText Text:="<html>"
  Selection.TypeParagraph
  Selection.TypeText Text:="<head>"
  Selection.TypeParagraph
  Selection.TypeText ("<title>" + pageName + "</title>")
  Selection.TypeParagraph
  Selection.TypeText Text:="</head>"
  Selection.TypeParagraph
  Selection.TypeParagraph
  Selection.TypeParagraph
  Selection.TypeParagraph
  'move up eight lines
  Selection.MoveUp Unit:=wdLine, Count:=8

End Sub


Sub htmlSkel()
'
' htmlSkel Macro
' Macro created 01/22/98 by Andy Harris
' Shows the HTML Skeleton in Office 97 Syntax

  Dim pageName As String
  pageName = InputBox("Page Name?")
  
="&copy; Andy Harris, IUPUI CS Dept<br>"
  Selection.TypeParagraph
  Selection.TypeText Text:="<a href = mailto:aharris@cs.iupui.edu>"
  Selection.TypeText Text:="aharris@cs.iupui.edu</a>"
  Selection.TypeParagraph
  Selection.TypeText Text:="</body>"
  Selection.TypeParagraph
  Selection.TypeText Text:="</html>"
  Selection.TypeParagraph
  'move up eight lines
  Selection.MoveUp Unit:=wdLine, Count:=8

End Sub