TrueColor BMP “fonts” in word w/ replace text>bmp script (trouble)

macropod · #1 03-02-2016, 12:47 AM

Try:

Code:

Sub InsertImages()
Application.ScreenUpdating = False
Dim i As Long
For i = 0 To 9
  With ActiveDocument.Range
    With .Find
      .ClearFormatting
      .Forward = True
      .Text = i
      .Replacement.Text = ""
      .Format = False
      .Wrap = wdFindStop
      .MatchCase = False
      .MatchWholeWord = False
      .MatchWildcards = False
      .MatchSoundsLike = False
      .MatchAllWordForms = False
      .Execute
    End With
    Do While .Find.Found
      .InlineShapes.AddPicture FileName:="C:\BMP Fonts\Q" & i & ".bmp", _
        LinkToFile:=False, SaveWithDocument:=True
      .Collapse wdCollapseEnd
      .Find.Execute
    Loop
  End With
Next
Application.ScreenUpdating = True
End Sub

Sinsearach · #2 03-02-2016, 03:09 AM

AWESOME.
And so close now!! spent so many hours on this....
but while your revision checks each instance, it does not remove the original character, it just ADDS my bmps; take a look:

Code:

http://www.imagebam.com/image/105392468865976

Quote:

Originally Posted by macropod

Try:

Code:

Sub InsertImages()
Application.ScreenUpdating = False
Dim i As Long
For i = 0 To 9
  With ActiveDocument.Range
    With .Find
      .ClearFormatting
      .Forward = True
      .Text = i
      .Replacement.Text = ""
      .Format = False
      .Wrap = wdFindStop
      .MatchCase = False
      .MatchWholeWord = False
      .MatchWildcards = False
      .MatchSoundsLike = False
      .MatchAllWordForms = False
      .Execute
    End With
    Do While .Find.Found
      .InlineShapes.AddPicture FileName:="C:\BMP Fonts\Q" & i & ".bmp", _
        LinkToFile:=False, SaveWithDocument:=True
      .Collapse wdCollapseEnd
      .Find.Execute
    Loop
  End With
Next
Application.ScreenUpdating = True
End Sub

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Find and Replace fonts?	daroga	Publisher	1	01-22-2016 09:13 PM
Slow "comparison/replace" script	mavCZ	Excel Programming	53	07-27-2014 10:57 AM
replace data from variable with "sub and super script" from excel to word by vba	krishnaoptif	Word VBA	9	06-22-2012 05:08 AM
WORD: Rtf and search-replace (regexp/fonts)	seteshpl	Word	1	09-06-2011 01:35 AM
Macro to Replace Fonts	ballj_35	Word	3	05-10-2011 01:10 AM