[austechwriter] Re: Annotating documents and making them \'attractive\'

  • From: Michael Edward Granat <megranat@xxxxxxxx>
  • To: austechwriter@xxxxxxxxxxxxx
  • Date: Wed, 13 Aug 2003 11:40:15 +1000 (EST)

Dear Cathy (Morison),

One of my favourite Word tricks for making a graphic size properly when it 
imports and links is to make a single cell / column / row table, place your 
cursor into that and Insert > Picture > from file.

The picture resizes to fit the cell, the page and the margins in a consistent 
manner and this works for portrait and landscape pages.

I also usually create a figure heading style, which I pick up in a TOC field (I 
do a separate TOC for Contents, Tables and Figures).

Here\'s some sample TOC codes:

Contents TOC: {TOC \\O \"1-4\" \\H \\Z}
Tables TOC: {TOC \\H \\Z \\T \"TABLEHEAD1,1\" \\* MERGEFORMAT}
Figures TOC: {TOC \\H \\Z \\T \"FIGUREHEAD,1\" \\* MERGEFORMAT}

I also usually create (record and edit) a macro for making my figure table cell 
and heading, ready for input (which operates ergonomically by resting three 
fingers on the Ctrl+Shift+Alt keys and pressing F) which goes like this:

Sub MakeFigure()
\' MakeFigure Macro
\' Macro recorded 15/7/2003 by Michael Granat
    Selection.Style = ActiveDocument.Styles(\"Spacer\")
    Selection.MoveUp Unit:=wdLine, Count:=1
    Selection.Style = ActiveDocument.Styles(\"BodyCopy\")
    Selection.Style = ActiveDocument.Styles(\"BodyCopyMid\")
    Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
    Selection.ConvertToTable Separator:=wdSeparateByParagraphs, NumColumns:=1, _
         NumRows:=1, Format:=wdTableFormatNone, ApplyBorders:=True, 
        :=True, ApplyFont:=True, ApplyColor:=True, ApplyHeadingRows:=True, _
        ApplyLastRow:=False, ApplyFirstColumn:=True, ApplyLastColumn:=False, _
        AutoFit:=True, AutoFitBehavior:=wdAutoFitFixed
    Selection.MoveDown Unit:=wdLine, Count:=1
    Selection.MoveUp Unit:=wdLine, Count:=1
    Selection.Style = ActiveDocument.Styles(\"Figurehead\")
    Selection.TypeText Text:=\"Figure \"
    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _
        \"seq figurenumber\", PreserveFormatting:=True
    Selection.MoveLeft Unit:=wdWord, Count:=1
    Selection.TypeText Text:=\" \"
    Selection.EndKey Unit:=wdLine
    Selection.TypeText Text:=\" ? PictureName\"
    Selection.MoveLeft Unit:=wdWord, Count:=1, Extend:=wdExtend
End Sub

You\'ll need to create the appropriate styles first for the above to work.

Hope that helps.


Michael Granat
Write Ideas

Quoting Cathy.Morison@xxxxxxxxx:

> Also, how do you deal with varying sizes of screenshots, some of which
> have been reduced in size to fit on a normal portrait page?  If they are
> centred, should they be centred with the text (which is indented about
> 1.5cm) or with the level 1 and 2 headings (full width)?  The larger
> graphics really need to be wider than the page.  Should I bite the
> bullet and remove these to a landscape page?
> Any clues?
To post a message to austechwriter, send the message to 

To subscribe to austechwriter, send a message to 
austechwriter-request@xxxxxxxxxxxxx with "subscribe" in the Subject field.

To unsubscribe, send a message to austechwriter-request@xxxxxxxxxxxxx with 
"unsubscribe" in the Subject field.

To search the austechwriter archives, go to 

To contact the list administrator, send a message to 

Other related posts: