Home > In Word > Insert Images With Caption In Word 2003 Macro

Insert Images With Caption In Word 2003 Macro


Instead of step 1, you can select the picture and then click the Insert Caption button on the References tab. To use Google Groups Discussions, please enable JavaScript in your browser settings and then refresh this page. . Sub InsertImages() Dim doc As Word.Document Dim fd As FileDialog Dim vItem As Variant Dim mg1 As Range Dim mg2 As Range Set fd = Application.FileDialog(msoFileDialogFilePicker) Set doc = ActiveDocument With When you close the dialog box, any images you selected within the dialog box are inserted in your document, each in its own paragraph. this contact form

Click OK or Insert, depending on your version of Word. Thanks for the site referrals and attached reference; they will be very helpful. Click here to join today! Post navigation ← Are You Paying Attention?

How To Update Figure Numbers In Word Automatically

Compared to what's involved in the above, finding the in-line shapes and floating shapes is quite easy; instead of using Find, you loop through the InlineShape and Shape collections, respectively. BUT I want to be able to do the same thing while inserting MANY pictures at once (multiple selection). For instance, you may want to include a caption for all your tables that says "Table" and then a number for the table, as in "Table 3." Word can automate this

If you do not want to use the loop and wish to continue processing the images one at a time just use the 2nd code example below instead of the first. Using the Position drop-down list, specify where you want the caption to appear in relation to the object. Follow these general steps: Place the insertion point at the place in the document where you want the graphics inserted. Word Insert Figure Reference Helpful Links WordTips FAQ Ask a Word Question Make a Comment Free Business Forms Free Calendars Tips.Net > WordTips Home > Graphics > Inserting Multiple Graphics in a Document… #avgeek #paxex- 2daysago Search the blog Search Blog at How To Add Numbers To A Picture In Word Reply With Quote 06-29-2010,09:24 AM #3 fumei View Profile View Forum Posts View Blog Entries View Articles VBAX Wizard Joined May 2004 Posts 6,713 Location BTW: notice I do NOT use Solved: Insert Caption with Word 2003 Macro Discussion in 'Business Applications' started by deranger, Feb 2, 2008. The clipboard has the correct text (verified by pasting elsewhere) which fails to get pasted into the caption dialog box.

A sample Word 2003 file is attached which should have four embedded graphics. How To Group A Caption To A Picture In Word Leave your own comment: *Name: Email: Notify me about new comments ONLY FOR THIS TIP Notify me about new comments ANYWHERE ON THIS SITE Hide my email address *Text: *What That is: all jpg, then all png, then all tif or in whatever order you like. If you are using a later version (Word 2007 or later), this tip may not work for you.

How To Add Numbers To A Picture In Word

I should have mentioned the pictures could be placed anywhere, actually the whole document includes only the pictures. useful reference My question: Need to add say 5 images to one page. How To Update Figure Numbers In Word Automatically Our Company Sharon Parq Associates, Inc. Auto Caption Word Every week John needs to create an invoice and insert several scanned images into a Word document.

Quarterly Results Analysis withPython Anybody can become angry  Biggest Economics Stimulus ever inIndia aerospace BeingRemarkable books c coding dbx debugging drawing drawings excel fem fortran gasturbine help investing iphone java matlab weblink Enter your e-mail address and click "Subscribe." (Your e-mail address is not shared with anyone, ever.) Want to see what the newsletter looks like? Sub PicWithCaption() Dim file Dim path As String path = "C:\Gerry\" file = Dir(path & "*.jpg") CaptionLabels.Add Name:="Filename" Do While file <> "" With Selection .EndKey Unit:=wdStory .InlineShapes.AddPicture FileName:=path & file, You tell it to process specific parameters. Word Figure Numbering Out Of Order

That was exactly what I needed. Leave your own comment: *Name: Email: Notify me about new comments ONLY FOR THIS TIP Notify me about new comments ANYWHERE ON THIS SITE Hide my email address *Text: *What If you want all figures to automatically be captioned, click AutoCaption and then use the AutoCaption dialog box to set up captioning options. navigate here Sub Macro1() ' ' Macro1 Macro ' ' Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:="1" Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "^g" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = False

Thank you for your help. Auto Number Images In Word You need to have at least an empty paragraph between the pics. The Dir function processes all files of one type.

Learn more about Allen...

WordTips is your source for cost-effective Microsoft Word training. (Microsoft Word is the most popular word processing software in the world.) This tip (891) applies to Microsoft Word 97, 2000, 2002, For code you could use when inserting new pics, see: __________________ Cheers, Paul Edstein [MS MVP - Word] #11 05-03-2016, 10:41 AM Jazz43 Windows 7 64bit Office 2010 Email Subscription Enter your email address to subscribe to this blog and receive notifications of new posts by email. Word Auto Caption Jpg Short URL to this thread: Log in with Facebook Log in with Twitter Log in with Google Your name or email address: Do you already have an account?

SEO by vBSEO ©2011, Crawlability, Inc. Since writing report isn't a daily activity of my job, this thing reoccurs. Similarly, with the AddCaptionText macro, change Tbl.Range.Cells.Count to 1. his comment is here And the paragraph is perfect too.

Tech Support Guy is completely free -- paid for by advertisers and donations.… Thanks to @cencio4 #aviation #boeing- 1dayago The latest Aerospace Daily! Yes, my password is: Forgot your password? The selection of pictures could be either Ctrl-Clicking at the "Insert>Picture> From File" dialog, or even a whole folder, I do not mind, which ever is easier.

Oh, and also, how can I tell the code to look not only for jpg, but also png and tif? If the folder contains more than just graphics or you want only some of the graphic files, you can hold down the Ctrl key as you use the mouse to select That leaves the cursor positioned after the first graphic so it will put in the next caption when the macro is run again, etc. Very much appreciated.

I have around 100 images in my document and i need to assign format style "Captions" to all my images and insert Figure Captions below images as "Figure 1: <