Replies

Thanks for your input.

Both are there in the proper directories. No solution yet.
Could it be that a font file is corrupt? Just thinking aloud.

Thanks. It worked. However, recomputing the new margins was time-consuming. Mainly because the requirement was very precise.

Need to develop an Excel Spreadsheet Model to compute new margins, I think. Will do it one of these days.

Here goes the code. It was written some time back, and I haven’t run it again to iron out any deficiencies. Also, not too well-documented. Sorry for that.

Sub insertimage()
‘
‘ insertimage Macro
‘ Macro recorded 1/5/01 by Rajesh H
‘
‘ Inserting a top aligned text box

‘For I = 0 To 1
ActiveDocument.Shapes.AddTextbox(msoTextOrientationHorizontal, 90#, _
72#, 261#, 90#).Select
Application.ScreenUpdating = False
Selection.ShapeRange.TextFrame.TextRange.Select
Selection.Collapse
Selection.ShapeRange.Select
Selection.ShapeRange.Fill.Visible = msoFalse
Selection.ShapeRange.Fill.Transparency = 0#
Selection.ShapeRange.Line.Weight = 0.75
Selection.ShapeRange.Line.DashStyle = msoLineSolid
Selection.ShapeRange.Line.Style = msoLineSingle
Selection.ShapeRange.Line.Transparency = 0#
Selection.ShapeRange.Line.Visible = msoFalse
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Height = 90#
Selection.ShapeRange.Width = 340#
Selection.ShapeRange.TextFrame.MarginLeft = 0#
Selection.ShapeRange.TextFrame.MarginRight = 0#
Selection.ShapeRange.TextFrame.MarginTop = 0#
Selection.ShapeRange.TextFrame.MarginBottom = 0#
Selection.ShapeRange.RelativeHorizontalPosition = _
wdRelativeHorizontalPositionColumn
Selection.ShapeRange.RelativeVerticalPosition = _
wdRelativeVerticalPositionPage
Selection.ShapeRange.Left = wdShapeCenter
Selection.ShapeRange.Top = wdShapeTop
Selection.ShapeRange.LockAnchor = False
Selection.ShapeRange.WrapFormat.AllowOverlap = False
Selection.ShapeRange.WrapFormat.Side = wdWrapBoth
Selection.ShapeRange.WrapFormat.DistanceTop = 0
Selection.ShapeRange.WrapFormat.DistanceBottom = 18
Selection.ShapeRange.WrapFormat.DistanceLeft = 9
Selection.ShapeRange.WrapFormat.DistanceRight = 9
Selection.ShapeRange.WrapFormat.Type = wdWrapTopBottom
Selection.ShapeRange.Fill.Visible = msoFalse
Selection.ShapeRange.Fill.Transparency = 0#
Selection.ShapeRange.Line.Weight = 0.75
Selection.ShapeRange.Line.DashStyle = msoLineSolid
Selection.ShapeRange.Line.Style = msoLineSingle
Selection.ShapeRange.Line.Transparency = 0#
Selection.ShapeRange.Line.Visible = msoFalse
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Height = 90#
Selection.ShapeRange.Width = 261#
Selection.ShapeRange.TextFrame.MarginLeft = 0#
Selection.ShapeRange.TextFrame.MarginRight = 0#
Selection.ShapeRange.TextFrame.MarginTop = 0#
Selection.ShapeRange.TextFrame.MarginBottom = 0#
Selection.ShapeRange.RelativeHorizontalPosition = _
wdRelativeHorizontalPositionColumn
Selection.ShapeRange.RelativeVerticalPosition = _
wdRelativeVerticalPositionMargin
Selection.ShapeRange.Left = wdShapeCenter
Selection.ShapeRange.Top = wdShapeTop
Selection.ShapeRange.LockAnchor = False
Selection.ShapeRange.WrapFormat.AllowOverlap = False
Selection.ShapeRange.WrapFormat.Side = wdWrapBoth
Selection.ShapeRange.WrapFormat.DistanceTop = 0
Selection.ShapeRange.WrapFormat.DistanceBottom = 18
Selection.ShapeRange.WrapFormat.DistanceLeft = 0
Selection.ShapeRange.WrapFormat.DistanceRight = 0
Selection.ShapeRange.WrapFormat.Type = wdWrapTopBottom
Application.ScreenUpdating = True

‘Next I

‘ comes over here

Fname = InputBox(“Enter the file name”, “File Name”, “Pic01f”)
On Error GoTo imgerrormsg

Selection.InlineShapes.AddPicture FileName:= _
“H:ARTWORKCurrentJobPictures” & Fname & “.eps”, LinkToFile:=True, SaveWithDocument _
:=False

Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend

Selection.InlineShapes(1).Reset
Y = Selection.InlineShapes(1).Height
x = Selection.InlineShapes(1).Width
Selection.MoveRight Unit:=wdCharacter, Count:=1

Selection.ShapeRange.Height = Y
Selection.ShapeRange.Width = x

Selection.MoveLeft Unit:=wdCharacter, Count:=1

‘Another text box for Image Caption

ActiveDocument.Shapes.AddTextbox(msoTextOrientationHorizontal, 90#, _
72#, 261#, 90#).Select
Application.ScreenUpdating = False
Selection.ShapeRange.TextFrame.TextRange.Select
Selection.Collapse
Selection.ShapeRange.Select
Selection.ShapeRange.Fill.Visible = msoFalse
Selection.ShapeRange.Fill.Transparency = 0#
Selection.ShapeRange.Line.Weight = 0.75
Selection.ShapeRange.Line.DashStyle = msoLineSolid
Selection.ShapeRange.Line.Style = msoLineSingle
Selection.ShapeRange.Line.Transparency = 0#
Selection.ShapeRange.Line.Visible = msoFalse
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Height = 90#
Selection.ShapeRange.Width = 340#
Selection.ShapeRange.TextFrame.MarginLeft = 0#
Selection.ShapeRange.TextFrame.MarginRight = 0#
Selection.ShapeRange.TextFrame.MarginTop = 0#
Selection.ShapeRange.TextFrame.MarginBottom = 0#
Selection.ShapeRange.LockAnchor = False
Selection.ShapeRange.WrapFormat.AllowOverlap = False
Selection.ShapeRange.WrapFormat.Side = wdWrapBoth
Selection.ShapeRange.WrapFormat.DistanceTop = 0
Selection.ShapeRange.WrapFormat.DistanceBottom = 18
Selection.ShapeRange.WrapFormat.DistanceLeft = 9
Selection.ShapeRange.WrapFormat.DistanceRight = 9
Selection.ShapeRange.WrapFormat.Type = wdWrapTopBottom
Selection.ShapeRange.Fill.Visible = msoFalse
Selection.ShapeRange.Fill.Transparency = 0#
Selection.ShapeRange.Line.Weight = 0.75
Selection.ShapeRange.Line.DashStyle = msoLineSolid
Selection.ShapeRange.Line.Style = msoLineSingle
Selection.ShapeRange.Line.Transparency = 0#
Selection.ShapeRange.Line.Visible = msoFalse
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Height = 90#
Selection.ShapeRange.Width = 340.15
Selection.ShapeRange.TextFrame.MarginLeft = 0#
Selection.ShapeRange.TextFrame.MarginRight = 0#
Selection.ShapeRange.TextFrame.MarginTop = 0#
Selection.ShapeRange.TextFrame.MarginBottom = 0#
Selection.ShapeRange.RelativeHorizontalPosition = _
wdRelativeHorizontalPositionColumn
Selection.ShapeRange.RelativeVerticalPosition = _
wdRelativeVerticalPositionMargin
Selection.ShapeRange.Left = wdShapeCenter
Selection.ShapeRange.Top = Y
Selection.ShapeRange.LockAnchor = False
Selection.ShapeRange.WrapFormat.AllowOverlap = False
Selection.ShapeRange.WrapFormat.Side = wdWrapBoth
Selection.ShapeRange.WrapFormat.DistanceTop = 0
Selection.ShapeRange.WrapFormat.DistanceBottom = 18
Selection.ShapeRange.WrapFormat.DistanceLeft = 0
Selection.ShapeRange.WrapFormat.DistanceRight = 0
Selection.ShapeRange.WrapFormat.Type = wdWrapTopBottom
Application.ScreenUpdating = True

Selection.ShapeRange.RelativeVerticalPosition = _
wdRelativeVerticalPositionMargin
Selection.ShapeRange.Top = Y

‘Comes over here

imgerrormsg:
MsgBox “Check-it-out the image name in H:ArtworkCurrentJobPictures*.* Path”, vbCritical
End Sub

Just beautiful. The idea is simplicity itself, and can even be controlled through VBA.

No, I am just drawing an analogy for how it seems to work.

Thanks, Phil, for your interest. In the few days I have been “lounging”, I have become quite a fan of yours.

Will try and do that when I get back into office after the weekend.

Rajesh

Need a solution desperately!

In Word 97, if you defined a style with space above and another identical in all respects except with no space above, then applying the first style to a para would cause the other style to be automatically applied wherever the space above occurred after a “space below” style or at the top of a page. You could always change this manually like undoing an AutoCorrect, but that choice seems to have disappeared in Word 2000 so we are now at the mercy of Word’s “intelligence”.

Thanks again for the em-dash idea. (Ctrl Alt -) Neat.

Thanks, Andrew, for the indent idea. Thanks, moreover for the promptness. It works for reducing the width of the separator. That set me thinking and I got multiple solutions to this problem. My supplementary comments are:

Changing the pt size only reduces the white space above the separator.

The separator does not seem to be text but some kind of object, not an Autoshape because I cannot manipulate it by selecting it.

The indent does not work if I want a longer-than-2 inches separator; for that, I can copy the Footnote Continuation Separator and apply the right indent.

I have thought of an inelegant method of getting a similar separator of any width: apply Format-Font-Strikethrough to the Paragraph, delete the existing separator, Clear All Tabs, and set a Tab at the point where you want the separator to end. Then, Insert a Tab.

However, with this solution, thickness of the separator cannot be adjusted. For that, it may be better to apply underlining instead of strikethrough, and raise the font position by about 3 pts.

But the question: What kind of an object is the default separator, remains unannswered.

You can find out if all the Fonts used in the document are actually installed, or whether substitute fonts which often are close approximations, are being used to display the text, in the following manner in Word 2000.

Open the document, and go to Tools-Options-Compatibility and click on the Font Substitution Button.

Helvetica is a Type 1 Font and is usually displayed in Arial which is a close True-type equivalent.

We have resolved this problem fairly elegantly by writing a single macro to (a) create a text box with the required defaults like no internal margins, etc; ( pop up a dialog box asking user to specify figure file name; © retrieve and place the figure into the text box; (d) capturing the height and width of the figure as variables, and (e) applying the value of these variables to the dimensions of the text box within which the figure is contained.

All this is done seamlessly : the users only click a button which runs the macro called Insert Image, and then provide the path and name of the figure to be inserted. Often, we even hard-code the path in the macro so that, for a particular job, the user has to choose from a list of figure files meant for a particular job only.

The figure is placed by default at one corner (top left or bottom right) or centred at the bottom or top of the page, depending on the job.

I have observed that space before as a Style parameter is suppressed in all paragraphs which are either at the top of a page or immediately follow a paragraph which has a style parameter with space after.

The space before appears whenever you explicitly specify a different space before setting using Format-Paragraph or you explicitly suppress the space below of the preceding paragraph in the same way.

An example of Word’s “intelligence” I suppose.