word documenten openen dmv hyperlink vervolgens opslaan in andere directory als pdf

[kibus]

Beste kenners

wie kan mij helpen

we hebben een lijst met hyperlinks (3000 regels) allemaal gelinkt aan word doc deze filteren we uit naar behoefte, de overgebleven links zijn dan de gevonden word documenten deze willen we verplaatsen naar een andere map in pdf

nu moeten we ze een voor een openen en vervolgens opslaan in andere map als pdf...

zou mooi zijn als dit automatisch kon

bedankt alvast

edwin

 

[snb]

Hoe filteren wat filteren ?

Als je afziet van hyperlinks (die je nl. helemaal niet nodig hebt)

Sub M_snb()
    sn = Columns(5).SpecialCells(2)
    
    For j = 1 To UBound(sn)
       With GetObject(sn(j, 1))
           .ExportAsFixedFormat replace(sn(j), ".docx", ".pdf"), 17
           .Close 0
        End With
    Next
End Sub

 

[kibus]

dag snb

dank voor je reactie

Ik heb een nieuw voorbeeldje bijgedaan, zou je zoiets met vba kunnen doen?

Edwin