Excel로 Word 테이블의 VBA 가져 오기 페이지 번호

Question

내 Word 문서에서 다른 페이지에 여러 테이블이 있습니다. Macro to export MS Word tables to Excel sheets에서 찾은 샘플 코드로 이미 수행 된 Excel 내에서 표를 가져와야합니다.

그러나 (Word에서) 표의 페이지 번호를 Excel로 가져 와서 시트 이름으로 설정하려고하지만 검색 시간이 지나면 인터넷에서 아무것도 찾을 수 없습니다.

Word에서 Word의 테이블 번호를 Excel로 가져 오는 방법은 무엇입니까?

나는 그것이 우리가 명령

Activesheet.Name="insert_page_number" 

을 사용하지만 어떻게 우리가 우리가 Excel로 말씀에서 가져온 테이블의 페이지 번호를 가져 않는 시트 이름으로 설정 해야할지?

Answer 1

Range.Information(wdActiveEndPageNumber)을 사용하여 페이지 번호를 읽을 수 있습니다. 이 도움이 될 수

Dim pageNumber as Integer 
Dim wdRange as Range 
With .tables(TableNo) 
    'copy cell contents from Word table cells to Excel cells 
    For iRow = 1 To .Rows.Count 
     For iCol = 1 To .Columns.Count 
      Cells(iRow, iCol) = WorksheetFunction.Clean(.cell(iRow, iCol).Range.Text) 
     Next iCol 
    Next iRow 

    ' get the page number of the first paragraph in the table 
    pageNumber = .Range.Paragraphs(1).Range.Information(wdActiveEndPageNumber) 

    ' write the page number below the table 
    Cells(iRow + 1, 1) = "Page " & pageNumber 
End With