Office:画像へのパス
ハロー
Word 2007ドキュメントのフォルダを持っています.文書は、同じフォルダに含まれるいくつかの画像で説明されています.ドキュメントは、それらがフォルダ内にある場所(つまり、それらのパス 'に依存する)の残りの画像に「依存」しますか.
それらを文書に表示するために、またはドキュメントに表示されている間にフォルダから画像を削除できますか?
ありがとうございました.
返信リスト(回答:8)
画像が挿入されたかどうかによって異なります ドキュメントに挿入するか、ドキュメントにリンクしました.
画像がどのように挿入されたかわからない場合は、画像を選択してから、次のコードでマクロを実行します.
If InStr(Selection.Range.WordOpenXML、 "External")>0 Then
InStr(Selection.Range.WordOpenXML、 "media")= 0の場合
MsgBox "画像はファイルにリンクされています."
それ以外の場合
MsgBox "画像が挿入されました
ファイルにリンクされています."
End If
Else
MsgBox "画像が挿入されました
ファイルに追加します."
EndIf
表示されるメッセージボックスに、画像がどのように挿入されたかが示されます.「挿入された」または「挿入された」場合
リンクされている」場合、画像がフォルダから削除され、ドキュメントのフィールドが更新されると、「The
リンクされた画像は表示できません.ファイルが移動、名前変更、または削除された可能性があります.リンクが正しいファイルと場所を指していることを確認してください.」
画像が選択された状態でドキュメントにリンクされている画像のパスとファイル名を取得するには、次のコードを含むマクロを実行します.
Dim strXML As String
Dim Target As Document
Dim rng As Range
Dim strPathFilename As String
strXML=Selection.Range.WordOpenXML
Set Target=Documents.Add
Target.Range.Text=strXML
Set rng=Target.Range.Paragraphs(3).Range
rng.Start=rng.Start + InStr(rng、 "External")
With rng
.End=.Start
.MoveStartUntil Cset:= "/"、Count:= wdBackward
.End=.Start
.MoveEndUntil Cset:= Chr(34)、Count:= wdForward
strPathFilename=.Text
End With
Target.Close wdDoNotSaveChanges
Set Target=Nothing
MsgBox "イメージのパス\ファイル名は次のとおりです:"&vbCr&vbCr&strPathFilename
リンクとドキュメントは、ドラマなしで別のコンピューターに移動できます.それを行わなくても、同じコンピューター上の別のドライバ/フォルダーにドキュメントを移動でき、リンクは引き続き機能します.
応答3# ->にスキップ5 #Bluenosファイルの下には何も表示できませんでした情報(情報がありませんでした)ので、Plungeを取り、単語DOCXをフラッシュドライバに貼り付けました.
それを開くと、画像がまだそこにあるので、私はおそらく彼らの元のフォルダからそれらをすべて削除することができます(フラッシュドライバ段階の前に).その右?
応答5# ->にスキップ6 #macropo[ファイル]|[情報](Word2007では[Officeボタン]|[情報])の下にリンクに関する情報が何も表示されない場合、ドキュメントにはリンクがありません.逆に、別のドライバにコピーしたときに画像が表示されるという単なる事実は重要ではありません.
元の場所に移動します.別のコンピューターでドキュメントを開いたとき(または同じコンピューターで画像を削除した後)にのみ、画像がリンクされている場合に違いが見られる場合があります.ただし、その場合でも、Wordには「挿入とリンク」オプションがあるため、
リンク画像は、ソースにアクセスできない場合でも表示されたままになります.√