Macro to insert certain words if the number of words than 20

[laith93]

Hi,


I have a template word file for checking, the checking system ensures me to insert at least 20 words, sometimes the number of words is less than 20, so it requires additional words in order to be 20 in total.

However, I want a macro that firstly counts the number of words, then if the number of words is less than 20, inserts certain additional words to be 20 words exactly, if it is 20 and more, does nothing.

Thanks

[Guessed]

We can't answer this without knowing how you are providing the 20 words. They might be in a string or an array or a range or a dictionary etc.

[laith93]

Originally Posted by Guessed

We can't answer this without knowing how you are providing the 20 words. They might be in a string or an array or a range or a dictionary etc.

Thanks, Mr. Andrew,
Excuse me, It could be string, also it could be any 20 words for example
(test, demo,test, demo,test, demo,test, demo,test, demo,test, demo,test, demo,test, demo,test, demo,test, demo).

So for instance, if the number of words in the document is 3, insert 17 words from previously mentioned words, and in such a manner.

[Guessed]

Try this code

Sub Macro1()
  Dim iWords As Double, sFiller As String, arrFiller() As String, i As Integer
  sFiller = "I didn't bother to attempt my homework by myself but I asked someone on the internet to do it for me"
  arrFiller = Split(sFiller, " ")
  iWords = ActiveDocument.Words.Count
  Debug.Print iWords
  If iWords < 20 Then
    For i = 0 To 20 - iWords
      ActiveDocument.Range.InsertAfter " " & arrFiller(i)
    Next i
  End If
End Sub

[laith93]

Originally Posted by Guessed

Try this code

Dear Andrew, Thanks so much
But, excuse me, dear Andrew, the code works fine and perfectly for some files but not for others (I have been shocked)
See the attachment title file, although the words number is <20, it inserts additional words to be 14 in total (not 20)
I have another file, it inserts additional words to be 16 in total (not 20)

I don't know what is the problem with these files.
So any suggestion with my special thanks .

[Guessed]

There are different ways to calculate a word count in Word. The way the earlier code determines word count is not what a normal English speaker would consider the Word count - it includes punctuation as a word. This code modification uses an alternate method to arrive at a word count and might work better for your documents

Sub Macro1()
  Dim iWords As Double, sFiller As String, arrFiller() As String, i As Integer
  sFiller = "I didn't bother to attempt my homework by myself but I asked someone on the internet to do it for me"
  arrFiller = Split(sFiller, " ")
  iWords = ActiveDocument.Range.ComputeStatistics(wdStatisticWords)   'ActiveDocument.Words.Count
  If iWords < 20 Then
    For i = 0 To 19 - iWords
      ActiveDocument.Range.InsertAfter " " & arrFiller(i)
    Next i
  End If
End Sub

[laith93]

Originally Posted by Guessed

There are different ways to calculate a word count in Word. The way the earlier code determines word count is not what a normal English speaker would consider the Word count - it includes punctuation as a word.

Thank you, thank you, thank you, dear Andrew
I can't thank you enough.

The code now works fine and perfectly for all files

Thank you for this new info for methods of counting word counts.
Best Regards