PeopleSoft Adoption Made Smooth & Simple!
On-The-Job Training Is made Intuitive & Easy With WalkMe's On-Screen Guidance Tool. Claim Your Free WalkMe Account Now
Sub applyColor() Dim oPar As Paragraph, Color As WdColor, strColor As String For Each oPar In Selection.Paragraphs strColor = (Left(oPar.Range.Text, Len(oPar.Range.Text) - 1)) Color = strColor oPar.Range.Shading.BackgroundPatternColor = Color Next oPar End Sub
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.