Step18：AMPのamp-imgにAlt属性とlayoutを追加しimg srcと置換える｜Excel VBA

元のimg srcにAlt属性があれば、amp-imgに移します。さらにlayout=responsiveを追加し、最後にimg srcをReplaceを使用しamp-imgに置換えれば出来上がりです。

VBAでimg srcからAlt部分を取り出す

追加したVBAです。


・alt=をinstrで検索します。
・見つかればalt部分全体を取り出します。
・layout=responsiveとaltを追加します。
・見つからなければlayout=responsiveだけを追加します。

これでamp-img全体が出来上がりました。
title属性などを使用している場合は、上と同様の方法で取り出します。

            n1 = InStr(n1, sUtfBuf, "alt=", vbTextCompare)
            If n1 > 0 Then
                n2 = InStr(n1 + 7, sUtfBuf, """", vbTextCompare)
                s2 = Mid(sUtfBuf, n1, n2 - n1 + 1)
                stag = stag & " layout=""responsive"" " & s2 & ">"
            Else
                stag = stag & " layout=""responsive"">"
            End If
            Debug.Print stag

VBAでimg srcをReplaceを使用しamp-imgに置換える

文字列置換のVBAです。
やり方は、これまでの削除するHTMLや変更するHTMLと同じです。


変更前のAltがあるmg srcです。


変更後のamp-imgです。
width・Height・layoutが追加され、Altが移されています。


変更前のAltがないmg srcです。


変更後のamp-imgです。