Vba word количество слов

Ответы

• • Предложено в качестве ответа

    23 мая 2013 г. 6:20

  • Помечено в качестве ответа
    tumanovalex
    24 мая 2013 г. 4:22

• Я покажу на VBA. Если вы программист, вам будет нетрудно это прочитать

  Public Sub Подсчёт_слов_по_шаблону(ByRef шаблон As String)
  
      Dim j As Object
      Dim i As Long
  
      'для каждого слова в документе
      For Each j In Application.ActiveDocument.Range.Words
  
          'если слово подходит
          If j.Text Like шаблон Then
          
              'счётчик
              i = i + 1
      
          End If
          
      Next j
  
      MsgBox i
      
  End Sub
  

  • Предложено в качестве ответа
    Maksim MarinovMicrosoft contingent staff, Moderator
    23 мая 2013 г. 6:20
  • Помечено в качестве ответа
    tumanovalex
    24 мая 2013 г. 4:22

• Почему то никто не хочет воспользоваться вшитыми полями Word — Word сам сосчитает.

  

  Макрос:

  Извлекает значение поля, а далее что требуется: в переменную и т. д.

  ---

  Korolan

  • Предложено в качестве ответа
    Varlamov Oleg
    5 июня 2013 г. 3:27
  • Отменено предложение в качестве ответа
    Varlamov Oleg
    5 июня 2013 г. 3:28
  • Помечено в качестве ответа
    tumanovalex
    5 июня 2013 г. 6:52