Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
Dim oWord As Object Dim oDoc As Object Dim oPara1 As Object, oPara2 As Object Dim strText As String oWord = CreateObject("Word.Application") oWord.Visible = True oDoc = oWord.Documents.Add oDoc.Activate() ' Attempt #1 With oWord.Selection .Font.Size = 24 .Font.Bold = True .TypeText("2009 Call Report") .Borders.Item(wdBorderBottom).LineStyle = wdLineStyleSingle .Font.Size = 12 .Font.Bold = False .TypeParagraph() .Font.Color = wdColorRed .Font.Italic = False .TypeText("This sentence will appear in red. ") .TypeParagraph() .Font.Color = wdColorBlack .Font.Italic = True .Font.Size = .Font.Size + 2 .TypeText("Text color was reset to black, " & _ "but the font size was increased by two points.") End With ' Attempt #2 oPara1 = oDoc.Content.Paragraphs.Add oPara1.Range.Text = "2009 Call Reports" oPara1.Range.Font.Bold = True oPara1.Range.Borders.Item(wdBorderBottom).LineStyle = wdLineStyleSingle oPara1.Format.SpaceAfter = 24 '24 pt spacing after paragraph. oPara1.Range.InsertParagraphAfter() oPara2 = oDoc.Content.Paragraphs.Add oPara2.Range.Text = "Salesperson: " oPara2.Range.Font.Bold = True oPara2.Range.Font.Color = wdColorRed oPara2.Format.SpaceAfter = 14 oPara2.Range.InsertParagraphAfter()
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.