MyDoc is Document <- WP_NoName1
// Retrieve the fragment corresponding to the current selection in the control
Frag is docFragment <- MyDoc[WP_NoName1.Cursor to WP_NoName1.CursorEnd]

// Apply bold formatting to the content of the fragment
Frag.Formatting.FontBold = True

// List the styles of a document
MyDocControl is Control

// Retrieve an associated document
MyDoc is Document = MyDocControl

// List all the styles used by the document
FOR EACH ADocStyle OF MyDoc.Style
	Trace(ADocStyle.StyleID)
END

// Add the "Title1" style into a document and apply it to the selection
// The definition of "Title1" style comes from another document
MyDocControl is Control = {"MyWPControl", indControl}

// Retrieve an associated document
MyDoc is Document = MyDocControl

// if the "Title1" style does not exist, add it 
	// from a document containing preset styles
IF MyDoc.Style["Title1"] = Null THEN
	// opens a document containing the styles
	MyDocContainingTheStyles is Document = "c:\MyDocWithMyStyles.docx"
	// retrieve the Title 1 style
	StyleTitle1 is docStyle <- MyDocContainingTheStyles.Style["Title1"]
	IF StyleTitle1 <> Null THEN
		// Add the style into the document
		Add(MyDoc.Style, StyleTitle1)
	END
END

// apply the style to the selection
StyleTitle1ForSelection is docStyle <- MyDoc.Style["Title1"]
IF StyleTitle1ForSelection <> Null THEN
	// create the fragment (from the selection)
	f is docFragment(MyDocControl.Value, MyDocControl.Cursor, MyDocControl.SelectionLength)
	// applies the Title1 style to the selection
	f.StyleID = StyleTitle1ForSelection.Identifier
END