MS Word Macro Help (VB Code)

Hello all,

I am working on this vb word macro that strips a billing code(paragraph) from the top of a document and places it in a text file.

Here is an example of what the billing code looks like:

%%%«Today:06/03/90»,”«Matter ID»”,” TDLR”,«Matter type»,”preparing correspondence to «Addressee full name» regarding trademark renewal deadline approaching on «Parent event date:June 3, 199011», seeking instructions regarding same”,”«Mark:LIKE THIS»”,””,””

The problem is that the billing code is now going to be moved to the bottom of the document. The current macro is not coded to search through the whole document for the billing code, it just looks at the first paragraph.

Can someone help me adjust the following code so that it will search the entire document for the billing code instead of just the first paragraph.

Here is the vb code currently being used:

VB Code:

Sub StripBillingInfo()
    On Error GoTo errorhandler
    'set up variables
    Dim SectionNumber As Integer
    Dim RangeToSpike As Range
    Dim AccumulatedText As String
    
    'loop through sections
    For SectionNumber = 1 To ActiveDocument.Sections.Count
        'mark the first paragraph of the section, less the paragraph mark
        Set RangeToSpike = ActiveDocument.Sections(SectionNumber).Range.Paragraphs.First.Range
        RangeToSpike.MoveEnd wdCharacter, -1
        If RangeToSpike.Start = RangeToSpike.End Then GoTo GetNextSection
        If Mid(RangeToSpike.Text, 1, 3) <> "%%%" Then GoTo GetNextSection
        'add the first paragraph to the spike, then delete it
        RangeToSpike.MoveStart wdCharacter, 3
        AccumulatedText = AccumulatedText & RangeToSpike.Text & vbCr
        ActiveDocument.Sections(SectionNumber).Range.Paragraphs.First.Range.Delete
GetNextSection:
    Next SectionNumber
    'create a new document and dump the spike into it
    Documents.Open FileName:="e:\billing.txt", ConfirmConversions:=False, Format:=wdOpenFormatText
    Selection.EndKey wdStory
    If Selection.Paragraphs.First.Range.Characters.Count > 1 Then
        Selection.InsertParagraph
        Selection.EndKey wdStory
    End If
    Selection.TypeText AccumulatedText
    ActiveDocument.Close wdSaveChanges
errorhandler:
End Sub

Welcome to the Forums downtown636.

I have edited your post so the code will be easier to read and indented it too.
Use the [vbcode]insert your code here.[/vbcode] code tags.
This makes it easier for member to read and increases the chances of getting
a response.

So your needing it to go to the next paragraph(s) and search in there too?

VB Code:

Set RangeToSpike = ActiveDocument.Sections(SectionNumber).Range.Paragraphs.[b]First[/b].Range

This is where you are getting the first paragraph, so if you change it to the
paragraphs collection Items and iterate through those, that should do it for
you.

VB Code:

Set RangeToSpike = ActiveDocument.Sections(SectionNumber).Range.Paragraphs(1).Range

Change the "1" to a variable the will count the number of para's inthe section.

HTH

Thank you for your help so far RobDog888!!

I have set up a variable to count the number of paragraph's in the section, how would I create the loop to go through all the paragraphs? (Sorry I'm not very familiar with vb code)

Thanks

No prob. To set up your variable, declare it first. Then set it equal to the .Count
property of the paragraphs collection.

VB Code:

Dim iKount As Integer
Dim i As Integer
'...Blah
'...Blah
'...Blah
iKount = ActiveDocument.Sections(SectionNumber).Range.Paragraphs.Count
'Then set up a loop
For i = 1 to iKount
'...Blah
'...Blah
'...Blah
Set RangeToSpike = ActiveDocument.Sections(SectionNumber).Range.Paragraphs(i).Range
'...Blah
'...Blah
'...Blah
Next
'...Blah

Okay, the billing code(paragraph) is at the bottom of the document and the macro still doesn't seem to want to strip it out. Here is what the code looks like now:

VB Code:

Sub BillingCodeTest()
On Error GoTo errorhandler
'set up variables
Dim SectionNumber As Integer
Dim RangeToSpike As Range
Dim AccumulatedText As String
Dim iKount As Integer
Dim i As Integer
 
