vba - Can excel macro loop through each page of a Word doc to get each table? -


I have a word dock that contains several tables.

I have to export the tables to Excel and also to add the same word page number along with a column next to each line

I want to add my word file to my Excel file I am able to access with. This Excel file will be used to create an index for my Word Dock. I want to loop through each page in the word, then I would like to loop within the page to copy through Excel to each table, in this way I'll know which page I am on my page and get the page number .

So I would like to do something like this: 

  Each table on this page copies Excel into Excel and also the word page number at the end of each row

I have tried to write a macro but it can not get a table within a page: 

 set  wdDoc = GetObject ( WdFileName) 'Open Word file with wdDoc pages, with Tot = wdDoc.Pages.Count tableTot = wdDoc.Tables.Count resultRow = 4 tableStart = 1 for tableTot Copy Cell Cells of Excel Cells from the Word Table Cells to the IRO = 1 .Rows.Count iCol = 1 to 2 requires 'First 2 Columns to be copied in Word'. This word page number Does not receive TblPage = .cell (iRow, iCol). Information (3) 'Copy Cells From Excel to Excel Cells (Result, iCol) = Worksheet Function. Clean (.cell (iRow, iCol) .change test) insert the word page number next to the row in the Excel cell (as a result, iCol). Offset (0, 1). Value = TblPage Next iCol results = result rou + 1 next iRow End result with Row = resultRow + 1 next tableStart End with

However, when I am inside the page loop, Does not appear to reach the page I have tried to use a message box to show the number of tables in that page, but it always shows 0.

Is it possible to access the tables within a page?

Any thank you very much, thanks.

Edit: I have edited the code above and I'm getting closer, only one row with which I'm having trouble is: 

  TblPage = .cell (iRow, iCol). Notice (3)

I is trying to use that line to get the page number from Word, but this is going to be 0 for the page number. Again, I am writing this code in Excel.

Do anyone know the proper way to get the page number from Word?

Thanks again

Your suggested logic is what you need in fact, the best way to loop through the tables And check that which page (end of table) is where you need logic.

GetPageNumberForTable () as TBL table TblPage as integer for each TBL in ActiveDocument.Tables' it requires TblPage = TBL.Range.Information (value) WdActiveEndPageNumber ) 'Test-Check Value' in Instant Window Debug Print TBPs 'Your Copy Code Here' ..... Next End All

Comments

Post a Comment

Popular posts from this blog

python - Overriding the save method in Django ModelForm -

I'm having trouble overriding a ModelForm save method. I get this error I'm: Exception type: TypeErier Exception Value: Save () found an unexpected keyword argument 'committed' My intentions include a form 3 fields Submit several values ​​for, then create an object for each combination of those areas, and to save each object file models.py class collarsult type (models.Model): id = model. AutoField (db_column = 'icontact_result_code_type_id', primary_key = true) callResult = models.ForeignKey ( 'CallResult', db_column = 'icontact_result_code_id') campaign = models.ForeignKey ( 'campaign', db_column = 'icampaign_id') CALLTYPE = models.ForeignKey ( 'CALLTYPE', db_column = 'icall_type_id') agent = models.BooleanField (db_column = 'bagent', default = true) teamLeader = models.BooleanField (db_column = 'bTeamLeader', default = true) active = models.BooleanField (db_column = Django.form...
Read more

html - CSS autoheight, but fit content to height of div -

I have a div in which there are three children- div in the left and middle div: float: left while true: float: true because it is my layout Actually will spoil, I've used ClearFix Hack: .cf {zoom: 1; }. Cf: First,. Cf: {content: ""; Display: Table; }. Cf: After {clear: both; } It still works, but I want to be the right div an indicator. So it should fill 100% of the parent unit of height. How can I complete this? PS is the full code: & Lt; / Div & gt; & Lt; Div class = "mobile_content" & gt; & Lt; H5 & gt; {{Data.titel}} & lt; / H5> & Lt; Table & gt; & Lt; TR & gt; & Lt; Th & gt; Komponist: & lt; / Th & gt; & Lt; TD & gt; {{Data.komponist}} & lt; / TD & gt; & Lt; / TR & gt; & Lt; TR & gt; & Lt; Th & gt; Instrument: & lt; / Th & gt; & Lt; TD & gt; {{Data.instrumente}} & lt; / TD & gt; & Lt; / TR & gt;...
Read more

qt - How to prevent QAudioInput from automatically boosting the master volume to 100%? -

I have been trying to use Qt5 multimedia to record audio with QAudioInput, however, when I see If QAudioInput is started, it increases the master volume of my sound device to 100%. How can I prevent QAudioInput from changing the master volume? My current development platform is Linux with PalsAdio (with flat audio disabled). How can I use QAudioInput : QAudioDeviceInfo device_info = QAudioDeviceInfo :: defaultInputDevice (); QAudio format format; Format.setSampleRate (44100); Format.setChannelCount (1); Format.setSampleSize (16); Format.setCodec ("Audio / PCM"); Format.setSampleType (QAudioFormat :: SignedInt); Format.setByteOrder (QAudioFormat :: LittleEndian); Std :: cout & lt; & Lt; Device_info.deviceName (). ToUtf8 (). ConstData () & lt; & Lt; Std :: endl; QAudioInput * default_device = new QAudioInput (device_info, format); QIODevice * default_io_device = default_device-> Start (); a QAudioInput.setVolume () method is not you I ...
Read more