단어 파일의 특정 이미지를 텍스트로 바꾸기

내 단어 파일의 여러 단락의 시작 부분에있는 특정 이미지를 수동으로 삭제하고 "Picture_replaced"텍스트로 바꾸고 있습니다. 누군가 위의 작업을 자동으로 수행하도록 VBA 스크립트를 도와주세요.단어 파일의 특정 이미지를 텍스트로 바꾸기

참고 : 이미지/그림은 항상 단락 시작 부분에 있습니다. 교체 할 동일한 이미지가 포함 된 여러 줄이 있습니다. 모든 라인이이 특별한 이미지를 가지고있는 것은 아닙니다. 파일에는 다른 이미지/그림이 있지만 터치하면 안됩니다.

출처

2014-03-12 user2618115

다음 매크로는 펭귄 이미지의 모든 인스턴스를 대체합니다.

Public Sub removePenguins() 

    Dim objPic As InlineShape 
    For Each objPic In ActiveDocument.InlineShapes 
     If objPic.AlternativeText = "Penguins.jpg" Then 

      objPic.Select 

      Selection.Delete Unit:=wdCharacter, Count:=1 
      Selection.TypeText Text:="[Image replaced] " 


     End If 
    Next objPic 
End Sub

대체 텍스트를 이미지의 대체 텍스트로 바꿉니다.

출처

2014-03-12 11:07:39 Aidan

빠른 답장을 보내 주셔서 감사합니다. 이미지와 관련된 AlternativeText를 찾는 방법을 설명해 주시겠습니까? 그것은 이미지의 특성입니까? 나는 바꾸고 싶은 이미지에 height = 0.34 '와 width = 0.34'를 찾았습니다. – user2618115

오른쪽 클릭 -> 그림 그림 -> Alt Txt 탭에 세부 정보가 없습니다. – user2618115

매크로를 디버깅하고 objPic 객체를 검사하여 대체 텍스트를 받았습니다. 기본적으로 파일 이름 인 것 같습니다. "if objPic ..."에 중단 점을 넣고 objPic의 값을 보면 그 값이 무엇인지를 알 수 있습니다. – Aidan

단어 파일의 특정 이미지를 텍스트로 바꾸기

답변

관련 문제