主题：[求助]请版主相助：网页div链接数据表

前期的帖子：“div模拟textarea文本域 ”，我在两位版主特别是“有点色”版主的帮助下，学习了一些HTML+css的相关知识，并对版主写的代码进行了多次测试。

现在，我把定位div的代码直接放入了1.html文件里，希望版主按现在的方式帮助完善一下div与当前单元格同步链接的代码。谢谢！

原先的代码均在窗口中，没删，仅注释掉了。

此主题相关图片如下：360截图20170616130927062.jpg

附件：

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:div同步数据表.rar

多谢版主！

版主，遇到一个问题，如图：
选定单元格进行分段，在段落之间会多出一个空行；
再次分段，然后变更单元格，再返回原单元格，像这样交替一次空行会增加一个。

此主题相关图片如下：gif.gif

附件中是原代码未改动 

附件：

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:div同步数据表11.rar

另外，遇到进入div只能定位到句首的问题，是什么原因？这种情况出现在有分段的div中，就是div产生多个空行的情况。

如图：

此主题相关图片如下：gif.gif

你给的例子还没出现上述情况，是移到项目中出现的。

谢谢版主！解决了。

另外，我在当前表DataColChanged和CurrentChanged事件中加入清除空行代码，是否合适，或有其他最佳方案？

Dim lst As new List(of String)   '清除多余空行
For Each t As Table In Tables
    For Each r As Row In t.rows
        For Each c As Col In t.cols
            If c.IsString Then
                lst.Clear
                Dim lines = r.DataRow.Lines(c.Name)
                If lines.Count > 1 Then
                    For Each s As String In  lines
                        If s.trim > "" Then
                            lst.Add(s)
                        End If
                    Next
                    r(c.name) = String.Join(vbcrlf,lst.ToArray)
                Else
                    r(c.name) = r(c.name).TrimEnd(chr(10),chr(13))
                End If
            End If
        Next
    Next
Next
'MessageBox.Show( "已清除多余空行!")

谢谢版主！

是改成 window.external.setCurrentValue(obj.innerHTML, str2)，就解决了。

版主，还有个事求教，原先有个语音校对的功能，由于现在窗口中的div文字内容没有与当前表的单元格同步，所以没法用了。故恳请版主再次相助，谢谢！

版主，这个怎么用，放在哪里呀？

看不懂。请指教！

版主，去掉数据表中的HTML标签符号,我是这样解决的：

heml代码中用你说的这句：

window.external.setCurrentValue(obj.innerHTML, str2)；

setCurrentValue函数代码最后一句参照蓝版主给的代码经测试修改为：

Tables(tname).Current(cname) = str.Replace("</p><p>",vbcrlf).Replace("<p>",vbcrlf).Replace("<br>",vbcrlf).Replace("</p>","")

这样修改后，数据表中就清除掉html的段落标签了，还保留了段落分行。

测试到此，没有出错。

-----------------

从其他网页复制文字到窗口中的div，确实需要去掉html代码，就是要求粘贴的是纯文本，怎样把你给的这段代码写到窗口事件中，使粘贴的网页内容变为纯文本。

版主，另一个问题是，项目中有个语音校对和语音朗读的功能，读取的内容是焦点单元格的文字；

但是窗口中的div发生变动后，后台的数据表的焦点单元格并不跟随相应改变。

也就是说，窗口中的div不管选中哪一个，后台的选中单元格一直固定没有变化。所以校对无法进行。