Replacing a Sentence with New Format

[Jetheat]

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]

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]

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]

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]

For the content you provided, this macro works

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]

Originally Posted by Guessed

For the content you provided, this macro works

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