Forum Discussion

Eskimo007's avatar
Eskimo007
Copper Contributor
Feb 26, 2025
Solved

Need a macro to create a subdocument

I have a document with some lines that contain a string, say <astring>.  I would like to have a macro that would parse the document, and create a new document that only contains the lines that have <...
Macro Help
  • Doug_Robbins_Word_MVP's avatar
    Doug_Robbins_Word_MVP
    Mar 08, 2025

    Use a macro containing the following code

    Sub MakeSubDoc()
    Dim source As Document
    Dim target As Document
    Dim str As String
    Dim rngstr As Range
    Set source = ActiveDocument
    Set target = Documents.Add
    source.Activate
    str = InputBox("Insert the text to be found.")
    Selection.HomeKey wdStory
    Selection.Find.ClearFormatting
    With Selection.Find
        Do While .Execute(FindText:=str, MatchWildcards:=False, MatchCase:=True, Wrap:=wdFindStop, Forward:=True) = True
            Set rngstr = Selection.Range.Bookmarks("\line")
            target.Range.InsertAfter rngstr & vbCr
            Selection.Collapse wdCollapseEnd
        Loop
    End With
    target.Activate
    End Sub

Charles_Kenyon's avatar
Charles_Kenyon
Bronze Contributor
Mar 04, 2025

I know a lot about Word. I know some things about DOS. I know nothing about GREP. I suspect it to be a Linux program.

In DOS (or actually the Windows command line) you can use Batch files with the .bat extension to run a list of DOS commands.

I think we have been corresponding in another forum as well. If I am correct, I ask you to look at A Message to Forum Cross-Posters.

Resources