VBA ExcelにWordテーブルのページ番号をインポート

Question

私のWord文書では、私は別のページにある複数のテーブルを持っています。 私はMacro to export MS Word tables to Excel sheetsから見つけたサンプルコードで既に行われているExcel内のテーブルをインポートする必要があります。

しかし、私はExcelにテーブルのページ番号をインポートしてシート名として設定しようとしていますが、何時間も検索しても何もインターネットで見つけられません。

Wordのテーブルのページ番号をExcelにインポートするにはどうすればよいですか？

私たちは、コマンドに

Activesheet.Name="insert_page_number" 

を使用しますが、どのように我々は我々がExcelにWordからインポートしたテーブルのページ番号をインポートするシート名として設定することを知っていますか？

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