#1
|
|||
|
|||
How to discover repeated sentenses
Is it possible to find ex. text from interviews you have used before? Writing a document about 100 pages or more makes you lose overview. Can Word ex find a sequence of five or six words you have used more than once, without using "find" so you can avoid using the same sequence more than once? |
#2
|
||||
|
||||
I assume you are not happy with the Navigation pane that pops up when you select the text and press Ctrl-F
How do you envisage it would work without using Find?
__________________
Andrew Lockton Chrysalis Design, Melbourne Australia |
#3
|
|||
|
|||
I have no idea. Sometimes Word just surprises me 😉
And you are right. Find is no solution since I must know what I am looking for. I sometimes use it if I suspect that I have used a quote before. But I wish to find the duplicates that I am not aware of. So, the function should locate a sequence of 20 or 30 identical signs and spaces that appears more than once in the document. Maybe a plugin or an other app? |
#4
|
||||
|
||||
I think it would be relatively easy to create a macro to identify duplicated sentences if they are exact matches. If every sentence was loaded to a dictionary, you would get an error if the key already exists. It would only take a single character to differ to render this method invalid though.
Is this what you are looking for? It should highlight any sentence that has already been used in the document (ignoring case, spaces, tabs, periods) Code:
Sub RepeatOffenders() 'Requires a reference to Microsoft Scripting Runtime 'Highlights sentence repeats in document Dim aSent As Range, sText As String, aDict As Scripting.Dictionary Set aDict = New Scripting.Dictionary For Each aSent In ActiveDocument.Range.Sentences sText = Replace(LCase(aSent.Text), vbCr, "") sText = Replace(sText, " ", "") sText = Replace(sText, ",", "") sText = Replace(sText, ".", "") sText = Replace(sText, vbTab, "") 'Debug.Print sText On Error GoTo Plagiariser2000 aDict.Add sText, sText Next aSent Exit Sub Plagiariser2000: aSent.HighlightColorIndex = wdBrightGreen Resume Next End Sub
__________________
Andrew Lockton Chrysalis Design, Melbourne Australia Last edited by Guessed; 09-02-2021 at 08:50 PM. |
Tags |
interview research |
|
Similar Threads | ||||
Thread | Thread Starter | Forum | Replies | Last Post |
Find only repeated words | ugcheleuce | Word | 2 | 05-22-2018 11:12 PM |
How to Allow some repeated words and not others. | CJP1967 | Word | 3 | 04-24-2018 08:47 AM |
Repeated Character | lobo115 | Word | 3 | 11-08-2014 12:46 AM |
Discover if Macros exist in template or document | jimbassett | Excel | 2 | 02-08-2010 08:06 AM |
I am trying to discover how to write a comm. Add-in | patc4 | Office | 1 | 06-16-2009 11:11 AM |