Inserimento automatico delle immagini utilizzando i relativi percorsi di file nel testo


1

Ho un documento di testo in cui i percorsi delle immagini sono scritti in modo esplicito come:

Lorem ipsum dolor sit amet, consectetur adipiscing elit. 

c:\Users\userx\Documents\img_000180.jpg

Sto cercando alcuni script macro che cercheranno questi percorsi di file nel documento e inseriranno queste immagini nel documento di Word.

Conosci una sceneggiatura del genere?

Risposte:


2

Ho registrato una macro e l'ho modificata un po 'per renderla generica. Fa quello che mi serve. Ecco la sceneggiatura:

Sub replace_path_with_image()
'
' replace_path_with_image Macro
'
'
    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = "c:\users"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    Selection.EscapeKey
    Selection.EndKey Unit:=wdLine, Extend:=wdExtend
    Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
    Dim Sel As Selection
    Set Sel = Application.Selection
    Dim FilePath As String
    If Sel.Type <> wdSelectionIP Then
        FilePath = Sel.Text
    End If
    Selection.Cut
    Selection.InlineShapes.AddPicture FileName:= _
        FilePath _
        , LinkToFile:=False, SaveWithDocument:=True
    Selection.MoveRight Unit:=wdCharacter, Count:=1
End Sub
Utilizzando il nostro sito, riconosci di aver letto e compreso le nostre Informativa sui cookie e Informativa sulla privacy.
Licensed under cc by-sa 3.0 with attribution required.