Start <= oldstart Then Exit Do 'if looped around to first section (i.e. GoTo What:=wdGoToHeading, which:=wdGoToNext 'go to next heading Information(wdActiveEndAdjustedPageNumber) 'prints title and page to console Title = Replace(, Chr(13), "") 'gets title and remove trailing newlineĭebug.Print Title, "pg. GoTo What:=wdGoToHeading, which:=wdGoToFirst 'go to first heading Type = wdPrintView 'avoids crashing if opens on read view Set wrdDoc = ("C:\sample.docx",, True, False,, ,, ,, ,, True) 'open file Set wrdApp = CreateObject("Word.Application") 'open word I am sure you can adapt the concept to your code. The folowing example prints all the sections headings in a document to the immediate window. One way to get section headings without creating a TOC is by iterating with the selection object, using Selection.Goto.
MsgBox ("Please Accept Delete Operation") MsgBox ("Your file is saved as " & SaveName) SaveName = InputBox("What Do You Want to Save the File As:") RTM.Cells(mRow, 8).Interior.ColorIndex = 44
RTM.Cells(mRow, 7).Interior.ColorIndex = 44 RTM.Cells(mRow, 9).Interior.ColorIndex = 44 RTM.Cells(mRow, 3).Value = Temp.Cells(nRow, 5) RTM.Cells(mRow, 2).Value = Temp.Cells(nRow, 4) RTM.Cells(mRow, 1).Value = Temp.Cells(nRow, 1) If Temp.Cells(nRow, 1).Value = "Position" Or Temp.Cells(nRow, 1).Value = "" Then Sheets("Temp").Cells(jRow, iCol) = WorksheetFunction.Clean(.Cell(iRow, iCol).Range.Text) 'copy cell contents from Word table cells to Excel cells MsgBox "This document contains no tables", _ Set wdDoc = GetObject(wdFileName) 'open Word file If wdFileName = False Then Exit Sub '(user cancelled import file browser) "Browse for file containing table to be imported") WdFileName = Application.GetOpenFilename("Word files (*.docx),*.docx",, _ MsgBox ("This Macro Might Take a While, wait until next Message")ĭim TableNo As Integer 'table number in Wordĭim iCol As Integer 'column index in Excel Is there a method using Excel VBA to take those headings from word doc to excel? I have searched for this but everybody suggest using paste special however I want it automated since the data from TOC is sorted into a different table in Excel afterwards. I am looking for a way to get the table of contents (not created but headings available) from word and store the chapter numbers and headings on Excel.
0 kommentar(er)
