Quantcast
Channel: Active questions tagged excel - Stack Overflow
Viewing all articles
Browse latest Browse all 88835

Word/Excel VBA: Get Value and Position of Word Checkbox in Table

$
0
0

I have a Word file with approximately 10 pages and 20 tables. Some of these tables have checkboxes. I want to copy these tables into an Excel file.

Just to let you know I´m like a vba beginner.

But the following code is good enough to copy all tables from my word-file into my Excel-file:

Sub Import()
Option Explicit

Dim wb As Workbook
Dim sh As Worksheet
Dim sheet As Worksheet
Dim lzeile As Integer
Set wb = ActiveWorkbook
Set sh = wb.ActiveSheet
Set sheet = wb.Worksheets("Tabelle1")

Dim Btxt As Object
Set Btxt = CreateObject("Word.Application")

Btxt.Visible = True
Btxt.documents.Open "C:\Users\*.doc"'*=path
lzeile = 0

For i = 1 To 20
    Btxt.ActiveDocument.Tables(i).Range.Copy

    Application.Goto sheet.Cells(1 + lzeile, 1)
    sheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:=False

    lzeile = sheet.Cells(Rows.Count, 1).End(xlUp).Row
    lzeile = lzeile + 1
    sheet.Cells(lzeile, 1) = "Tabelle"& i
Next i

Btxt.Quit
Set Btxt = Nothing
Set wb = Nothing
Set sh = Nothing

End Sub

It does not copy checkboxes or the value (0 = not checked / 1 = checked) of the checkbox. I can write the value of a checkbox into a cell in my excel sheet with this line:

sheet.Cells(j, 10) = Btxt.ActiveDocument.Tables(i).FormFields.Item("Kontrollkästchen"& j).Result

With a loop j over all "Kontrollkästchen" (german translation of contentcontrol or formfield item) so basically the name of all formfield items in this word-file. But how can I get the position of these formfield items or identify which formfield item / ContentControl is in which table?

I tried to go through all rows and columns in each table because none of them are larger than 10x10. But I can´t find a way to check if a checkbox is maybe in table 3 on column 5 row 5 and then read the name of this checkbox to a safe the value (0 / 1) in the excel cell on the same position in my copied table.

Some help would be very appreciated!


Viewing all articles
Browse latest Browse all 88835


<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>