#16
|
|||
|
|||
Thanks a lot, Vivka, for the slight changes. It's all OK now. |
#17
|
|||
|
|||
Hi, Vivka! I'm using your code, but I need your help once more. As you can see below, I added a few lines to your code, but I cannot achieve my aim, which is to insert the string |Chr(34) & ">"| after inserting text from a file.
Code:
Sub Test() Dim oRng As range Dim oRngD As range Dim oRngDD As range Dim vWd As Variant Dim vHi As Variant Set oRng = ActiveDocument.range With oRng.Find .ClearFormatting .Replacement.ClearFormatting .text = "\<img width*\>" .Replacement.text = "" .Forward = True .Wrap = wdFindStop .Format = False .MatchWildcards = True If .Execute Then Set oRngD = oRng.Duplicate Set oRngDD = oRng.Duplicate .text = "width=" & "[0-9]@ " .MatchWildcards = True If .Execute Then vWd = oRng With oRngD.Find .text = "height=" & "[0-9]@ " .MatchWildcards = True If .Execute Then vHi = oRng End With End If End With oRngDD.Delete 'MsgBox "'" & vWd & "'" & vbCr & "'" & vHi & "'" oRngDD.InsertAfter "<img " & vWd & vHi & "img src=" & Chr(34) & "data:image/jpg;base64," oRngDD.Collapse wdCollapseEnd oRngDD.Select oRngDD.InsertFile FileName:="C:\E_DIME.txt", Range:="", ConfirmConversions:= _ False, link:=False, Attachment:=False 'Here I need to insert the string |Chr(34) & ">"| at the end of the text received from the file. 'Can you help? Thanks! '???Range???.InsertAfter Chr(34) & ">" lbl_Exit: Set oRng = Nothing Set oRngD = Nothing Set oRngDD = Nothing End Sub |
#18
|
|||
|
|||
Hi, RobiNew! Try this (perhaps, not the best method, but it works):
Code:
Sub Test() Dim oRng As range Dim oRngD As range Dim oRngDD As range Dim vWd As Variant Dim vHi As Variant Set oRng = ActiveDocument.range With oRng.Find .ClearFormatting .Replacement.ClearFormatting .text = "\<img width*\>" .Replacement.text = "" .Forward = True .Wrap = wdFindStop .Format = False .MatchWildcards = True If .Execute Then Set oRngD = oRng.Duplicate Set oRngDD = oRng.Duplicate .text = "width=" & "[0-9]@ " .MatchWildcards = True If .Execute Then vWd = oRng With oRngD.Find .text = "height=" & "[0-9]@ " .MatchWildcards = True If .Execute Then vHi = oRngD End With End If End With oRngDD = "<img " & vWd & vHi & "img src=" & Chr(34) & "data:image/jpg;base64," oRngDD.Collapse wdCollapseEnd oRngDD.InsertAfter Chr(34) & ">" oRngDD.Collapse oRngDD.InsertFile filename:="C:\E_DIME.txt", range:="", ConfirmConversions:= _ False, Link:=False, Attachment:=False lbl_Exit: Set oRng = Nothing Set oRngD = Nothing Set oRngDD = Nothing End Sub |
#19
|
|||
|
|||
Hi, Vivka! It does work! And for me it is perfect. Thank you very much indeed!
|
#20
|
|||
|
|||
You are welcome, RobiNew!
|
|
Similar Threads | ||||
Thread | Thread Starter | Forum | Replies | Last Post |
How to hide/delete slides based on keyword in a separate text file based on AND|OR condition? | rupd911 | PowerPoint | 0 | 02-22-2021 08:22 AM |
Auto Save Every Page(s) as a separate file, and name each new file automatically by the first line? | commissarmo | Word VBA | 3 | 03-14-2015 12:53 AM |
Copying a part of a docx file as a separate file | officeboy09 | Word | 6 | 09-26-2014 05:15 PM |
Search Multiple strings and create new word file | subodhgupta | Word | 4 | 05-22-2014 03:34 AM |
update style of all strings available between two specific strings | vikrantkale | Word | 1 | 03-28-2011 06:13 PM |