Word 필드 삭제 Word 2010에서 작동하는 Word 2013에서 VBA가 작동하지 않습니다.

Question

Word 문서에서 일부 정보를 가져 오기 위해 Excel에서 실행되는 VBA 매크로가 있습니다. 구문 분석을 시작하기 전에 목차 및 기타 필드를 제거하고 싶습니다. 아래 코드는 Office 2010에서 작동하지만 Office 2013에서는 작동하지 않습니다. "개체 필드에서 메서드 삭제가 실패했습니다" 오류 메시지가 표시되지만 이유를 이해할 수 없습니다.

팁 주셔서 감사합니다! 대신 인덱스를 삭제 시도에

보

Sub ImportBOD() 

    Dim wdFileName As Variant 
    Dim WordApp As Object 

    Dim wdDoc As Word.Document 

    Dim fld As Word.Field 


    wdFileName = Application.GetOpenFilename("Word files (*.docx),*.docx", ,"Choose the Word document") 

    If wdFileName = False Then Exit Sub '(user cancelled import file browser) 

    Set WordApp = CreateObject("Word.Application") 

    Set wdDoc = WordApp.Documents.Open(wdFileName, ReadOnly:=True) 

    'Get rid of table of contents and other fields 
    For Each fld In wdDoc.ActiveWindow.Document.Fields 
     fld.Delete 
    Next 


    wdDoc.Close SaveChanges:=wdDoNotSaveChanges 

End Sub 

Answer 1

가 있나요?

For i = 1 to wdDoc.ActiveWindow.Document.Fields.Count 
    wdDoc.ActiveWindow.Document.Fields.Item(i).Delete 
Next i 

나는이 경우 fld에 활성 개체를 제거 루프에 성공하고 VBA 오류 메시지가 특정 미만 항상 아니라는 것을 가끔 발견했다. 또한 SEQ (Sequence Fields)와 같고 XE (IndexEntry Fields)는 Unlink ed가 될 수 없습니다. 이는 Delete이 실패 할 수도 있음을 나타냅니다. Microsoft가이를 지정하지는 않았지만.

편집

처음으로 컬렉션의 마지막 항목에서 이동해야 삭제할 때 처음

For i = wdDoc.ActiveWindow.Document.Fields.Count To 1 Step -1 
    wdDoc.ActiveWindow.Document.Fields.Item(i).Delete 
Next i