vba : Excel의 Word 스크립트에서 오프셋이 작동하지 않습니다.

Question

Excel 문서를 열어야하는 Word 문서가 있고 범위의 첫 번째 빈 셀을 찾고 정보가있는 셀을 채우기 시작합니다. 이제는 Offset을 사용하고 싶습니다만, 어떤 이유로 Offset에 오류가 있습니다. 나는이 코드를 실행하면, 그것은 ".Offset"표시하고 메시지를 표시

Sub ExcelDoc() 

Dim XLapp As Object 
Dim objExcelDoc As Object 
Dim objOverzicht As Object 
Dim c As Range 

'Set objOverzicht 
Set objOverzicht = ActiveDocument 

'Set XLapp and objExcelDoc 
Set XLapp = CreateObject("Excel.Application") 
XLapp.Visible = False 
Set objExcelDoc = XLapp.Documents.Open("C:\Document.xlsm") 

'Set c 
Set c = objExcelDoc.Sheets("Overzicht").Range("B3") 
    Do 
    Set c = c.Offset(1, 0) 
    Loop Until c = "" 

"컴파일 오류 : 메서드 나 데이터 구성원을 찾을 수 없습니다"여기에 코드의 관련 부분이다. 여기서 내가 뭘 잘못하고 있니?

미리 살펴 주셔서 감사합니다.

Answer 1

Word 자체에 "Range"개체가 있으므로 Dim c As Range을 선언하면 Offset 속성이없는 Word.Range 개체로 만들어집니다. Dim c as Variant

석사 엑셀 참조를 확인하고 그것으로 변수를 선언 :

1. 그냥 변형으로 C를 선언

   2.1 VBA 편집기에서 이동 그래서 당신은 문제를 해결하는 두 가지 방법이 있습니다 도구 -> 참조 및 "Microsoft Excel에서 XX.X 개체 라이브러리"참조

   2.2 선언 변수를 설정 : Dim c as Excel.Range