DescTools (version 0.99.19)

WrdParagraphFormat: Get or Set the Paragraph Format in Word

Description

WrdParagraphFormat can be used to get and set the font in Word for the text to be inserted.

Usage

WrdParagraphFormat(wrd = DescToolsOptions("lastWord")) WrdParagraphFormat(wrd) <- value

Arguments

value
a list defining the paragraph format. This can contain any combination of: LeftIndent, RightIndent, SpaceBefore, SpaceBeforeAuto, SpaceAfter, SpaceAfterAuto, LineSpacingRule, Alignment, WidowControl, KeepWithNext, KeepTogether, PageBreakBefore, NoLineNumber, Hyphenation, FirstLineIndent, OutlineLevel, CharacterUnitLeftIndent, CharacterUnitRightIndent, CharacterUnitFirstLineIndent, LineUnitBefore, LineUnitAfter and/or MirrorIndents. The possible values of the arguments are found in the Word constants with the respective name. The alignment for example can be set to wdAlignParagraphLeft, wdAlignParagraphRight, wdAlignParagraphCenter and so on. Left alignment with indentation would be set as: list(Alignment=wdConst$wdAlignParagraphLeft, LeftIndent=42.55).

wrd
the pointer to a word instance. Can be a new one, created by GetNewWrd() or an existing one, created by GetCurrWrd(). Default is the last created pointer stored in DescToolsOptions("lastWord").

Value

an object with the class paragraph, basically a list with the attributes of the paragraph in the current cursor position:

See Also

ToWrd, WrdPlot, GetNewWrd, GetCurrWrd

Examples

Run this code
## Not run: 
# # Windows-specific example
# wrd <- GetNewWrd()  # get the handle to a new word instance
# 
# WrdParagraphFormat(wrd=wrd) <- list(Alignment=wdConst$wdAlignParagraphLeft,
#                                     LeftIndent=42.55)
# 
# ToWrd("Lorem ipsum dolor sit amet, consetetur sadipscing elitr, sed diam nonumy
# eirmod tempor invidunt ut labore et dolore magna aliquyam erat, sed diam voluptua.
# At vero eos et accusam et justo duo dolores et ea rebum. Stet clita kasd
# gubergren, no sea takimata sanctus est.\n", wrd=wrd)
# 
# # reset
# WrdParagraphFormat(wrd=wrd) <- list(LeftIndent=0)
# ## End(Not run)

Run the code above in your browser using DataCamp Workspace