'' '' This code is part of Document Solutions for Word demos. '' Copyright (c) MESCIUS inc. All rights reserved. '' Imports System.Drawing Imports System.IO Imports GrapeCity.Documents.Word Imports GrapeCity.Documents.Imaging '' This sample demonstrates how to use basic elements '' (text, borders, picture) to create a Word document in code. Public Class SimpleDocument Function CreateDocx() As GcWordDocument Dim doc = New GcWordDocument() Dim sec = doc.Body.Sections.First Dim pars = sec.GetRange().Paragraphs '' Title: Dim title = pars.Add("Simple Word Document") title.Style = doc.Styles(BuiltInStyleId.Title) '' Heading: Dim heading = pars.Add("Basic Elements") heading.Style = doc.Styles(BuiltInStyleId.Heading1) '' Text: Dim p = pars.Add("This document is built using the following basic elements available through the ") Dim run = p.GetRange().Runs.Add("DsWord") run.Style = doc.Styles(BuiltInStyleId.Strong) p.GetRange().Runs.Add(" object model:") '' List: Dim listTemplate = doc.ListTemplates.Add(BuiltInListTemplateId.BulletDefault, "myListTemplate") '' Add bullet items Dim addListItem As Action(Of String) = Sub(t_) Dim p_ = pars.Add(t_) p_.ListFormat.Template = listTemplate p_.Style = doc.Styles(BuiltInStyleId.ListParagraph) End Sub addListItem("Text and text runs") addListItem("Paragraphs") addListItem("List templates") addListItem("Borders") addListItem("Pictures") addListItem("Styles") pars.Add().Style = doc.Styles(BuiltInStyleId.Normal) '' Add picture: Dim picBytes = File.ReadAllBytes(Path.Combine("Resources", "Images", "road.jpg")) '' Create a GcBitmap so that we can find out the native picture size: Dim bmp = New GcBitmap(picBytes) '' Scale picture to fill 80% of the page width: Dim width = doc.Body.Sections.Last.PageSetup.ClientWidth * 0.8F Dim height = bmp.Height * (width / bmp.Width) Dim pic = pars.Add().GetRange().Runs.Add().GetRange().Pictures.Add(picBytes, "image/jpeg") pic.Size.Width.Value = width pic.Size.Height.Value = height pic.WrapFormat.Type = WrapType.TopBottom pic.Position.Horizontal.Type = ShapePositionType.Alignment pic.Position.Horizontal.Alignment = ShapeHorizontalRelativeAlignment.Center '' Adjust styles: Dim font = "Arial" Dim hicolor = Color.SteelBlue Dim bcolor = Color.Coral '' Title: Dim sTitle = doc.Styles(BuiltInStyleId.Title) Dim bb = sTitle.ParagraphFormat.Borders.Bottom bb.LineStyle = LineStyle.Single bb.LineWidth = 4 bb.Color.RGB = bcolor bb.Space = 10 sTitle.Font.Color.RGB = hicolor sTitle.Font.Name = font sTitle.Font.Bold = True sTitle.Font.Size = 30 '' Heading 1: Dim sHeading1 = doc.Styles(BuiltInStyleId.Heading1) sHeading1.Font.Color.RGB = hicolor sHeading1.Font.Name = font sHeading1.Font.Bold = True sHeading1.ParagraphFormat.Spacing.SpaceAfter = 8 '' Normal text: Dim sNormal = doc.Styles(BuiltInStyleId.Normal) sNormal.Font.Name = font sNormal.Font.Size = 12 '' Strong text: Dim sStrong = doc.Styles(BuiltInStyleId.Strong) sStrong.Font.Color.RGB = hicolor sStrong.Font.Italic = True '' Done Return doc End Function End Class