Microsoft Office Forums - View Single Post - [Solved] Replace paragraph-marks (line-breaks) in tables with a character-string

macropod · 04-02-2013, 07:22 PM

You could use code like:

Code:

Sub ProcessTables()
Application.ScreenUpdating = False
Dim Tbl As Table
With ActiveDocument
  For Each Tbl In .Tables
    With Tbl.Range.Find
      .ClearFormatting
      .Replacement.ClearFormatting
      .Forward = True
      .Wrap = wdFindStop
      .Format = False
      .MatchCase = False
      .MatchWholeWord = False
      .MatchWildcards = False
      .MatchSoundsLike = False
      .MatchAllWordForms = False
      .Text = "^p"
      .Replacement.Text = "???"
      .Execute Replace:=wdReplaceAll
    End With
  Next
End With
Application.ScreenUpdating = True
End Sub

Simply change the '???' to whatever your replacement string should be.