Word: ContarCaracteres
Sub ContarCaracteres()
'
Selection.WholeStory
'
' ContarCaracteres Macro
'Sub CharCount()
Dim Title As String
Dim CharCount As Integer
Dim Message As String
Selection.WholeStory
Title = "ContarCaracteres"
CharCount = Len(Selection)
Message = LTrim(Str(CharCount)) + " character"
If CharCount <> 1 Then Message = Message + "s"
MsgBox Message, vbOKOnly, Title
End Sub
Assinar:
Postar comentários (Atom)
As cotas e a ampla concorrência na UFV
Em agosto de 2012 foi sancionada a Lei 12.711, conhecida popularmente como Lei das Cotas. A partir de então, todas as universidades federai...
-
As universidade federais são compostas por diversos órgãos, desde a Comissão Coordenadora de um curso até o Conselho Universitário que toma ...
-
Quantos filhos Eduardo e Mônica tiveram? Uma análise da passagem de tempo na canção.
-
Eu vou me formar na Licenciatura em Ciências Biológicas em junho/julho de 2018...
Nenhum comentário:
Postar um comentário