R – Selecting and tagging specific formatting in word documents

ms-wordvba

being in need to export a DOC file to TXT and then reimport it without losing bold and underline formatting I'd need a macro to do that.

My idea is to select each group of words in bold (could be a sentence or a single word in sentence) and then write say <$> before it and <$$> after it. When back in word the reverse should happen, i.e. all text between <$> and <$$> back to bold. The same macro works for underline and bold+underline. I tried to export doc to html, then open in an html editor and save as txt saving only the bold and underline tags. Perfect, if not for the CR LF that the editor puts at the end end of each line…

TIA, my macro programming skills are short of basic…

alberto

Best Answer

Could you provide some example document for the original file and file you processed? If it is only about CR and LF, you can replace them via VBA:

textasstring = Replace$(textasstring, vbCrLf, "") textasstring = Replace$(textasstring, vbLf, "")

Another solution is to take an editor which is able to support extended search and replace including \r and \n like notepad++.

Advantages

The result looks very nice. Here are the advantages of this method:

The code keeps its original layout and colors
The code is separated from the rest of the document, as if it was a picture or a chart
Spelling errors won't be highlighted in the code (this is cool !)

And it takes only few seconds.

Vba – Finding block of text with different formatting in Word document using Macros

I wonder if something like this would suit:

Dim s As Range
Dim wd As Range
Dim BoldHead As Boolean
Dim doc As Document

Set doc = Word.Documents("Doc2.doc")

For Each s In doc.Sentences
    If s.Words(1).Bold = True Then
        BoldHead = True
        For Each wd In s.Words
            If Trim(wd) <> vbNullString _
                And wd <> "." _
                And wd.Bold = False Then
                BoldHead = False
            End If
        Next
        If BoldHead Then
            Debug.Print s
        End If
    End If
Next

Note that Word has a nasty enough habit of not counting the numbers, it sees them as automatic.

Best Answer

Related Solutions

How to display code snippets in MS Word preserving format and syntax highlighting

Advantages

Vba – Finding block of text with different formatting in Word document using Macros

Related Topic