L'utilisation de VBA pour analyser le texte dans un document MS Word

J'espérais que quelqu'un pourrait l'aider avec un MS Word Macro.

En gros, j'ai un document MS Word qui fait la liste de plusieurs fichiers texte et des pages spécifiques d'intérêt dans chaque fichier.

Le format de fichier est similaire à:

textdocument1.txt P. 6, 12 - issue1 
textdocument2.txt P. 5 - issue1 
P. 13, 17 - issue3 
textdocument3.txt P. 10

Je veux lire chaque ligne dans ma Macro comme une chaîne de caractères.

Puis traverser à identifier le nom de fichier. Avec le nom de fichier, je peux alors ouvrir le fichier, allez dans le numéro de page et de copier les données dont j'ai besoin.

Mais je suis coincé à l'étape 1, comment faire pour capturer la ligne dans une chaîne de caractères dans un MS Word Macro?

Toute aide sera appréciée.

OriginalL'auteur Leejo | 2009-04-16

  1. 4

    Le code suivant devrait vous aider à démarrer:

    Public Sub ParseLines()
    Dim singleLine As Paragraph
    Dim lineText As String

    For Each singleLine In ActiveDocument.Paragraphs
        lineText = singleLine.Range.Text

        '//parse the text here...

    Next singleLine
End Sub

    J'ai trouvé l'algorithme de base dans cet article.

    Cela permettra de briser le document en paragraphes. Si vous voulez des peines de le faire par ligne (c'est à dire de la phrase) vérifier ma réponse ci-dessous.

    OriginalL'auteur e.James

  2. 3

    Si votre document word répertorie tous les fichiers texte comme ceci:

    <name>{tab}<page ref>{newline}
<name>{tab}<page ref>{newline}
<name>{tab}<page ref>{newline}

    Puis toutes les lignes sont disponibles dans la Collection paragraphes. Vous pouvez parcourir avec un simple For Each boucle:

    Dim p As Paragraph

For Each p In ActiveDocument.Paragraphs
  Debug.Print p.Range.Text
Next p
    For Each mess si vous apportez des modifications à l'objet, il peut se coincer sur le même élément pour toujours, j'ai dû utiliser une variable d'index.
    Très vrai, si vous modifiez la collection, vous itérer sur (supprimer ou d'ajouter de nouveaux paragraphes) puis des choses étranges vont se produire. À l'aide d'un indexés boucle peut échouer dans ce cas.

    OriginalL'auteur Tomalak

  3. 2

    par ligne

    Public Sub ParseDoc()

    Dim doc As Document
    Set doc = ActiveDocument
    Dim paras As Paragraphs
    Set paras = doc.Paragraphs
    Dim para As Paragraph
    Dim sents As Sentences
    Dim sent As Range
    For Each para In paras

        Set sents = para.Range.Sentences
        For Each sent In sents
            Debug.Print sent.Text
        Next

    Next

End Sub

    OriginalL'auteur Anonymous Type