단어 vba selection.endkey extend

Question

Selection.EndKey Extend : = wdExtend에 문제가 있습니다.

윈도우 7 64 비트, 내 프로젝트 참조 대화 상자에서 확인 다음 참조와 오피스 2013 : 마이크로 소프트 오피스 15.0 개체 • 일반 • OLE 자동화 • 마이크로 소프트 워드 15.0 개체 라이브러리 • 응용 프로그램 에 대해 VBA •

라이브러리

문장 단락 하나 (끝 부분에 마침표 없음)로 구성된 Word 문서를 엽니 다. 내 욕망은 각 단락을 선택하고 미리 정의 된 표의 항목으로 바꾸는 것입니다.

For i = intFirstItemNo To intLastItemNo 
    Selection.EndKey Extend:=wdExtend 
    Selection.TypeText Text:=arlAdItem01(i) 
    Selection.MoveRight unit:=wdCharacter, Count:=1 
Next i 

난 후 가끔 이상 페이지 너비보다하고 다음 물리적 라인에 주위를 감싸는 단락이있을 것이라는 점을 발견했다

여기에 원래의 코드입니다. 이 시점에서 위의 코드는 줄 끝의 단락을 자릅니다 (단위 : = wdLine이 기본값 임).

많은 실험을 거친 후에 나는 열거 형 5 = wdLine & 6 = wdStory 작업 만 발견했습니다. 1 ~ 4 (1 = wdCharacter, 2 = wdWord, 3 = wdSentence, 4 = wdParagraph)는 이전 "런타임 오류 '4120'"메시지를 생성합니다.

는

Selection.EndKey Unit:=wdParagraph, Extend:=wdExtend 

내 질문은, 사람이 코드가 작동에게이의 Selection.EndKey 방법 (워드) 항목에서 작업을 설명 것 방법을 만드는 방법을 알고 않습니다되어

이

내가 사용하고자하는 라인 Office 개발자 센터?

Answer 1

Word VBA에서 버그 인 것으로 보입니다. 2013 년부터 알 이상을 왔으며 2016 년

에서 나는 단락이 마지막 경우 작동하지 않습니다

Selection.MoveDown Unit:=wdParagraph, Count:=1 
Selection.MoveLeft Unit:=wdCharacter, Count:=1 

그것을 해결했다.