Solved

VB open word doc, place picture

Posted on 2009-05-15
3
436 Views
Last Modified: 2012-05-07
I need to open a work document, add a picture (to make it look like letterhead) and the office address in a text box.

need help with code to place the picture.  I can open the document just fine.

Troyo
0
Comment
Question by:toverholt
  • 2
3 Comments
 
LVL 19

Expert Comment

by:dlc110161
ID: 24413654
Are you talking about Word or Works? If Word, the below code should get you started.

Dawn Bleuel
Word MVP
Sub InsertPicture()
Dim appWord As Word.Application
Dim strLetter As String
Dim strTemplatePath As String
Dim strFileName As String
 
Application.ScreenUpdating = False
Set appWord = GetObject(, "Word.Application")
strFileName = "PictureFile.docx"
strTemplatePath = "Q:\BleuelDawn\TestFiles\"
strLetter = strTemplatePath & strFileName
 
appWord.Documents.Open strLetter
ActiveDocument.InlineShapes(1).Range.Select
Selection.Copy
ActiveDocument.Close saveChanges:=wdDoNotSaveChanges
Selection.Paste
End Sub

Open in new window

0
 
LVL 37

Accepted Solution

by:
Joanne M. Orzech earned 500 total points
ID: 24425795
I wouldn't be putting anything in a text box to use as letterhead.

If Dawn's code doesn't work, here's a macro I simply recorded... You obviously have to replace the filename and path of your image, as well as the placeholder text I typed.... but this is a very simple macro.


Sub Letterhead()
ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=1, NumColumns:= _
        2, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
        wdAutoFitFixed
'HERE'S WHERE YOU PUT THE PATH NAME OF YOUR IMAGE FILE
    Selection.InlineShapes.AddPicture FileName:= _
        "C:\Documents and Settings\orzechj\My Documents\My Pictures\Clouds.bmp", _
        LinkToFile:=False, SaveWithDocument:=True
    Selection.MoveLeft Unit:=wdCharacter, Count:=1
    Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend
    Selection.InlineShapes(1).LockAspectRatio = msoTrue
    Selection.InlineShapes(1).Height = 72#
    Selection.InlineShapes(1).Width = 105.1
    Selection.MoveRight Unit:=wdCharacter, Count:=1
    Selection.MoveRight Unit:=wdCell
    Selection.TypeText Text:="Your Company Name Goes Here"
    Selection.TypeParagraph
    Selection.TypeText Text:="Your Company Address Here"
    Selection.TypeParagraph
    Selection.TypeText Text:="City, State Zip "
    Selection.TypeParagraph
    Selection.TypeText Text:="Country"
    Selection.TypeParagraph
    Selection.TypeText Text:="Phone"
    Selection.TypeParagraph
    Selection.TypeText Text:="Website:"
    Selection.MoveLeft Unit:=wdWord, Count:=6, Extend:=wdExtend
    Selection.HomeKey Unit:=wdStory
    Selection.MoveRight Unit:=wdWord, Count:=3, Extend:=wdExtend
    Selection.Borders(wdBorderTop).LineStyle = wdLineStyleNone
    Selection.Borders(wdBorderLeft).LineStyle = wdLineStyleNone
    Selection.Borders(wdBorderBottom).LineStyle = wdLineStyleNone
    Selection.Borders(wdBorderRight).LineStyle = wdLineStyleNone
    Selection.Borders(wdBorderVertical).LineStyle = wdLineStyleNone
    Selection.Borders(wdBorderDiagonalDown).LineStyle = wdLineStyleNone
    Selection.Borders(wdBorderDiagonalUp).LineStyle = wdLineStyleNone
    Selection.EndKey Unit:=wdStory
    Selection.TypeParagraph
    Selection.HomeKey Unit:=wdStory
    Selection.Tables(1).AutoFitBehavior (wdAutoFitContent)
End Sub

Open in new window

0
 
LVL 37

Expert Comment

by:Joanne M. Orzech
ID: 25126945
Great!  Thanks so much.  Glad I was able to help.

Joanne Orzech
MS Word MVP
EE Zone Advisor
0

Featured Post

Announcing the Most Valuable Experts of 2016

MVEs are more concerned with the satisfaction of those they help than with the considerable points they can earn. They are the types of people you feel privileged to call colleagues. Join us in honoring this amazing group of Experts.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

When designing a form there are several BorderStyles to choose from, all of which can be classified as either 'Fixed' or 'Sizable' and I'd guess that 'Fixed Single' or one of the other fixed types is the most popular choice. I assume it's the most p…
Background What I'm presenting in this article is the result of 2 conditions in my work area: We have a SQL Server production environment but no development or test environment; andWe have an MS Access front end using tables in SQL Server but we a…
Show developers how to use a criteria form to limit the data that appears on an Access report. It is a common requirement that users can specify the criteria for a report at runtime. The easiest way to accomplish this is using a criteria form that a…
Office 365 is currently available in five editions. Three of them are for business use: Office 365 Business Essentials, Office 365 Business, and Office 365 Business Premium. Two of them are for home/personal use: Office 365 Home and Office 365 Perso…

816 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

7 Experts available now in Live!

Get 1:1 Help Now