Re: Search for paragraph, format, & continue this through rest of

Doug,

Thank you so much for the quick response. Unfortunately, this didn't work
and perhaps I didn't explain it well enough and more than likely the code I
provided mislead you (sorry).

The reason my document has the "KeepTogetherTag" as the beginning of the
paragraph and the "KeepTogetherTag1" as the end of the paragraph is because
the paragraphs themselves are different sizes and in different locations
throughout the document.

My main objective is to go through the document, highlight what is between
the tags and format this paragraph to "Keep with Next". After it does one,
it searches again, locates another paragraph, formats it and continues doing
this to the end of the document.

I hope this makes sense.

Thanks, Leigh

"Doug Robbins - Word MVP" wrote:

The following should do it:

Dim prange As Range, pstring As String
Selection.HomeKey wdStory
Selection.Find.ClearFormatting
With Selection.Find
Do While .Execute(FindText:="KeepTogetherTag", MatchWildcards:=False,
Wrap:=wdFindContinue, Forward:=True) = True
Set prange = Selection.Paragraphs(1).Range
pstring = Mid(prange.Text, 16, Len(prange) - 32)
prange.Text = pstring & vbCr
prange.ParagraphFormat.KeepWithNext = True
Loop
End With


--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP

"LDMueller" <LDMueller@xxxxxxxxxxxxxxxxxxxxxxxxx> wrote in message
news:B06DA3C4-0DF7-4147-AF00-2CEE71136C9F@xxxxxxxxxxxxxxxx
Hello,

I have Word 2003. I'm trying to search and highlight a paragph which has
the word "KeepTogetherTag" as the beginning of the paragraph and the word
"KeepTogetherTag1" as the end of the paragrah. Once this paragraph is
highlighted, I to to Format, Paragraph, Line and Page Breaks and under
Pagination I want to ensure only "Keep with Next" is checked.

Below, I've provided my code to do this.

My problem is this. Once I select and format the first paragraph, I need
it
to locate the next paragraph like this, format it and continue to the end
of
the document.

I can write a little VBA and have tried Do While and Loop, but can't seem
to
write it correctly so nothing works.

Any assistance you provide would be greatly appreciated!







Sub FormatP()

' Search document for the word KeepTogetherTag
Selection.Find.ClearFormatting
With Selection.Find
.Text = "KeepTogetherTag"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
' Once you find KeepTogetherTag, go to beginning of the line
' and press F8 to extend next search
Selection.HomeKey Unit:=wdLine
Selection.Extend
Selection.Find.ClearFormatting

' Search document for the word KeepTogetherTag1
' Now a paragraph is highlighted so I can format it to keep together
With Selection.Find
.Text = "KeepTogetherTag1"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute

' Format selected paragraph by going to Format, Paragraph, Line and Page
Breaks
' and under Pagination make sure only "Keep with Next" is checked
With Selection.ParagraphFormat
.SpaceBeforeAuto = False
.SpaceAfterAuto = False
.WidowControl = False
.KeepWithNext = True
.KeepTogether = False
.PageBreakBefore = False
.NoLineNumber = False
.Hyphenation = True
End With

' Move down one line so you can search for the next paragraph
' beginning with KeepTogetherTag
Selection.MoveDown Unit:=wdLine, Count:=1
End Sub




.

Relevant Pages

  • Re: Search for paragraph, format, & continue this through rest of docu
    ... the word "KeepTogetherTag" as the beginning of the paragraph and the word ... Once I select and format the first paragraph, ... ' Search document for the word KeepTogetherTag ... .MatchWholeWord = False ...
    (microsoft.public.word.vba.general)
  • Re: Search for paragraph, format, & continue this through rest of
    ... If the tags are not exactly as you indicated, ... The reason my document has the "KeepTogetherTag" as the beginning of the ... paragraph and the "KeepTogetherTag1" as the end of the paragraph is ... the tags and format this paragraph to "Keep with Next". ...
    (microsoft.public.word.vba.general)
  • Re: Search for paragraph, format, & continue this through rest of
    ... The reason my document has the "KeepTogetherTag" as the beginning of the ... paragraph and the "KeepTogetherTag1" as the end of the paragraph is ... the tags and format this paragraph to "Keep with Next". ... .MatchWholeWord = False ...
    (microsoft.public.word.vba.general)
  • Re: Set list level number in MS Word with AppleScript
    ... Sometimes, an straight paragraph format gets inserted into a numbered list, ... tell paragraph format of selection to set style to style list ... Reading your code, it appears you are setting the "List Level" property, not ...
    (microsoft.public.mac.office.word)
  • Re: Importing Word text into Excel
    ... .Format = False ... .MatchWholeWord = False ... The paragraphs (actually lines because there is a paragraph ... "macropod" wrote: ...
    (microsoft.public.excel.programming)