Microsoft Office Forums

Go Back   Microsoft Office Forums > >

 
 
Thread Tools Display Modes
Prev Previous Post   Next Post Next
  #1  
Old 12-23-2015, 03:23 AM
tanzinim tanzinim is offline ord vba replace the variable text with variable images to make offer products with images Windows 7 64bit ord vba replace the variable text with variable images to make offer products with images Office 2007
Novice
ord vba replace the variable text with variable images to make offer products with images
 
Join Date: Dec 2015
Posts: 3
tanzinim is on a distinguished road
Post ord vba replace the variable text with variable images to make offer products with images

Good morning
sorry but my knowledge of VBA is limited.

I have to make offers and bills with a word document RTF (exported from Access 2007) with the codes that need to be replaced with images (photos).
The word sheet looks like this:

FOTO_Eclipse

FOTO_FORMA3

FOTO_Eclipse

FOTO_Eclipse

FOTO_FORMA3

FOTO_ALFA


In practice, the VBA code is to be found throughout the word document the string "FOTO_" read the adjacent code (eg Eclipse) and replace it with a photo that I find in a directory on the server.

The code I've written so far is as follows but I only work for the first code and ends without replacing all the others ... please help me where is the error?
Thanks Marco

Sub Replace_String_ImageNUOVO ()

Dim Message As String
As String Dim Title
As String Dim Default
As String Dim usertext
As String Dim PixPathandName
As Range Dim CurrentRange

PixPathandName = "J: \ APPS \ ACCESS \ MDB2007 \ FOTOxOFFERTE \"

September CurrentRange = Selection.Range

Selection.HomeKey wdStory

Selection.Find.ClearFormatting


With Selection.Find
.text = "FOTO_"
.Replacement.Text = ""
.forward = True
.Wrap = WdFindAsk
.format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
Selection.Find.Execute
Selection.MoveRight Unit: = wdCharacter, Count: = 1
Selection.MoveRight Unit: = wdWord, Count: = 1, Extend: = wdExtend
Usertext = "FOTO_" & Selection.Range
With Selection.Find
.forward = True
.Wrap = WdFindContinue
Do While .Execute (FindText: = usertext) = True
Selection.InlineShapes.AddPicture FileName: = PixPathandName & Selection.Range & ".JPG", _
LinkToFile: = False, SaveWithDocument: = True
Loop
End With

CurrentRange.Select
End With
End Sub
Reply With Quote
 

Tags
images, text



Similar Threads
Thread Thread Starter Forum Replies Last Post
Object Variable or With block variable not set Raza Excel Programming 8 01-15-2015 12:19 AM
Run Time Error '91': Object variable or With block variable not set using Catalogue Mailmerge Berryblue Mail Merge 1 11-13-2014 05:36 PM
ord vba replace the variable text with variable images to make offer products with images Run-time error 91 object variable or with block variable not set JUST ME Word VBA 4 03-25-2014 06:56 AM
ord vba replace the variable text with variable images to make offer products with images object variable or with block variable not set MJP143 Excel 1 02-11-2013 05:07 AM
ord vba replace the variable text with variable images to make offer products with images Run-time error '91': Object variable or With block variable not set tinfanide Excel Programming 2 06-10-2012 10:17 AM

Other Forums: Access Forums

All times are GMT -7. The time now is 08:30 AM.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions Inc.
Search Engine Optimisation provided by DragonByte SEO (Lite) - vBulletin Mods & Addons Copyright © 2025 DragonByte Technologies Ltd.
MSOfficeForums.com is not affiliated with Microsoft