<%@ LANGUAGE="VBSCRIPT" %>
<%
Dim strWordDosyasi
Set strWordDosyasi = CreateObject("Word.Document")
strWordDosyasi.Application.Visible = True
strWordDosyasi.content.Font.Bold = True
strWordDosyasi.content.Font.Italic = True
strWordDosyasi.content.Font.Underline = True
strWordDosyasi.content.Font.Name = "Comic Sans MS"
strWordDosyasi.content.Font.Size = 25
strWordDosyasi.content.insertAfter "word1 word2 word3 word4"
strWordDosyasi.content.InsertParagraphAfter
strWordDosyasi.Words(1).Font.Size = 10
strWordDosyasi.Words(1).Font.ColorIndex = 1
strWordDosyasi.Words(2).Font.Size = 20
strWordDosyasi.Words(2).Font.ColorIndex = 2
strWordDosyasi.Words(3).Font.Size = 30
strWordDosyasi.Words(3).Font.ColorIndex = 3
strWordDosyasi.Words(4).Font.Size = 40
strWordDosyasi.Words(4).Font.ColorIndex = 4
strWordDosyasi.PrintOut
Set strWordDosyasi = Nothing
%>