iKount = ActiveDocument.Sections(SectionNumber).Range.Paragraphs.Count
'loop through sections
For i = 1 To iKount
'mark the first paragraph of the section, less the paragraph mark
Set RangeToSpike = _
ActiveDocument.Sections(SectionNumber).Range.Paragraphs(i).Range
RangeToSpike.MoveEnd wdCharacter, -1
If RangeToSpike.Start = RangeToSpike.End Then GoTo GetNextSection
If Mid(RangeToSpike.Text, 1, 3) <> "%%%" Then GoTo GetNextSection
'add the first paragraph to the spike, then delete it
RangeToSpike.MoveStart wdCharacter, 3
AccumulatedText = AccumulatedText & RangeToSpike.Text & vbCr
ActiveDocument.Sections(SectionNumber).Range.Paragraphs.First.Range.Delete
GetNextSection:
Next i
'create a new document and dump the spike into it
Documents.Open FileName:="e:\billingTEST.txt", ConfirmConversions:=False, Format:=wdOpenFormatText
Selection.EndKey wdStory
If Selection.Paragraphs.First.Range.Characters.Count > 1 Then
Selection.InsertParagraph
Selection.EndKey wdStory
End If
Selection.TypeText AccumulatedText
ActiveDocument.Close wdSaveChanges
errorhandler:
End Sub

I'm doing my best to try to get it how you need it but without actual data its
a little hard. So this is what I got. It will loop through each paragraph in each
section but I'm not sure how you need each range added and deleted when
found. So I am hoping that this will get you going in the right direction.

VB Code:

Sub BillingCodeTest()
    On Error GoTo errorhandler
    'set up variables
    Dim SectionNumber As Integer
    Dim RangeToSpike As Range
    Dim AccumulatedText As String
    Dim iKount As Integer
    Dim i As Integer
 
    'loop through sections
    For SectionNumber = 1 To ActiveDocument.Sections.Count
        'mark the first paragraph of the section, less the paragraph mark
        iKount = ActiveDocument.Sections(SectionNumber).Range.Paragraphs.Count
        For i = 1 To iKount
            Set RangeToSpike = ActiveDocument.Sections(SectionNumber).Range.Paragraphs(i).Range
            RangeToSpike.MoveEnd wdCharacter, -1
            If RangeToSpike.Start = RangeToSpike.End Then GoTo GetNextSection
            If Mid(RangeToSpike.Text, 1, 3) <> "%%%" Then GoTo GetNextSection
            'add the first paragraph to the spike, then delete it
            RangeToSpike.MoveStart wdCharacter, 3
            AccumulatedText = AccumulatedText & RangeToSpike.Text & vbCr
            ActiveDocument.Sections(SectionNumber).Range.Paragraphs(i).Range.Delete
        Next i
GetNextSection:
    Next SectionNumber
    'create a new document and dump the spike into it
    Documents.Open FileName:="e:\billing.txt", ConfirmConversions:=False, Format:=wdOpenFormatText
    Selection.EndKey wdStory
    If Selection.Paragraphs.First.Range.Characters.Count > 1 Then
        Selection.InsertParagraph
        Selection.EndKey wdStory
    End If
    Selection.TypeText AccumulatedText
    ActiveDocument.Close wdSaveChanges
errorhandler:
End Sub

HTH

Hello RonDogg888,

Thank you for your help so far, the code you supplied will strip the billing code(parapgraph) from the very top of the document, but if it is placed anywhere else in the document I can't seem to make it work.

Here is an example of a word document used with the billing code that has to be stripped and placed in a txt file in the bottom in red:


«PROFESSIONAL NAME»
«Professional email»
«Professional telephone»
«Today:June 3, 1990»

«Addressee Block»

Dear «Associate Associate Salutation»:

RE: «Matter description»
Our file: «Matter ID»
«IF ANSWERED(Matter client reference) AND Matter client reference != " "»«Your file:Matter client reference»
«END IF»

Enclosed herewith please find an Assignment in respect of the above captioned patent. Please attend to filing this Assignment in the United States Patent and Trademark Office and reporting the filing to us in due course. Thereafter, we will await receipt of the assignment recordal information from you.

We remain,


Yours very truly,

FURMAN & KALLIO



«Professional name»

«Compute Initials Line»

«Doc CCs»

%%%«Today:06/03/90»,”«Matter ID»”,”PFA4”,«Matter type»,”Attendance on file regarding preparation of correspondence to associate with Assignment for recordal in the United States Patent & Trademark Office, reporting same to client”,”«Patent Title:LIKE THIS»”,””,””