set fullName to "Sara Smile" set pixPath to "HD:yearbook:pix:sara.jpg" --CHANGE THIS to be the path to a picture set textPath to "HD:yearbook:poems:sara.txt" --CHANGE THIS to be the path to a small text file tell application "Microsoft Word" activate do Visual Basic "Documents.Add DocumentType:=wdNewBlankDocument" --create new document do Visual Basic "Selection.EndKey Unit:=wdStory " -- move cursor to end of document --put a picture on the page, and size it set pixVB to "Selection.InlineShapes.AddPicture(FileName:= \"" & pixPath & "\", LinkToFile :=False, SaveWithDocument:=True).Select " --photo in doc do Visual Basic pixVB do Visual Basic " Selection.InlineShapes(1).Width = 450" do Visual Basic "Selection.InlineShapes(1).Height = 300" do Visual Basic "Selection.EndKey Unit:=wdStory " -- move cursor to end of document --put some vertical text on the page do Visual Basic "ActiveDocument.Shapes.AddTextbox(msoTextOrientationHorizontal,520, 40,55#,330#).Select" do Visual Basic "Selection.ShapeRange.TextFrame.TextRange.Select" do Visual Basic "Selection.ShapeRange.Line.Visible = msoFalse" --get rid of border do Visual Basic "Selection.ShapeRange.Fill.Visible = msoFalse" -- get rid of background do Visual Basic "Selection.Collapse" do Visual Basic "Selection.Orientation = wdTextOrientationDownward" do Visual Basic "Selection.TypeText Text:=\"" & fullName & "\"" do Visual Basic "Selection.WholeStory" do Visual Basic "Selection.Font.Name = \"Arial Black\"" do Visual Basic "selection.Font.Size = 24" do Visual Basic "Selection.EndKey Unit:=wdStory " -- move cursor to end of document --import a text file to the page do Visual Basic "ActiveDocument.Shapes.AddTextbox(msoTextOrientationHorizontal,305,390,230#,350#).Select" -- x, y, w, h ?? do Visual Basic "Selection.ShapeRange.Line.Visible = msoFalse" --get rid of border do Visual Basic "Selection.ShapeRange.Fill.Visible = msoFalse" -- get rid of background do Visual Basic "Selection.ShapeRange.TextFrame.TextRange.Select" do Visual Basic "Selection.Collapse" do Visual Basic "Selection.Orientation = wdTextOrientationHorizontal" do Visual Basic "Selection.InsertFile (\"" & textPath & "\") " do Visual Basic "Selection.WholeStory" do Visual Basic "Selection.Font.Name = \"Arial\"" do Visual Basic "Selection.Font.Size = 11" do Visual Basic "Selection.ParagraphFormat.LeftIndent = InchesToPoints(0.25)" --hanging indent part1 do Visual Basic "Selection.ParagraphFormat.FirstLineIndent = InchesToPoints(-0.25)" --hanging indent part 2 do Visual Basic "Selection.EndKey Unit:=wdStory " -- move cursor to end of document do Visual Basic "Selection.InsertBreak Type:=wdPageBreak " --add a page break to end the page end tell