Word VBA Insert Non-Breaking Space in Word Table

Row.HeadingFormat is the flag that indicates that Word thinks the row is a table heading that repeats on every page. If you have some other definition of a table heading, you'll need to say what it is - perhaps you just want to change the first row of each table, I don't know:

For Each Table In ActiveDocument.Tables

        Table.Rows(1).Range.Find.Execute FindText:="$", _

                                         Replace:=wdReplaceAll, _

                                         ReplaceWith:=ChrW(160) & "$" & ChrW(160)

    Next

Enjoy,

Tony

www.WordArticles.com

Thanks Tony

The above code works fine but "Row.HeadingFormat" condition always return = 0 since it was unable to insert the non-breaking space before and after $ in table heading

if block that peace of code, it replace in all the table cells, i need to insert non-breaking space only table heading before and after the $ sign

please check let me know your comments

orcas

Orcas

This will replace all $ signs in table heading rows with dollar signs bounded by non-breaking spaces, as asked. I don't quite see why you want one after the dollar sign, and I would have thought you actually want to remove the ordinary space before the dollar sign at the same time, but I daresay you can tweak the code to suit ...

For Each Table In ActiveDocument.Tables

        For Each Row In Table.Rows

            If Row.HeadingFormat Then

                Row.Range.Find.Execute FindText:="$", _

                                       Replace:=wdReplaceAll, _

                                       ReplaceWith:=ChrW(160) & "$" & ChrW(160)

            End If

        Next

    Next

Enjoy,

Tony

www.WordArticles.com