Primjer 001 – VBA

Posted: decembar 6, 2011 in Uncategorized
Oznake:, ,

Programirati makro koji pozadinu svih riječi u dokumentu koje počinju sa dva velika slova boji crveno.
Pomoću Message Box-a javiti korisniku koliko je bilo takvih riječi. Makro startovati opcijom
Tools/Macro/Macros/Run.

Sub Oboj()
Dim N As Integer, W As Range
N = 0
For Each W In ThisDocument.Words
If Len(W) > 1 Then
If Mid(W, 1, 1) Like „[A-Z]“ And Mid(W, 2, 1) Like „[A-Z]“ Then
W.HighlightColorIndex = wdRed
N = N + 1
End If
End If
Next
MsgBox „Bilo je ukupno “ & N & “ riječi sa dva početna velika slova“
End Sub

Advertisements

Zatvoreno za komentare.