Tag: Microsoft

A former colleague created a wraptext macro when processing documents to import into another program.

I was finally able to find the code that he created for us.
For the moment, this only works for each section of a Word document.

Sub WrapText()

' WrapText Macro
Dim p As Variant
Dim i As Long

On Error Resume Next
'count the number of paragraphs
    p = Selection.Paragraphs.Count

'Position the cursor at the end of the first paragraph. MoveDown is used
'because it works with the wdParagraph unit.  Other commands only work with
'lines or sentences.
    Selection.Collapse (wdCollapseStart)
    Selection.MoveDown unit:=wdParagraph, Count:=1, Extend:=wdExtend
    Selection.Collapse (wdCollapseEnd)
    Selection.MoveLeft unit:=wdCharacter, Count:=1

'Begin loop.  p -1 prevents wrapping text from the paragraph following the selection
    For i = 1 To p - 1
        Selection.TypeText Text:=" ## "
        Selection.Delete unit:=wdCharacter, Count:=1
        Selection.MoveDown unit:=wdParagraph, Count:=1, Extend:=wdExtend
        Selection.Collapse (wdCollapseEnd)
        Selection.MoveLeft unit:=wdCharacter, Count:=1
    Next i
End Sub

EXAMPLE OF TEXT TEXT

Here is what the document would look like with the headers and the body of the text (I've also included the brutal reference points we're trying to replace).

1. SCOPE^p
    Summarizing, then, we assume that most of the 
    methodological work in modern linguistics is not quite 
    equivalent to the traditional practice of grammarians.^p

    Of course, the earlier discussion of deviance suffices to 
    account for nondistinctness in the sense of distinctive 
    feature theory.^p

    1.1 Heading2^p
        Summarizing, then, we assume that most of the 
        methodological work in modern linguistics is not quite 
        equivalent to the traditional practice of grammarians.^p

        Of course, the earlier discussion of deviance suffices to 
        account for nondistinctness in the sense of distinctive 
        feature theory.^p

By now running the macro, the text above would look like this.

Running the macro the first time with the text selected below
1. SCOPE^p
    Summarizing, then, we assume that most of the 
    methodological work in modern linguistics is not quite 
    equivalent to the traditional practice of grammarians.##Of 
    course, the earlier discussion of deviance suffices to 
    account for nondistinctness in the sense of distinctive 
    feature theory.##

Running the macro a second time with the text selected below
    1.1 Heading2^p
        Summarizing, then, we assume that most of the 
        methodological work in modern linguistics is not quite 
        equivalent to the traditional practice of grammarians.##Of 
        course, the earlier discussion of deviance suffices to 
        account for nondistinctness in the sense of distinctive 
        feature theory.##

At the present time, I should manually run this macro on each section and replace all the forced returns found by ## (we use the ## in another program to process the data after the import).

I've tried to find workarounds by replacing all the text with Style: Body Text selected, but it always replaces paragraph marks in a Word document for everything except the Heading 1 style.

I wanted to know if it was possible to execute this code on all the selected text in the Word document or possibly on all the text of a Word document, except for titles, captions and paintings.

Or if there is an easier way to do that I am not aware of it.