Goal: Step 1. Use a PowerPoint presentation during a seminar that allows the presenter to click on text fields and fill in information while still in "slideshow" view. Step 2. Copy (in any way) the entered information to a word document.
Currently one the slide in question I have a table in powerpoint with msotextboxes overlayed over each cell (since you can't seem to place it IN a cell.
I am using the following code (snippet) to copy the table
Dim aSlide As Slide, MyDoc As New Word.Document, MyRange As Word.Range
Dim aTable As Table, TablesCount As Integer, Dim i As Word.Paragraph
...
Case msoTable
aShape.Copy
MyRange.Paste
TablesCount = .Tables.Count
With .Tables(TablesCount)
.PreferredWidthType = wdPreferredWidthPercent
.PreferredWidth = 100
.Range.Font.Size = 11
End With
.Content.InsertAfter Chr(13)
End Select
Which works fine, however I cannot get the msotextboxes to copy over in a similar fashion. Sometimes when playing around I can get them to copy but they don't overlay correctly onto the table. This may be because frankly I don't fully understand the "range" function (i pieced the above code together from online snippets)
If anyone has any idea how I can do this or can think of a better way of doing the same thing please let me know.
Currently one the slide in question I have a table in powerpoint with msotextboxes overlayed over each cell (since you can't seem to place it IN a cell.
I am using the following code (snippet) to copy the table
Dim aSlide As Slide, MyDoc As New Word.Document, MyRange As Word.Range
Dim aTable As Table, TablesCount As Integer, Dim i As Word.Paragraph
...
Case msoTable
aShape.Copy
MyRange.Paste
TablesCount = .Tables.Count
With .Tables(TablesCount)
.PreferredWidthType = wdPreferredWidthPercent
.PreferredWidth = 100
.Range.Font.Size = 11
End With
.Content.InsertAfter Chr(13)
End Select
Which works fine, however I cannot get the msotextboxes to copy over in a similar fashion. Sometimes when playing around I can get them to copy but they don't overlay correctly onto the table. This may be because frankly I don't fully understand the "range" function (i pieced the above code together from online snippets)
If anyone has any idea how I can do this or can think of a better way of doing the same thing please let me know.