Strugling with a macro

Guessed · #1 03-17-2024, 02:24 AM

This code works for me and shows how you might do it with your custom styles. I've used built-in styles for illustrating the method. Note that VBA considers '{020)' to be three words which is why the code applies the last character style to the first three words.

Code:

Sub FormatPara()
  Dim aPar As Paragraph, aRng As Range
  Set aPar = Selection.Paragraphs(1)
  With aPar
    .Style = "Body Text"      'Apply a paragraph style to the entire paragraph
    .Range.Sentences(1).Style = "Emphasis"    'Apply a character style to the first sentence
    Set aRng = .Range.Words(3)        'Define a Range for the third 'word'
    aRng.Start = .Range.Start         'Extend that range to the start of the paragraph
    aRng.Style = "Strong"             'Style the range
  End With
End Sub

RRB · #2 03-17-2024, 02:45 AM

Works perfectly. Your assistance is sincerely appreciated. If I can ever help with anything (what could that be?

don't hesitate to reach out.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Macro to Remove Paras with Line Spac 6; Macro to Convert Paragraphs to Outline Numbered	venganewt	Word VBA	0	01-25-2022 06:28 PM
Calling macro from loop-all-files macro only opens one file	Peterson	Word VBA	0	03-27-2021 07:58 PM
Footnote extraction macro [Why is this macro so slow? / anyway to make it faster?]	Le_Blanc	Word VBA	10	03-22-2021 11:38 AM
Spell check macro within macro button field doesn't work in one document	samuelle	Word VBA	0	07-20-2016 02:27 AM
custom icon, undo/redo for macro, permanent macro	Rapier	Excel	0	08-05-2013 06:30 AM