Replacing a Sentence with New Format

Jetheat · #1 11-21-2023, 01:17 PM

I have a document with a table.

In one of the rows, it has a sentence like this:

door type: Flat Entry Door door material: Wood

I'd like to replace all instances of this with proper formatting like this:

Door Type: Flat-Entry Door
Door Material: Wood

I have already tried 'find and replace' to do this, but it doesn't seem to work.

Can a Macro do this across the document?

Of course, whatever variable comes after Door Type: and Door Material: should appear as it is but properly formatted. Formatted for Calibri (8).

See my attached doc.

Is there a way to do this?

I use Word on a Mac.

JH

gmaxey · #2 11-21-2023, 03:11 PM

As long as all of the current format in your working files are consistent with your sample find and replace should work fine.

Find " door type"
Replace with "Door Type"

Find " door material
Replace with "^pDoor Material"

Jetheat · #3 11-21-2023, 03:32 PM

I also need to place it on two lines instead of one and format it to Calibri 8.

I may have 20 of them on one doc and so I was thinking of an easy macro.

Also, the text after Door Type and Door Material could be different in different tables.

JH

gmaxey · #4 11-21-2023, 03:57 PM

Macros aren't easy to write and this is not a macro writing service. This is a forum to help people who want to learn how to write their own macros.

Have you tried what I posted?

If you did, it would not matter how many "of them" you have in the document and it wouldn't matter what text follows " door type" and " door material"

Do a little research on how to write a "find and replace" macro. If you can't figure it out, then post what you tried and I or someone will be glad to help you from there.

Guessed · #5 11-21-2023, 04:21 PM

For the content you provided, this macro works

Code:

Sub Macro1()
  Dim aRng As Range, aSty As Style
  Set aRng = ActiveDocument.Range
  Set aSty = ActiveDocument.Styles("Note Heading")
  aSty.Font.Name = "Calibri"
  aSty.Font.Size = 8
  With aRng.Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Replacement.Style = aSty
    .Text = "door type:"
    .Replacement.Text = "Door Type:"
    .Forward = True
    .Wrap = wdFindStop
    .Format = True
    .MatchCase = True
    Do While .Execute(Replace:=wdReplaceOne)
      aRng.Paragraphs(1).Range.Font.Reset
      aRng.Collapse Direction:=wdCollapseEnd
    Loop
  End With
  Set aRng = ActiveDocument.Range
  With aRng.Find
    .Text = "door material:"
    .Replacement.Text = "^pDoor Material:"
    .Execute Replace:=wdReplaceAll
  End With
End Sub

Jetheat · #6 11-22-2023, 09:30 AM

Quote:

Originally Posted by Guessed

For the content you provided, this macro works

Code:

Sub Macro1()
  Dim aRng As Range, aSty As Style
  Set aRng = ActiveDocument.Range
  Set aSty = ActiveDocument.Styles("Note Heading")
  aSty.Font.Name = "Calibri"
  aSty.Font.Size = 8
  With aRng.Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Replacement.Style = aSty
    .Text = "door type:"
    .Replacement.Text = "Door Type:"
    .Forward = True
    .Wrap = wdFindStop
    .Format = True
    .MatchCase = True
    Do While .Execute(Replace:=wdReplaceOne)
      aRng.Paragraphs(1).Range.Font.Reset
      aRng.Collapse Direction:=wdCollapseEnd
    Loop
  End With
  Set aRng = ActiveDocument.Range
  With aRng.Find
    .Text = "door material:"
    .Replacement.Text = "^pDoor Material:"
    .Execute Replace:=wdReplaceAll
  End With
End Sub

This is superb. Thank you Andrew.

Can a slight adjustment be made?

The original sentence either has a space before it or some text which is joined onto it (like xxxDoor type).

Is there a way for the code to remove any space before the word, or separate the previous word from 'Door', and then move the whole thing onto another line anyway?

So:
xxxdoor type: Flat Entry Door door material: Wood

would become:

xxx
Door Type: Flat Entry Door
Door Material: Wood

and
door type: Flat Entry Door door material: Wood

Becomes
Door Type: Flat Entry Door
Door Material: Wood

Can an adjustment like this be made in the code?

Really helpful.
Thanks,

JH

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Sentence Template	michissimo	Word	1	11-19-2020 05:53 PM
VBA: Set two styles in one sentence	jeffreybrown	Word VBA	6	09-07-2018 03:46 PM
I want to know how to format a sentence after beginning it with an automatic number	spirituel	Word	2	09-29-2015 01:50 AM
End of sentence puncuation.	nrsmd	Word	2	07-04-2015 10:33 PM
Delete does not bring second sentence closer to first sentence	Andoheb	Word	29	07-03-2014 01:48 PM