Strugling with a macro

RRB · #1 03-16-2024, 11:59 PM

Hi friends! Hope you are all well!

I am struggling to write a macro and have not been successful

I have certain paragraphs that follow the same syntax. At their beginning are codes for the pagination program that are in curly brackets like {020).

Then there is a sentence that ends with a period. Then the rest of the paragraph. The paragraph has to be formatted with the style MyParStyle. The pagination codes have to be formatted with MyPgSTyle (a character style) and the first sentence up to and including the period has to be formatted with a char style "MySentStyle".

Assuming we are presently at the end of the paragraph how would a macro handle this?

All assistance is sincerely appreciated!

Thank you and have a good day!

Susan Flamingo

Guessed · #2 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 · #3 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.

gmaxey · #4 03-17-2024, 05:14 AM

Just be aware that Word does not think of a sentence the same way as you or I. Consider:
{20} Mr. Smith goes to Washington. This is the rest of the paragraph text.

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