Wordにて、画像中の代替テキストをマクロで自動除去したい


Officeに不具合、画像の「代替テキスト」に保存場所が記録、情報漏えいの可能性 - インターネット安全活用 一灯塾
http://lifesecurity.hatenablog.com/entry/2015/08/29/205139

上記の問題を御存知な方は多いと思います。
Wordにて、画像中の代替テキストを自動除去するマクロを探しております。以下のページに書かれたマクロを、Wordに移植できれば良いかと思います、

代替テキストを一括削除するPowerPointマクロ:パワーポイントマクロ・PowerPoint VBAの使い方-Shape・図形
http://www.relief.jp/itnote/archives/powerpoint-macro-remove-alternative-text.php

回答の条件
  • 1人5回まで
  • 13歳以上
  • 登録:2016/07/21 15:25:34
  • 終了:2016/07/21 20:48:00

ベストアンサー

id:a-kuma3 No.1

a-kuma3回答回数4325ベストアンサー獲得回数17732016/07/21 17:19:42

こんな感じで。

Sub アクティブドキュメントの代替テキストを削除する()
    For Each shp In ActiveDocument.InlineShapes
        With shp
            .AlternativeText = ""
        End With
    Next
End Sub
id:mue

御回答のソースのままでは、潰すべきプロパティがまだ有る様です。
しかし、今後のマクロ改良は自力でできそうなので、本質問は一旦閉じ様と思います。

御回答を、深く感謝致します。

2016/07/21 20:47:49

コメントはまだありません

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません