Iskanje v Wordu

Ja z regularnimi izrazi je stvar rešljiva, a samo če so vsi odstavki dolgi vas dve besedi. Na odstavkih z eno besedo stvar ne bo delovala povsem pričakovano...

Iščete tole:

(^13)(<*>) (<*>)

in zamenjate s tem:

\1\2 \3

kjer spodnji del pač označite, naj bo odebeljen.

No vsekakor je s spodnjo kodo stvar bolj zanesljiva:

'
' www.matjazev.net
'  november 2010
'
Sub oznaciPrviDveBesedi()
  Dim odstavek As Paragraph
  Dim beseda, i, m
  
  For Each odstavek In ActiveDocument.Paragraphs
    m = odstavek.Range.Words.Count
    If (m > 2) Then m = 2
    For i = 1 To m
      odstavek.Range.Words(i).Bold = True
    Next
  Next
End Sub