> I am sure this is more than enough to get you started... It sure is, thank you very much! Rafael
----- Original Message ----- From: "Jack Skelley" <[email protected]> To: <[email protected]> Sent: Friday, September 25, 2009 12:21 PM Subject: RE: WORD AND AUTOMATION > Rafael: > Although I am no expert with Word automation I have 'figured out' enough > to be dangerous. > > > This is the word set up method: > *setup MS Word > wait window "Setting Microsoft Word Document Defaults..." nowait > oWord = createobject("Word.Application") > oWord.Documents.Add() > with oWord.Options > .CheckSpellingAsYouType = thisform.container3.chkAlerts.value > .CheckGrammarAsYouType = thisform.container3.chkAlerts.value > .SuggestSpellingCorrections = thisform.container3.chkAlerts.value > .SuggestFromMainDictionaryOnly = thisform.container3.chkAlerts.value > .CheckGrammarWithSpelling = thisform.container3.chkAlerts.value > .ShowReadabilityStatistics = thisform.container3.chkAlerts.value > .EnableSound = thisform.container3.chkAlerts.value > .AnimateScreenMovements = thisform.container3.chkAlerts.value > endwith > with oWord.ActiveWindow > .DisplayScreenTips = thisform.container3.chkAlerts.value > .View.ShowAnimation = thisform.container3.chkAlerts.value > .ActivePane.View.Type = 3 &&select wdPrintView -- select a print view to > the document... > endwith > with oWord.ActiveDocument > .ShowGrammaticalErrors = thisform.container3.chkAlerts.value > .ShowSpellingErrors = thisform.container3.chkAlerts.value > endwith > oWord.DisplayAlerts = thisform.container3.chkAlerts.value > if thisform.container3.chkActivate.value then > oWord.Visible = .t. &&must stay visible or the pages are not formed > correctly...set throttle? > toplogo.windowstate = 1 &&minimize the main window; a 2 maxs the > window > oWord.Application.Activate > doevents > endif > wait clear > > > Here is the graphic insert method: > oWord.ActiveDocument.Tables.Add(oWord.Selection.Range, 1, 1) > with oWord.Selection.Tables(1) > .Borders(-2).LineStyle = 0 &&wdBorderLeft equals wdLineStyleNone > .Borders(-4).LineStyle = 0 &&wdBorderRight > .Borders(-1).LineStyle = 0 &&wdBorderTop > .Borders(-3).LineStyle = 0 &&wdBorderBottom > .Borders(-7).LineStyle = 0 &&wdBorderDiagonalDown > .Borders(-8).LineStyle = 0 &&wdBorderDiagonalUp > .Borders(-6).LineStyle = 0 &&wdBorderVertical > .Borders.Shadow = .f. > .PreferredWidthType = 3 &&wdPreferredWidthPoints > .PreferredWidth = 0.85 * 72 > .Rows.HeightRule = 2 &&wdRowHeightExactly > .Rows.Height = 0.85 * 72 > .Rows.AllowBreakAcrossPages = .t. > .Rows.WrapAroundText = .t. > .Rows.HorizontalPosition = -999998 &&wdTableLeftMargin > .Rows.RelativeHorizontalPosition = 0 > &&wdRelativeHorizontalPositionMargin > .Rows.DistanceLeft = 0 &&text aroubd table > .Rows.DistanceRight = 0 &&text around table > .Rows.VerticalPosition = 0.15 * 72 &&table position vertically from > margin > .Rows.RelativeVerticalPosition = 0 &&wdRelativeVerticalPositionMargin > .Rows.DistanceTop = 0 > .Rows.DistanceBottom = 0 > .Rows.AllowOverlap = .t. > endwith > with oWord.Selection > .Range.Cells(1).PreferredWidthType = 3 &&wdPreferredWidthPoints > .Range.Cells(1).PreferredWidth = 0.85 * 72 > .Range.Cells(1).VerticalAlignment = 1 &&wdCellAlignVerticalCenter > .InlineShapes.AddPicture("\devscout\devils.bmp", .f., .t.) &&don't > select the image > .MoveRight(1,1) &&get out of table > endwith > > > > > Here is a header setup which will probably be enough to get you started... > *set up the header for all pages... > *set some tabs > oWord.Selection.ParagraphFormat.TabStops.ClearAll > oWord.ActiveDocument.DefaultTabStop = 0.5 * 72 &&set tabs every 0.5" > with oWord.Selection > with .ParagraphFormat.TabStops > .Add(3.15 * 72, 1, 0) &&position, center, no leader > .Add(5.95 * 72, 2, 0) &&position, right, no leader > .Add(6.05 * 72, 0, 0) &&position, left, no leader > endwith > endwith > *add devils logo to a table > thisform.add_logo() > *add rectangle > oWord.Activedocument.Shapes.AddShape(1,2.65*72, 0.355*72, 3.1*72, > 1.0*72).select &&type, left,top,width,height > with oWord.Selection.ShapeRange > .LockAnchor = .t. > .Line.Weight = 3 > .WrapFormat.AllowOverlap = .t. > .WrapFormat.Type = 5 > endwith > oWord.Selection.Collapse(0) > *Fill out Header...line 1 > with oWord.Selection > .Font.Name = "Arial" > .Font.Size = 12 > .TypeParagraph > .Font.Bold = .t. > .TypeText(chr(9) + "NEW JERSEY DEVILS") > .Font.Size = 10 > .TypeText(chr(9)+ "DATE:") > .Font.Bold = .f. > .TypeText(chr(9) + dtoc(date())) > .TypeParagraph > *line 2 > .TypeParagraph > .Font.Bold = .t. > .TypeText(chr(9) + "THE DEVILS SCOUTING SYSTEM") > .TypeText(chr(9) + "TIME:") > .Font.Bold = .f. > .TypeText(chr(9) + time()) > .TypeParagraph > *line 2 > .TypeParagraph > .Font.Bold = .t. > .TypeText(chr(9) + "SCOUTING REPORT") > .TypeText(chr(9) + "PAGE:") > .Font.Bold = .f. > .TypeText(chr(9) + alltrim(transform(gnPage + gnPage_long_comment, > "99,999"))) &&different page and record counts > .TypeParagraph > .TypeParagraph > *line 4 > .Font.Bold = .t. > .Font.italic = .t. > .TypeText("PRIVILEGED & CONFIDENTIAL") > .Font.italic = .f. > .TypeParagraph > endwith > *Header data...add rectangle box > oWord.Activedocument.Shapes.AddShape(1,18, 117, 572, 60).select &&type, > left,top,width,height > with oWord.Selection.ShapeRange > .Fill.Visible = -1 &&msoTrue > .Fill.Solid > .Fill.ForeColor.RGB = RGB(221, 221, 221) &&15% gray > .Fill.Transparency = 0 > .Line.Weight = 1 > .LockAnchor = .t. > .WrapFormat.Type = 5 > .WrapFormat.AllowOverlap = .t. > endwith > oWord.Selection.Collapse(0) > *new tabs... > oWord.Selection.ParagraphFormat.TabStops.ClearAll > oWord.ActiveDocument.DefaultTabStop = 0.5 * 72 > with oWord.Selection.ParagraphFormat.TabStops > .Add(1.10 * 72, 2, 0) &&position, center, no leader > .Add(1.20 * 72, 0, 0) &&position, right, no leader > .Add(4.00 * 72, 2, 0) &&position, center, no leader > .Add(4.10 * 72, 0, 0) &&position, right, no leader > .Add(6.25 * 72, 2, 0) &&position, center, no leader > .Add(6.35 * 72, 0, 0) &&position, right, no leader > endwith > *Header fields...line 1 > with oWord.Selection > .Font.Name = "Arial" > .Font.Size = 7 &&move down from top of rectangle > .TypeParagraph > .Font.Size = 10 > .Font.Bold = .t. > .TypeText(chr(9)+ "SCOUT:") > .Font.Bold = .f. > .TypeText(chr(9) + p_scout) > .Font.Bold = .t. > .TypeText(chr(9) + "TEAM SCOUTED:") > .Font.Bold = .f. > .TypeText(chr(9) + p_home) > .Font.Bold = .t. > .TypeText(chr(9) + "REPORT TYPE:") > .Font.Bold = .f. > .TypeText(chr(9) + gcReport_type) > .Font.Bold = .t. > .TypeParagraph > *Header fields...line 2 > .Font.Size = 7 &&move down from previous line > .TypeParagraph > .Font.Size = 10 > .Font.Bold = .t. > .TypeText(chr(9)+ "REPORT DATE:") > .Font.Bold = .f. > .TypeText(chr(9) + dtoc(p_gamedate)) > .Font.Bold = .t. > .TypeText(chr(9) + "OPPONENT:") > .Font.Bold = .f. > .TypeText(chr(9) + p_visitor) > do case > case p_rpt_type = 1 &&playoff round summary > .Font.Bold = .t. > .TypeText(chr(9) + "ROUND:") &&need game in here as well > .Font.Bold = .f. > .TypeText(chr(9) + alltrim(str(p_round))) > .TypeParagraph > case p_rpt_type = 2 &&playoff game summary > .Font.Bold = .t. > .TypeText(chr(9) + "ROUND:") &&need game in here as well > .Font.Bold = .f. > .TypeText(chr(9) + alltrim(str(p_round))) > .Font.Bold = .t. > .TypeText(" GAME: ") &&need game in here as well > .Font.Bold = .f. > .TypeText(alltrim(str(p_gamenum))) > .TypeParagraph > otherwise &&Regular season game so go to the next line > .TypeParagraph > endcase > *Header fields...line 3 > .Font.Size = 7 &&move down from previous line > .TypeParagraph > .Font.Size = 10 > .Font.Bold = .t. > .TypeText(chr(9)+ "EVENT:") > .Font.Bold = .f. > .TypeText(chr(9) + alltrim(p_event)) > .Font.Bold = .t. > .TypeText(chr(9) + "LOCATION:") > .Font.Bold = .f. > .TypeText(chr(9) + alltrim(p_location)) > .Font.Bold = .t. > .TypeText(chr(9) + "INTENSITY:") > .Font.Bold = .f. > if p_intens > 0 then > .TypeText(chr(9) + alltrim(str(p_intens))) > else > .TypeText(chr(9) + "n/e") > endif > .Font.Bold = .t. > .TypeParagraph > endwith > *add a line > oWord.ActiveDocument.Shapes.AddLine(18, 185, 590, 185).Select &&BeginX, > BeginY, EndX, EndY > with oWord.Selection.ShapeRange > .Line.Style = 5 &&thick between thin > .Line.Weight = 8 > .LockAnchor = .t. > .WrapFormat.Type = 5 > .WrapFormat.AllowOverlap = .t. > endwith > oWord.Selection.Collapse(0) > * > with oWord.Selection > .TypeParagraph > .TypeParagraph > endwith > > > I am sure this is more than enough to get you started... > Regards, > > Jack Skelley > > > ________________________________________ > From: [email protected] [[email protected]] On > Behalf Of Rafael Copquin [[email protected]] > Sent: Friday, September 25, 2009 10:08 AM > To: [email protected] > Subject: WORD AND AUTOMATION > > A client of mine has literally hundreds of Word documents with the > Company's logo EMBEDDED into the document header. Because of an inherent > ignorance in the correct use of Word, they did not even consider the > possibility of LINKING the logo, which would have at least two benefits > for them: > > 1 - lighter files > 2 - the possibility of replacing the logo with another one, by simply > putting the new one in lieu of the old one, but with the same name. > > Now, they opened a new branch, with a different logo, and need to use the > same set of hundreds of documents, but this new logo in the header. > > I was thinking of writing a program that would open the old document, > somehow get rid of the embedded logo and replace it with a link to the new > one. > > Any ideas on how best to do it? Any code examples? > > TIA > > Rafael Copquin > > > _______________________________________________ Post Messages to: [email protected] Subscription Maintenance: http://leafe.com/mailman/listinfo/profox OT-free version of this list: http://leafe.com/mailman/listinfo/profoxtech Searchable Archive: http://leafe.com/archives/search/profox This message: http://leafe.com/archives/byMID/profox/3ca318d7f5d94c6f8a3846447cb93...@rafanueva ** All postings, unless explicitly stated otherwise, are the opinions of the author, and do not constitute legal or medical advice. This statement is added to the messages for those lawyers who are too stupid to see the obvious.
