Opening Word Document and changing text & insert picture

[CVMichael]

I did a search but did not find much help on this.

I need to know how to modify text in the document, and also how to insert a picture (that is NOT in a file, it's a picturebox in my program)

For example I have to find "FirstName" and replace with actual first name let's say "John Doe" (keeping the same font and formatting).

Also, I need to insert a picture in the document in the top/right corder, and have no clue how.

This is the code I found by searching, and did not find anything to do the rest of what I need...

Option Explicit
 
Private objWord As Word.Application
Private objDocument As Word.Document
 
Private Sub Form_Load()
    Set objWord = New Word.Application
    
    Set objDocument = objWord.Documents.Open("C:\Template.doc")
End Sub

Any help apreciated, thanks

[CVMichael]

Nevermind, I found out to search and replace text here:
http://msdn.microsoft.com/library/de...eplacetext.asp


So now, how to insert a picture in the document ??

[CVMichael]

OK, I found out how to insert a picture also

objWord.Documents.Item(1).Shapes.AddPicture "C:\Test.JPG"

Now I need to know how to align it to the right ?

Also it would be nice if I would not have to save the picture then load it in the document. It would be nice if I could just add the picturebox in the VB to Word...

Is anyone helping me here ? or I have to figure out everything on my own ?

[sciguyryan]

Try:

objWord.Documents.Item(1).Shapes.AddPicture "C:\Test.JPG"
objWord.Documents.Item(1).Shapes(1).Select ' Not shure what number it would be so it may need to be changed
Selection.ShapeRange.Align msoAlignRights, False

As for a direct VB Picturebox too MS Word picture copy as far as I am aware it is not possible.

Cheers,

RyanJ

[RobDog888]

If you search the VBA Forum I have a thread in there where I wrote code for something almost exactly like this.

Search VBF first for all your code needs

[sciguyryan]

If you search the VBA Forum I have a thread in there where I wrote code for something almost exactly like this.

Search VBF first for all your code needs

Especially when its VBA related because we all know that Rob is the VBA Master

Cheers,

RyanJ

[RobDog888]

Ok, I'm getting now.

Here is the thread -
http://www.vbforums.com/showthread.php?t=326292


Actually it should be - VB/Office Guru™

[CVMichael]

I get a permission denied error...

Option Explicit
 
Private objWord As Word.Application
Private objDocument As Word.Document
 
Private Sub Form_Load()
    Dim SHP As Word.Shape
    Set objWord = New Word.Application
    
    Set objDocument = objWord.Documents.Open("C:\Test.doc")
    
    With objWord.Selection.Find
        .ClearFormatting
        .Text = "FirstName"
        
        With .Replacement
            .ClearFormatting
            .Text = "John Doe"
        End With
        
        .Execute Replace:=Word.WdReplace.wdReplaceAll
    End With
    
    Set SHP = objWord.Documents.Item(1).Shapes.AddPicture("C:\Test.JPG")
    SHP.WrapFormat.Type = wdWrapSquare
    SHP.Select
    
    [color=orange]Selection.ShapeRange.Align msoAlignRights, False[/color]
    
    objDocument.SaveAs "C:\Test_out.doc"
    objDocument.Close False
    Set objDocument = Nothing
    
    objWord.Quit False
    Set objWord = Nothing
End Sub

[CVMichael]

Actually, this worked

Selection.ShapeRange.Align msoAlignRights, True

But it placed the picture a littl to much to the right, I need it before the right margin, cuz i'll have to print the document.

[RobDog888]

Did you see the post with the formatting code for the added image? #22

'Positioning:
    objDocument.Shapes(1).Select 'True
    objDocument.Shapes(1).Left = 0 '-999998
    objDocument.Shapes(1).Top = 200
    objDocument.Shapes(1).Width = 189
    objDocument.Shapes(1).Height = 125.25
    'Formatting:
    Selection.ShapeRange.WrapFormat.Type = wdWrapSquare
    Selection.ShapeRange.RelativeHorizontalPosition = wdRelativeHorizontalPositionColumn
    Selection.ShapeRange.RelativeVerticalPosition = wdRelativeVerticalPositionParagraph
    Selection.ShapeRange.LockAspectRatio = msoTrue

[CVMichael]

This did not make any diference whatsoever:

'Formatting:
    Selection.ShapeRange.WrapFormat.Type = wdWrapSquare
    Selection.ShapeRange.RelativeHorizontalPosition = wdRelativeHorizontalPositionColumn
    Selection.ShapeRange.RelativeVerticalPosition = wdRelativeVerticalPositionParagraph
    Selection.ShapeRange.LockAspectRatio = msoTrue

When I insert the picture it is on left/top, and I need it on top/right.
So the only thing that made a difference is the "objDocument.Shapes(1).Left = 355".
The shape object returns 78 as the width, so it means that the right margin (where I want it aligned) is 433.

The document object returns 966 as the width of the document, so that does not make any sence... because first I tried something like: "SHP.Left = objWord.Width - SHP.Width" that that was off the sceen I think, because I did not see the picture anywhere

So... right now i'm using this code:

Set SHP = objWord.Documents.Item(1).Shapes.AddPicture("C:\Test.JPG")
    SHP.Select
    Selection.ShapeRange.LockAspectRatio = msoTrue
    
    SHP.Left = 355

But that positions the picture where I want it, but I would rather if it was aligned to the right

Anyways... I guess it's kind of resolved...

[dglienna]

Are you creating it on a new document? I had opened a document, where the image was a bookmark. It stayed where it was placed only after setting the Top, Left, Width, and Height.

[RobDog888]

I posted that code already in #10. It should be positioning correctly if all the props are set.

[Aidygus]

This method works fine when placeing an image from a network share but is there a way of putting images into a document from a SQL database?

I've got a template word document with bookmarks in and I've worked out how to get text inserted in the relevant place, but the image won't go.

[RobDog888]

Sure you can. If your not familiar with databases and ADO you should check out beacons tutorial in the sticky at the top of the db forum.

[jijajija]

Another question about insert pictures into a Word-document. What if I have a picture and want to insert it on every new page that is created dynamicly. I want to insert a picture and a smaller picture over the other picture on every new page.

I´m using
DOC.Selection.InsertBreak wdSectionBreakNextPage
in a loop for making a new page. And then on the new page I will insert the pictures again.

If I´m using
DOC.Shapes.AddPicture theFile, False, True, 50, 50, 200, 300, Selection.Range

All the pictures will end up on the last page. And if I´m using:
DOC.Application.Selection.InlineShapes.AddPicture theFile

I can´t get one picture over the other.

Hope you understand...

[RobDog888]

Use a drawing canvas and then add your images to it. That will allow you to place the ordering of the layers of the images.

[jijajija]

Ok... I´m stupid. But can you give me an example in code. THAT WOULD BE VERY NICE!!! You are fast man!

[RobDog888]

Dim shp As Shape
Set shp = ThisDocument.Shapes.AddCanvas(100, 100, 200, 200)
shp.CanvasItems.AddPicture "C:\Documents and Settings\VB-Guru\My Documents\My Pictures\birthday.gif", True, True, 0, 0, 200, 200
shp.CanvasItems.AddPicture "C:\Documents and Settings\VB-Guru\My Documents\My Pictures\MVP.bmp", True, True, 50, 50
shp.CanvasItems.Item(2).ZOrder msoBringToFront

[jijajija]

shp.CanvasItems Doesn´t work. I can´t get to COnvasItems. It seems that shp doesn´t have it. ????

[jijajija]

I forgott to say that I´m using VB6. Is there a solution for VB6?

[jijajija]

I made a change and the pictures was applied to the document. One over another. But one problem is not solved. ALL of the pictures is ending up on the last page....

Code snippet:

For Each theFile In f.Files

With DOC.Application.Selection.PageSetup
.TopMargin = 0
.BottomMargin = 0
.LeftMargin = 0
.RightMargin = 0
.Gutter = 0
.HeaderDistance = 0
.FooterDistance = 0
End With

DOC.Shapes.AddCanvas 100, 100, 200, 200
DOC.Shapes.Item(1).CanvasItems.AddPicture theFile, True, True, 0, 0, 200, 200
DOC.Shapes.Item(1).CanvasItems.AddPicturetheFile, True, True, 50, 50
DOC.Shapes.Item(1).CanvasItems.Item(2).ZOrder 0

DOC.Application.Selection.InsertBreak wdSectionBreakNextPage

Next theFile


I want the to pictures on every page that is created. Not only on the last page.

[RobDog888]

Not sure how to get it on a particular page as identifing page positions are very limited in code.

[jijajija]

The solution that I made was that I created a wordtemplate first with 2 pictures on it. Then I inserted the template as file in a new document. This was made in my loop, so for every new template file, this template was inserted into a new page in the "new" document. So... it ended up in not the best solution but it worked.

[RobDog888]

Cool, glad its solved now.

Dont forget to mark your thread as Resolved.