''
'' This code is part of Document Solutions for Word demos.
'' Copyright (c) MESCIUS inc. All rights reserved.
''
Imports System.IO
Imports System.Drawing
Imports System.Collections.Generic
Imports System.Linq
Imports GrapeCity.Documents.Word
'' This sample demonstrates how to add content controls to a document.
Public Class ContentControls
Function CreateDocx() As GcWordDocument
Dim doc = New GcWordDocument()
'' Heading:
Dim p = doc.Body.Paragraphs.Add("Content Control Examples")
p.Style = doc.Styles(BuiltInStyleId.Heading1)
p = doc.Body.Paragraphs.Add(
"Below are some examples of content controls. Open the document in MS Word to see the controls in action.")
p.Style = doc.Styles(BuiltInStyleId.Subtitle)
''
'' ContentControlType.DropdownList:
''
p = doc.Body.Paragraphs.Add("ContentControlType.DropdownList")
p.Style = doc.Styles(BuiltInStyleId.Heading2)
p = doc.Body.Paragraphs.Add("Select a fruit from the dropdown list control: ")
p.Style = doc.Styles(BuiltInStyleId.Subtitle)
Dim dropDownListCtrl = p.GetRange().ContentControls.Add(ContentControlType.DropdownList, False)
dropDownListCtrl.DropDownItems.Add(New DropDownItem("apple", "Apples"))
dropDownListCtrl.DropDownItems.Add(New DropDownItem("orange", "Oranges"))
dropDownListCtrl.DropDownItems.Add(New DropDownItem("banana", "Bananas"))
dropDownListCtrl.DropDownItems.Add(New DropDownItem("pear", "Pears"))
'' Add placeholder to the building blocks gallery:
Dim dropDownPlaceholder = doc.GlossaryDocument.BuildingBlocks.Add(
"dropdownlist-placeholder", "General", BuildingBlockGallery.Default,
BuildingBlockInsertOptions.Content, BuildingBlockType.ContentControlPlaceholder)
''set placeholder text
Dim pp = dropDownPlaceholder.Body.Paragraphs.Add("Click to pick")
''apply style to placeholder element
pp.GetRange().Runs.First.Style = p.ParentBody.Document.Styles(BuiltInStyleId.Strong)
''...And change its color
pp.GetRange().Runs.First.Font.Color.RGB = Color.DarkSeaGreen
p.GetRange().Runs.Add(" The green 'Click to pick' text on the left is a placeholder, replaced with the picked fruit when you've selected one.")
'' Set control border color
dropDownListCtrl.Color.RGB = Color.OrangeRed
'' Set control text color:
dropDownListCtrl.Font.Color.RGB = Color.DarkOrange
'' Use building blocks placeholder on the DropDownList contentControl.
dropDownListCtrl.ShowingPlaceholderText = True
dropDownListCtrl.PlaceholderText = dropDownPlaceholder
''
'' ContentControlType.Text
''
p = doc.Body.Paragraphs.Add("ContentControlType.Text")
p.Style = doc.Styles(BuiltInStyleId.Heading2)
p = doc.Body.Paragraphs.Add("ContentControlType.Text allows to enter a single run of text in the control. " +
"All text in a Text control has the same formatting. In this case we use 'Block Text' paragraph style.")
p.Style = doc.Styles(BuiltInStyleId.Subtitle)
Dim textCtrl = doc.Body.ContentControls.Add(ContentControlType.Text, False)
p = textCtrl.Content.GetRange().Paragraphs.Add(
"This is the default content of the only run in the only paragraph in a Text content control.",
doc.Styles(BuiltInStyleId.BlockText))
'' This code demonstrates that only one paragraph, And only one run in it,
'' can exist in a Text control. Both statements under 'try' clauses will fail:
Try
textCtrl.Content.GetRange().Paragraphs.Add("Another paragraph (cannot be added).")
Catch ex As InvalidContentControlSingleChildException
Console.WriteLine("Cannot have more than one paragraph to a Text content control.")
End Try
Try
p.GetRange().Runs.Add("Another run (cannot be added).")
Catch ex As InvalidContentControlSingleChildException
Console.WriteLine("Cannot have more than one run to a Text content control.")
End Try
''
'' ContentControlType.RichText
''
p = doc.Body.Paragraphs.Add("ContentControlType.RichText")
p.Style = doc.Styles(BuiltInStyleId.Heading2)
p = doc.Body.Paragraphs.Add("ContentControlType.RichText allows to have multiple paragraphs, with multiple runs, " +
"in a single RichText content control.")
p.Style = doc.Styles(BuiltInStyleId.Subtitle)
Dim richtext = doc.Body.ContentControls.Add(ContentControlType.RichText, False)
Dim p1 = richtext.Content.GetRange().Paragraphs.Add("First paragraphs in the ")
p1.GetRange().Runs.Add("RichText ", doc.Styles(BuiltInStyleId.Strong))
p1.GetRange().Runs.Add("content control.")
Dim p2 = richtext.Content.GetRange().Paragraphs.Add("Second paragraphs in the ")
p2.GetRange().Runs.Add("RichText ", doc.Styles(BuiltInStyleId.Strong))
p2.GetRange().Runs.Add("content control.")
p2.Style = doc.Styles(BuiltInStyleId.IntenseQuote)
''
'' ContentControlType.BuildingBlockGallery
''
p = doc.Body.Paragraphs.Add("ContentControlType.BuildingBlockGallery")
p.Style = doc.Styles(BuiltInStyleId.Heading2)
p = doc.Body.Paragraphs.Add("ContentControlType.BuildingBlockGallery allows to select items from " +
"building block galleries. Here we allow to select an equation from the built-in Word equations gallery.")
p.Style = doc.Styles(BuiltInStyleId.Subtitle)
'' We create a content control that allows to select equations from
'' the built-in Word equations gallery:
Dim galleryControl = doc.Body.ContentControls.Add(ContentControlType.BuildingBlockGallery)
galleryControl.BuildingBlockCategory = "Built-In"
galleryControl.BuildingBlockGallery = "Equations"
''
'' ContentControlType.Group
''
p = doc.Body.Paragraphs.Add("ContentControlType.Group")
p.Style = doc.Styles(BuiltInStyleId.Heading2)
p = doc.Body.Paragraphs.Add("ContentControlType.Group allows to create groups with modifiable " +
"and constant (non-modifiable) content. Here we create a checkbox with a non-modifiable label on its right.")
p.Style = doc.Styles(BuiltInStyleId.Subtitle)
'' Group content control prevent some kinds of modifications of children controls.
'' Add a group content control that will be used as parent container for
'' child controls:
Dim groupControl = doc.Body.ContentControls.Add(ContentControlType.Group, False)
'' Note how to add ContentControls inside another ContentControl
'' Do Not use groupControl.GetRange().ContentControls.Add(...),
'' instead use groupControl.Content.GetRange().ContentControls.Add(...):
p = groupControl.Content.GetRange().Paragraphs.Add()
Dim checkBox = p.GetRange().ContentControls.Add(ContentControlType.CheckBox, True)
checkBox.Title = "Grouped checkbox"
checkBox.Checked = True
p.GetRange().Runs.Add(" Text to the right of the checkbox")
'' Date
groupControl.Content.GetRange().Paragraphs.Add("Finally, we add a ContentControlType.Date control that shows the current date.")
'' Add a Date control
Dim dt = groupControl.Content.GetRange().ContentControls.Add(ContentControlType.Date, False)
dt.DateFormat = "u"
dt.Date = Util.TimeNow()
'' In the Group contentControl, we have
'' - a checkbox content control
'' - a text to its left
'' - a paragraph
'' - a date content control
'' Due to being inside Group content control, text cannot be changed unless
'' you disable grouping (Word->Developer->Group And select Ungroup).
'' Done
Return doc
End Function
End Class