Guidance recreating a 28 page document

gmayor · #16 11-08-2014, 08:34 AM

I have edited the styles in that sample. If you want to go back to how it was before use the original document.

CTRL+A will select the whole document. The Plaintiff etc lines were centered to demonstrate the use of the center tab. Delete the tab and it will go back to the left.

You have to have the cursor in the paragraph you wish to apply another style to (or have multiple paragraphs selected).

Word is a style driven application. If you don't use styles (and modify them to your requirements) formatting such documents is going to be hard work.

20GT · #17 11-08-2014, 09:40 AM

Thank you, i think the questions will come slower now. Lol
Yes i realize CTRL+A will select the whole document.
Does anything select the whole page, just the one page.

20GT · #18 11-08-2014, 10:03 AM

Quote:

Originally Posted by 20GT

Thank you, i think the questions will come slower now. Lol
Yes i realize CTRL+A will select the whole document.
Does anything select the whole page, just the one page.

if not what I can do is just add a line of Asterix to the bottom of each page. Then copy and repaste the entire document to get rid of all the columns,then position and adjust everything

Thanks again

20GT · #19 11-08-2014, 11:58 AM

ok everything is no fresh textwhen i modify headers styles it seems to just grab stuff and change them.
How does it decied what is are headers 1-8

everything is now the font i what but now i want to secect certian lines and have them be styled in what i concider my different header lines

macropod · #20 11-08-2014, 08:54 PM

Quote:

Originally Posted by 20GT

Oh by "obtaining the original documents" you dont mean the paper, you mean the original electronic file. i doubt the Government is going to give that to me

If you don't ask, you'll never know...

Quote:

Ill try to just export the image scan to a word doc without the OCR.

You could do that, but then all you'll have is images of scans in Word, in a completely uneditable form. That means you won't be able to make any of the adjustments you've mentioned.

Working with the document attached to your original post, I've written the macro at the end of this post. Run it and it will convert all those troublesome page columns to tables that are much easier to work with. The only portion I think you'll have to do some editing work on beforehand, in the one with the APOPKA, ORLANDO, etc addresses on the first page. That's because that Section has a curious mix of three columns for the four addresses, with two tab-separated address in the first column. To fix the portion with the APOPKA & ORLANDO addresses, I suggest:
1. Insert a paragraph break after 'Rm31 0' (yes, there's a space in '310')
2. Select both sets of addresses, then choose Insert>Table>Convert Text to table and press OK
3. Copy the APOPKA column & paste into Notepad
4. Copy the ORLANDO column & paste into Notepad
5. Delete the table (table Tools|Layout>Delete>Table
6. Choose Page Layout>Columns>More Columns
7. Set the # columns to 4 and check the 'Equal columns width box, the OK
8. Choose Page Layout>Breaks>Column
9. Copy the APOPKA address from NotePad & paste before the 1st column break
10. Copy the ORLANDO address from NotePad & paste before the 2nd column break
You're now ready to run the macro. For PC macro installation & usage instructions, see: http://www.gmayor.com/installing_macro.htm

Code:

Sub ConvertPageColumnsToTables()
Application.ScreenUpdating = False
Dim i As Long, j As Long, k As Long, Rng As Range, Tbl As Table
With ActiveDocument
  With .Range
    .Fields.Unlink
    .InsertAfter vbCr
    .Sections.Add .Characters.Last, wdSectionContinuous
  End With
  With .Sections(.Sections.Count)
    .PageSetup.TextColumns.SetCount NumColumns:=1
    .Range.Style = wdStyleNormal
  End With
  For i = .Sections.Count To 1 Step -1
    With .Sections(i)
      j = .PageSetup.TextColumns.Count
      If j > 1 Then
        Set Rng = .Range
        With Rng
          .Collapse wdCollapseEnd
        End With
        Set Tbl = .Range.Tables.Add(Rng, 1, j)
        For k = 1 To j
          Set Rng = .Range
          With Rng
            If InStr(.Text, Chr(14)) > 0 Then
            .Collapse wdCollapseStart
              .MoveEndUntil Chr(14)
            Else
              .Collapse wdCollapseStart
              .MoveEndUntil Chr(12)
            End If
          End With
          Tbl.Range.Cells(k).Range.FormattedText = Rng.FormattedText
          With Rng
            .End = .End + 1
            .Text = vbNullString
          End With
        Next
      End If
    End With
  Next
End With
Application.ScreenUpdating = True
End Sub

20GT · #21 11-09-2014, 07:54 PM

Wow Paul thanks a lot I really do appreciate the work you did on my project.
But Saturday morning I put ******************* on the bottom of every page to mark them. selected the entire document copy and pasted (text only) into a new Doc. which eliminated all columns and weird stuff. then i spent the rest of the day recreating the document I'm on page 8 now. there's no going back lol. see doc below.

macropod · #22 11-09-2014, 08:15 PM

OK, but you still have multiple OCR errors to correct in those first 8 pages (and in the rest of the document, too).

20GT · #23 11-10-2014, 01:35 AM

Thanks ill look again at 1-8yes I'm sure there will be few to catch as time goes on, eventually ill print it out. lots of work to do. i really do appreciate your help.
wow i just opened it on my wife's XP computer i can actually see it now. lol

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Need guidance on creating a Word doc generator	mikeman	Word VBA	1	10-26-2014 10:35 PM
Need guidance on creating special use table	bookbean	Word Tables	3	02-06-2013 04:55 PM
Changing page format in document by page	fiedlerw01	Word	1	10-23-2012 04:10 AM
2 page document printing problem, text from page 1 in layout of page 2 when printed	laurawether45	Word	1	08-02-2012 07:03 AM
Need guidance with formatting	pewe	Word	4	11-22-2011 11:56 AM