Можно ли как-то записать условие "если хотя бы один..."?
Код:
If Selection.Font.Italic = True Then ...
Но бывает, что в абзаце курсив может быть еще и жирным (например фамилия так выделяется). А может не быть курсива вообще. Т.е. надо проверить абзац, нет ли хотя бы одного слова нежирным курсивом.
Можно ли это записать типа (есть ли правильный аналог)
Код:
anyword.Font.Italic = True then...
Код:
Module Module1
Sub Main()
Console.WriteLine(Words().Any(Function(word) word.Length > 2))
Console.WriteLine(Words().All(Function(word) word.Length > 2))
End Sub
Function Words() As IEnumerable(Of String)
Dim items() As String = {"aaa", "bb", "c"}
Return items
End Function
End Module
Sub Main()
Console.WriteLine(Words().Any(Function(word) word.Length > 2))
Console.WriteLine(Words().All(Function(word) word.Length > 2))
End Sub
Function Words() As IEnumerable(Of String)
Dim items() As String = {"aaa", "bb", "c"}
Return items
End Function
End Module
Цитата: hardcase
VB.NET (.NET 3.5):
Я пока дальше VBA не двигался, но на всяк. сл. буду иметь в виду. Спасибо.