Note: The other languages of the website are Google-translated. Back to English

Wordのドキュメントからすべての写真を削除するにはどうすればよいですか?

すべての画像を削除し、ドキュメント内のすべての書式を変更しないようにする場合は、どうすればよいですか? このチュートリアルでは、ドキュメントの書式を変更せずにすべての画像を削除するためのトリッキーなことをいくつか紹介します。

検索と置換機能によってドキュメントからすべての写真を削除します
VBAコードを使用してドキュメントからすべての写真を削除します
Kutools for Wordを使用して、ドキュメントからすべての写真を簡単に削除できます


検索と置換機能によってドキュメントからすべての写真を削除します

検索および置換 関数は、値の変換または削除を簡単に行う方法を提供するため、ドキュメントからすべての画像を削除するためにも使用できます。

ステップ1:クリック ホーム > 交換します を開く 検索および置換 窓;

ステップ2: 検索および置換 ウィンドウをクリックします。 その他 もっと表示するボタン 検索 オプションをクリックし、 特別 > グラフィック、最後にをクリックします すべて置換 ボタン。 スクリーンショットを参照してください:

注意:入力することもできます ^g見つける ボックスを直接、ボックスとの置き換えを空のままにして、[ すべて置換 ドキュメントからすべての写真を削除するボタン。

以下のスクリーンショットに示すように、現在のドキュメントのすべての画像がすぐに削除されます。


Kutools for Wordを使用すると、ドキュメントからすべての写真を簡単に削除できます。

世界 写真を削除する の有用性 Kutools for Word 必要に応じて、選択した範囲またはドキュメント全体からすべての画像をすばやく削除するのに役立ちます。 以下のスクリーンショットに示す操作を参照してください。 ダウンロードして今すぐ試してみてください! (60-日フリートレイル)


VBAコードを使用してドキュメントからすべての写真を削除します

VBAコードを使用すると、ドキュメントからすべての画像を削除するもうXNUMXつの簡単な方法があります。 次のようにVBAコードを使用して、ドキュメントからすべての画像を削除できます。

ステップ1: 他の + F11 キーを押して アプリケーション用 Microsoft Visual Basic 窓;

ステップ2:クリック インセット > モジュール、次のVBAコードをコピーしてに貼り付けます モジュール 窓;

ステップ3: ラン ボタンを押してVBAを適用します。

VBAコード:ドキュメントからすべての画像を削除します:

Sub DitchPictures()
Dim objPic As InlineShape
For Each objPic In ActiveDocument.InlineShapes
objPic.Delete
Next objPic
End Sub

以下のスクリーンショットに示すように、現在のドキュメントのすべての画像がすぐに削除されます。


Kutools forWordを使用してドキュメントからすべての写真を削除します

Kutools for Word ドキュメントからすべての画像を削除するための最も便利な方法を提供します。 ドキュメント全体からすべての画像を削除したり、ドキュメントの選択した部分からすべての画像を削除したりできます。

Kutools for Word :100以上の便利なWordアドインで、 制限なしで自由に試すことができます 60 日々.

範囲から写真を削除します。

1.削除する画像が含まれている範囲を選択し、をクリックしてこのユーティリティを適用してください クツール > その他 > 写真を削除する それらを一度に削除します。 スクリーンショットを参照してください:

ドキュメント全体から写真を削除します。

1.をクリックしてユーティリティを有効にするだけです クツール > その他 > 写真を削除する ドキュメントのどの部分も選択せずに。 次に、 Kutools for Word すべての画像を削除することを通知するダイアログボックスがポップアップ表示されます。 クリック あり 削除を開始します。

以下のスクリーンショットに示すように、現在のドキュメントのすべての画像がすぐに削除されます。

このユーティリティの無料トライアルをご希望の場合は、 ソフトウェアを無料でダウンロード まず、上記の手順に従って操作を適用します。



推奨される単語生産性ツール

 

Word用のKutools - Word用の100以上の高度な機能で、50%の時間を節約

  • 複雑で繰り返される操作は、数秒でXNUMX回の処理で実行できます。
  • 複数の画像をフォルダ間でWord文書に一度に挿入します。
  • フォルダ間で複数のWordファイルをマージして、希望の順序でXNUMXつに結合します。
  • 見出し、セクション区切り、またはその他の基準に従って、現在のドキュメントを個別のドキュメントに分割します。
  • DocとDocx、DocxとPDFの間でファイルを変換し、一般的な変換と選択のためのツールのコレクションなど...
コメントを並べ替える
コメント (5)
まだ評価はありません。 最初に評価してください!
このコメントは、サイトのモデレーターによって最小化されました
コードはインラインシェイプのみを削除します。コレクションを使用するときに問題が発生することがあるため、次のことを考慮してください。Do While ActiveDocument.Shapes.count> 0 ActiveDocument.Shapes(1).Delete Loop Do While ActiveDocument.InlineShapes.count> 0 ActiveDocument.InlineShapes( 1).Delete Loopファイルをテキストのみに変更するときに、これらを使用します。 また、すべてのテーブルをタブで削除されたDo While ActiveDocument.Tables.count> 0 ActiveDocument.Tables(1).ConvertToText Separator:= wdSeparateByTabs Loopに変換します。dowhileループで問題は発生していませんが、コレクションから削除するときに問題が発生することがあります。私は遊んでいます。代わりに、.countを使用してアイテムの合計を取得し、次のforをステップ-1で使用して、それらを逆方向に処理します。 ちなみに、私はMacで作業していますが、オブジェクトがおかしな動作をすることがあり、一部のWindowsVBAオブジェクトも使用できません。
このコメントは、サイトのモデレーターによって最小化されました
この方法をどうもありがとうございました-ドキュメントから写真を撮る作業の時間を節約できました!! ナンシー
このコメントは、サイトのモデレーターによって最小化されました
うわー、はい、ありがとうございます。 他のいくつかの以前の試合は機能しませんでした。
このコメントは、サイトのモデレーターによって最小化されました
わかりませんが、一部のグラフィックが置換ボタンでキャプチャされていません。
このコメントは、サイトのモデレーターによって最小化されました
検索と置換>特別>グラフィックオプションについての素晴らしいリマインダー!

たくさんの仕事を節約できました!
ここにはまだコメントが投稿されていません
あなたのコメントを残す
ゲストとして投稿
×
この投稿を評価:
0   文字
推奨される場所

フォローする

著作権©の2009 - WWW。extendoffice.com。 | | 全著作権所有。 搭載 ExtendOffice。 | サイトマップ
MicrosoftおよびOfficeのロゴは、米国MicrosoftCorporationの米国およびその他の国における商標または登録商標です。
SectigoSSLで保護