☰

¿Es posible extraer oraciones específicas con el mismo formato determinado y guardarlas en un archivo de texto en Microsoft Word?

tag-icon • tag-icon microsoft-word extract
¿Es posible extraer oraciones específicas con el mismo formato determinado y guardarlas en un archivo de texto en Microsoft Word?

Por ejemplo, al examinar un documento que es una novela o ficción, me pregunto si puedo captar todos los diálogos. Porque tienen el mismo formato, como "¡Qué lindo día!" ¡y hola!" que se limitan a dos comillas.

Respuesta1

Puede utilizar VBA para automatizar el proceso.

  1. Abra el documento.
  2. Presione Alt+F11 para abrir el editor VBA.
  3. Copia y pega el código de abajo.
  4. Con el cursor dentro del código, presione F5 para ejecutarlo. Se abrirá una nueva ventana con los diálogos extraídos.
Sub GetDialogues()

    Dim coll As New Collection
    Dim regEx As RegExp
    Dim allMatches As MatchCollection
    
    Set regEx = New RegExp
    
    With regEx
        .IgnoreCase = False
        .MultiLine = True
        .Global = True    'Look for all matches
        .Pattern = """.+?"""    'Pattern to look for
    End With
 
    Set allMatches = regEx.Execute(ActiveDocument.Content.Text)
 
    For Each Item In allMatches
        coll.Add Item   'Add found items to the collection
    Next Item

    Dim newdoc As Document
    Set newdoc = Documents.Add  'Add a new Word document
    newdoc.Activate             'Activate the document

    For Each Item In coll
        newdoc.Content.Text = newdoc.Content.Text + Item   'Add each item (quote) to the document
    Next Item

    newdoc.SaveAs FileName:="test.txt", Fileformat:=wdFormatPlainText   'Save the document as plain text

End Sub

información relacionada