Length Line

[PawelR]

Hello group,
I'm beginner.
How make bold all line in document where line lenhth is more that 15
characters.

Thenk

PawelR

 

[DA]

HiPawel

Try the following:
'--------------------
Sub Example()
With Selection
.Expand Unit:=wdLine
If .Characters.Count > 15 Then _
.Font.Bold = True
End With
End Sub
'--------------------

Hope that helps,
Dennis

 

[Helmut Weber]

Hi Pawel,
---
With Selection
.ExtendMode = False
.HomeKey Unit:=wdStory
.EndKey Unit:=wdLine
While .Range.End <> ActiveDocument.Range.End - 1
If Len(.Bookmarks("\line").Range.Text) > 15 Then
.Bookmarks("\line").Range.Font.Bold = True
End If
.MoveDown
.EndKey Unit:=wdLine
Wend
End With
---
But I didn't put much effort in this, as it is
theoretically impossible, which you will see perhaps,
when executing the code.
I line may consist of 16 not bold characters.
After making them bold, the line may consist of
15 characters and should not be bold. If removing
bold, it will consist again of 16 characters....