Page 1 of 2 12 LastLast
Results 1 to 15 of 17
  1. #1
    3 Star Lounger
    Join Date
    May 2001
    Location
    Berkeley, California, USA
    Posts
    214
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Bloated Doc (03 SP1)

    I have a doc that is 87 pages. It is 89.6 MB. It has some ask and reference fields, few cross references and several levels of numbering, and some tables. What can I do to get this down to a decent size without losing formating?

  2. #2
    Super Moderator jscher2000's Avatar
    Join Date
    Feb 2001
    Location
    Silicon Valley, USA
    Posts
    23,112
    Thanks
    5
    Thanked 93 Times in 89 Posts

    Re: Bloated Doc (03 SP1)

    It's impossible to get that kind of file size from plain text... does it contain embedded Excel sheets, images, or other objects?

  3. #3
    3 Star Lounger
    Join Date
    May 2001
    Location
    Berkeley, California, USA
    Posts
    214
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Bloated Doc (03 SP1)

    I don't think it has any objects in it. I did a "Go to" any object. It didn't find any. This doc has crashed a few times. Its been saved as version. It has been edited by several people.

    Another problem has appeared since my first post. I want to protect it from untracked changes but the "Yest start enforcing protection" button is greyed out.

  4. #4
    3 Star Lounger
    Join Date
    May 2001
    Location
    Berkeley, California, USA
    Posts
    214
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Bloated Doc (03 SP1)

    I forgot to say that ther are no "tracked changes" currently in the document.

  5. #5
    Plutonium Lounger
    Join Date
    Mar 2002
    Posts
    84,353
    Thanks
    0
    Thanked 29 Times in 29 Posts

    Re: Bloated Doc (03 SP1)

    What happens if you copy the entire document except for the final paragraph mark to a blank new document and save that?

  6. #6
    Super Moderator
    Join Date
    May 2002
    Location
    Canberra, Australian Capital Territory, Australia
    Posts
    5,054
    Thanks
    2
    Thanked 417 Times in 346 Posts

    Re: Bloated Doc (03 SP1)

    If you're saving versions, as you've indicated, Word has to keep both the new and old versions in the same file, thus increasing its size. I suspect that every time you add a version, it increases the file size by an amount equivalent to what the document would have been if there was just the one version. You might try deleting any old versions that are no longer required. I note you say there's no tracked changes. Does this apply to all of the versions? Any that have been saved with tracked changes will likewise add to the file size, since all the change tracking will still be there.

    Also, make sure you're not using 'fast saves' and that you're not embedding fonts unnecessarily.

    Finally, save a copy using File|Save As and see if that cleans things up.
    Cheers,

    Paul Edstein
    [MS MVP - Word]

  7. #7
    3 Star Lounger
    Join Date
    May 2001
    Location
    Berkeley, California, USA
    Posts
    214
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Bloated Doc (03 SP1)

    Thanks <img src=/S/clever.gif border=0 alt=clever width=15 height=15> Hans. That got it down to 934 kb which seems like a more reasonable size for a 87 page document. It also solved the other problem and I can now protect the document. <img src=/S/smile.gif border=0 alt=smile width=15 height=15>

  8. #8
    3 Star Lounger
    Join Date
    May 2001
    Location
    Berkeley, California, USA
    Posts
    214
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Bloated Doc (03 SP1)

    I did as you sugested and it dropped down to about 900kb. But it screwed up some formating and the final footer. After I fixed that (without tracking changes) it had balloned up to 15 MB. No versions saved.
    Any idea what would make it ballon up like that?

  9. #9
    Super Moderator jscher2000's Avatar
    Join Date
    Feb 2001
    Location
    Silicon Valley, USA
    Posts
    23,112
    Thanks
    5
    Thanked 93 Times in 89 Posts

    Re: Bloated Doc (03 SP1)

    I think you must have something (or several things) linked or embedded. You simply cannot add 14MB to a document with a few formatting changes. Can you seek out those fields? Maybe this will help:

    <code>Sub CatalogLinkAndEmbedFields()
    If ActiveDocument.Fields.Count = 0 Then
    MsgBox "No fields in this document.", vbInformation + vbOKOnly
    Exit Sub
    End If
    Dim intCount As Integer, arrFields() As String, intArrNext As Integer
    ReDim arrFields(50)
    intArrNext = 0
    With ActiveDocument.Fields
    ' IMPORTANT: THIS COLLECTION OMITS HEADERS AND FOOTERS
    For intCount = 1 To .Count
    Select Case .Item(intCount).Type
    Case wdFieldEmbed, wdFieldLink
    arrFields(intArrNext) = "Page " & _
    .Item(intCount).Result.Information(wdActiveEndPage Number) & vbTab & _
    Trim(.Item(intCount).Code)
    intArrNext = intArrNext + 1
    Case Else
    'Ignore for current purposes
    End Select
    If intArrNext > UBound(arrFields) Then
    ReDim Preserve arrFields(intArrNext + 10)
    End If
    Next
    End With
    If intArrNext > 0 Then
    Dim docNew As Word.Document
    Set docNew = Documents.Add
    With docNew
    With .Content
    With .ParagraphFormat
    .LeftIndent = InchesToPoints(0.75)
    .FirstLineIndent = InchesToPoints(-0.75)
    End With
    For intCount = 0 To intArrNext
    .InsertAfter arrFields(intCount) & vbCrLf
    Next
    End With
    With .ActiveWindow
    .Visible = True
    .Activate
    End With
    End With
    Set docNew = Nothing
    End If
    End Sub</code>

    Note: I didn't test that on any complex documents, so there might be some situations where the Select Case condition returns an error.

  10. #10
    3 Star Lounger
    Join Date
    May 2001
    Location
    Berkeley, California, USA
    Posts
    214
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Bloated Doc (03 SP1)

    I cant discern that anything happens when I run your macro. But I may not be doing it right. I pasted it into the VB editor, named it, returned to my document and went to tools/macro/selected it and clicked "RUN". Notyhing at all happened. What is it supposed to do?

  11. #11
    3 Star Lounger
    Join Date
    May 2001
    Location
    Berkeley, California, USA
    Posts
    214
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Bloated Doc (03 SP1)

    As I said I am not sure that I know how to use your macro. But I went through the document and converted all the fields to text with {Ctrl}{Shift}{F9} It did not significantly reduce the size of the file. There is one object I for got about. But it is just a word art pic of a formula. It has been there all along.

  12. #12
    Platinum Lounger
    Join Date
    Jan 2001
    Location
    Quedgeley, Gloucester, England
    Posts
    5,333
    Thanks
    0
    Thanked 1 Time in 1 Post

    Re: Bloated Doc (03 SP1)

    Have you tried saving/using it as a .RTF file? This is my Word format of choice when the file does NOT contain graphics or tables, and is entirely, or almost entirely, text...

    John
    <font face="Script MT Bold"><font color=blue><big><big>John</big></big></font color=blue></font face=script>

    Ita, esto, quidcumque...

  13. #13
    3 Star Lounger
    Join Date
    May 2001
    Location
    Berkeley, California, USA
    Posts
    214
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Bloated Doc (03 SP1)

    Thanks, but it has many tables and cross references and fields.

  14. #14
    Super Moderator
    Join Date
    May 2002
    Location
    Canberra, Australian Capital Territory, Australia
    Posts
    5,054
    Thanks
    2
    Thanked 417 Times in 346 Posts

    Re: Bloated Doc (03 SP1)

    If you fixed 'the final footer' by copying and pasting any part of it from your original document, doing so may have migrated whatever is causing the document bloat.

    See what happens when you run the following code:
    <code>
    Sub Test()
    With ActiveDocument
    If .Shapes.Count > 0 Or .InlineShapes.Count > 0 Then _
    MsgBox "This document contains: " & vbCrLf & _
    .Shapes.Count & " floating shapes and" & vbCrLf & _
    .InlineShapes.Count & " inline shapes."
    End With
    End Sub
    </code>

    It should only return a count of 1 for your WordArt object. If not, you've got more in there somewhere.
    Cheers,

    Paul Edstein
    [MS MVP - Word]

  15. #15
    3 Star Lounger
    Join Date
    May 2001
    Location
    Berkeley, California, USA
    Posts
    214
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Bloated Doc (03 SP1)

    Where will the number appear?
    I'm not sure I know how to run the macro?

Page 1 of 2 12 LastLast

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •