독일어에서 영어로 Word 2010 문서 레이블을 변환 하시겠습니까?

저의 독일 동료가 저에게 Word 2010에서 편집 할 수있는 Word 문서를 보냈습니다. 그림에 레이블을 붙이려 고 할 때 표시되는 레이블 옵션은 다음과 같습니다.

• 애 빌둥
• 포멜
• 태벨

영어로 옵션을 제시하도록 Word에 지시하려면 어떻게합니까?

새 문서를 시작하면 옵션이 영어로 표시되므로 시스템 전체에 문제가 있다고 생각하지 않습니다. 아래는 검토 탭 → 언어 → 언어 환경 설정 ... 에서 얻은 언어 환경 설정의 스크린 샷입니다 .

나에게 아주 건강 해 보인다. 이 문제를 어떻게 해결할 수 있습니까?

거기입니다 관련 질문은 ,하지만 난 그 질문에 OPS는 체계적 문제가 반면 난 단지, 하나 개의 문서에 영향을하고 있습니다로 나에게 적용 생각하지 않습니다.

문서를 연 상태에서 VB 편집기로 이동하여 다음 Sub를 작성하십시오. Normal 템플릿을 선택하고 Insert-> Module을 사용하여 코드를 붙여 넣을 수있는 위치를 만들어야합니다. 원하는 언어 / 버전 ID로 대체하십시오. wdEnglishUS가 아닌 경우 "= wdEnglishUS"를 삭제하고 다시 입력 할 수 있습니다. 을 입력하면 =VB 편집기가 목록을 표시해야합니다.

Sub changeLanguage()
    ActiveDocument.Content.LanguageID = wdEnglishUS
End Sub

F5를 눌러 코드를 실행하십시오. 새 캡션을 원하는 영어 캡션으로 전환해야합니다. 문제는 그러한 변경이 기존 캡션을 수정하지 않는다는 것입니다. 이를 위해서는 찾기 / 바꾸기를해야합니다. 캡션 이름은 여러 곳에서 사용됩니다.

• 캡션 자체
• 캡션 시퀀스 번호를 삽입하는 데 사용되는 {SEQ} 필드 찾기 / 바꾸기를하기 전에 Alt-F9를 사용하여 이러한 필드 코드를 표시하십시오
• 그림 목록을 삽입하는 데 사용되는 문서의 {TOC} 필드

또한 ... 기본 편집 언어를 원하는 언어로 변경 한 경우에도 "위 / 아래"를 지정하면 필드 결과의 텍스트가 업데이트되지 않습니다. 다음 VBA는 Word에서 해당 결과를 수정하도록하기 위해 모든 REF 필드를 바꾸려고합니다. 많이 테스트되지 않았습니다.

Sub replaceRefFields()
Dim f As Word.Field
Dim l As Long
Dim r As Word.Range
Dim s As String
With ActiveDocument
  For l = .Fields.Count To 1 Step -1
    With .Fields(l)
      If .Type = wdFieldRef Then
        Set r = .Result
        s = .Code
        .Delete
        r.Fields.Add r, wdFieldEmpty, s, False
        Set r = Nothing
      End If
    End With
  Next
End With
End Sub