#54815775 · 16 Jun 2019, 12:58 · · პროფილი · პირადი მიმოწერა · ჩატი
მეგობრებო ერთ VBA კოდის გადაკეთება მინდა, ეს კოდი ითვლის ტექსტში სიტყვების სტატისტიკას, მაგრამ ამას არაკეთებს სილფენის შრიფტისათვის, როგორ უნდა გადაკეთდეს ეს კოდი რომ სილფენით აკრეფილი ტექსტის სტატისტიკაც რომ გააკეთოს, ხომ ვერ დამეხმარებით ?
Sub FindWords() Dim sResponse As String Dim iCount As Integer
' Input different words until the user clicks cancel Do ' Identify the word to count sResponse = InputBox( _ Prompt:="What word do you want to count?", _ Title:="Count Words", Default:="") If sResponse > "" Then ' Set the counter to zero for each loop iCount = 0 Application.ScreenUpdating = False With Selection .HomeKey Unit:=wdStory With .Find .ClearFormatting .Text = sResponse ' Loop until Word can no longer ' find the search string and ' count each instance Do While .###cute iCount = iCount + 1 Selection.MoveRight Loop End With ' show the number of occurences MsgBox sResponse & " appears " & iCount & " times" End With Application.ScreenUpdating = True End If Loop While sResponse <> "" End Sub
--------------------
ინგლისურ-ქართული ლექსიკონი iword.ge
|