#1
|
||||
|
||||
Strugling with a macro
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 |
#2
|
||||
|
||||
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
__________________
Andrew Lockton Chrysalis Design, Melbourne Australia |
#3
|
||||
|
||||
Works perfectly. Your assistance is sincerely appreciated. If I can ever help with anything (what could that be? don't hesitate to reach out.
|
#4
|
|||
|
|||
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 |