Ready to get started with anonymous questions today? It's easy! Learn more.
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.