vba to do a single page only

Question

question

SteveDee-5285 asked May 8, '22 SteveDee-5285 answered May 9, '22

vba to do a single page only

Hello from Steve

Is it possible please for vba to do a single page ie for example page 5.

Sub Hurdles()
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "Hdle"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = True
.MatchWholeWord = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
Selection.Extend
With Selection.Find
.Text = ")"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = True
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
With Selection.Font
.Bold = True
.Color = 15773696
End With
Selection.EscapeKey
Selection.MoveDown Unit:=wdLine, Count:=1
End Sub

office-vba-dev office-word-itpro

· 2

5 |1600 characters needed characters left characters exceeded

Attachments: Up to 10 attachments (including images) can be used with a maximum of 3.0 MiB each and 30.0 MiB total.

emilyhua-msft · May 09 at 02:38 AM

@SteveDee-5285

As this issue is more related to VBA, I would add the related tag.
Thanks for your understandings.

0 ·

SteveDee-5285 emilyhua-msft · May 09 at 02:52 AM

Hello emilyhua

I thank you.

All the best

Steve

0 ·

Answer 1 · 2022-05-09T06:25:06.207Z

DougRobbins-0994 answered May 9, '22

Select the text on the page and then use the following modified code

Sub Hurdles()
Dim rng as Range
Set rng = Selection.Range
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "Hdle"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = True
.MatchWholeWord = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
Selection.Extend
With Selection.Find
.Text = ")"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = True
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
If Selection.Start >= rng.Start AND Selection.End<=rng.End
With Selection.Font
.Bold = True
.Color = 15773696
End With
End if
Selection.EscapeKey
Selection.MoveDown Unit:=wdLine, Count:=1
End Sub

5 |1600 characters needed characters left characters exceeded

Attachments: Up to 10 attachments (including images) can be used with a maximum of 3.0 MiB each and 30.0 MiB total.

Answer 2 · 2022-05-09T07:34:36.58Z

SteveDee-5285 answered May 9, '22 StefanBlom-6438 commented May 9, '22

Hello from Steve

The below is giving me a syntac error

If Selection.Start >= rng.Start AND Selection.End<=rng.End

· 1

5 |1600 characters needed characters left characters exceeded

Attachments: Up to 10 attachments (including images) can be used with a maximum of 3.0 MiB each and 30.0 MiB total.

StefanBlom-6438 · May 09 at 08:08 AM

The line should end with "Then" (which is part of the If ... Then statement):

If Selection.Start >= rng.Start AND Selection.End<=rng.End Then

0 ·

Answer 3 · 2022-05-09T08:20:00.727Z

SteveDee-5285 answered May 9, '22

Hello StefanBlom

I thank you, Yes it now runs however is it possible to do the whole page please.

Meaning I have aleast 10 per page.

all the best Steve

5 |1600 characters needed characters left characters exceeded

Attachments: Up to 10 attachments (including images) can be used with a maximum of 3.0 MiB each and 30.0 MiB total.

Answer 4 · 2022-05-09T11:36:45.647Z

DougRobbins-0994 answered May 9, '22

Try:

Sub Hurdles()
Dim rng As Range, rngfound As Range
Set rng = Selection.Range
Selection.HomeKey wdStory
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
Do While .Execute(FindText:="Hdle", MatchCase:=True, MatchWholeWord:=True, Forward:=True, MatchWildcards:=False, Wrap:=wdFindStop) = True
Set rngfound = Selection.Range
Selection.Collapse wdCollapseEnd
rngfound.End = rng.End
rngfound.End = rngfound.Start + InStr(rng, ")")
With rngfound
If .Start >= rng.Start Then
.Font.Bold = True
.Font.Color = 15773696
Else
Exit Sub
End If
End With
Loop
End With

5 |1600 characters needed characters left characters exceeded

Attachments: Up to 10 attachments (including images) can be used with a maximum of 3.0 MiB each and 30.0 MiB total.

Answer 5 · 2022-05-09T21:21:50.2Z

SteveDee-5285 answered May 9, '22

Hello from Steve

I thank you Doug for the above.

I have tried it, however it is not Changing the .Font.Bold or Font.Colour.

It has in this script line "Selection.HomeKey wdStory" only.

Lets say for example I need to do only page 5.

I thank you for your time on this issue.

5 |1600 characters needed characters left characters exceeded

Attachments: Up to 10 attachments (including images) can be used with a maximum of 3.0 MiB each and 30.0 MiB total.

Answer 6 · 2022-05-09T22:50:19.83Z

SteveDee-5285 answered May 9, '22

Hello from Steve

I am sorry I forgot to highlight the particular page in this case page 5

It is Highlighting Hdle(0) Stpl(0)
8 JABELLA

We are nearly their All is required please is to Highlight Hdle(0) only

21481 LOGANS LOGIC All(14-2-2-0) $25,050 L(9-0-2) R(5-2-0) F(0) G(5-2-0) D(0) S(0) H(1-0-0) C(4-0-2) Dst(3-0-2) Hdle(0) Stpl(0)
8 JABELLA

5 |1600 characters needed characters left characters exceeded

Attachments: Up to 10 attachments (including images) can be used with a maximum of 3.0 MiB each and 30.0 MiB total.

question