0

在我正在开发的软件中，我必须允许用户选择 .RTF 格式的文档并将其加载到 TX Text Control 中。然后从每一行（第 2 列）中提取数据并将其保存到另一个 TX 文本控件。

有问题的文件包含一个表，其中包含所有文本。

这是我用来从每行的第二列中提取文本的代码：

With TXTextControl1

    .SetFocus
    .ResetContents
    .LoadSaveAttribute(txLoadImages) = True
    .Load fn, 0, 5
    DoEvents

    I = .TableNext(I, CurTableID)
    If CurTableID = 0 Then
      MsgBox "Document Format is NOT Proper", vbInformation, App.Title
      Screen.MousePointer = vbNormal
      Exit Sub
    End If

    For J = 1 To .TableRows(CurTableID) - 1 'Step 7 'Loop through all Rows
      .SelStart = .TableCellStart(CurTableID, J, 2) - 1
      .SelLength = .TableCellLength(CurTableID, J, 2)
      Debug.Print "Row: " & J, .TableColAtInputPos
      List1.AddItem "Row: " & J & " Col Cnt: " & .TableColAtInputPos & IIf(.TableColAtInputPos = 0, " <= Problem Here", "")
      TXTextControl2.SelText = J & vbCrLf
      TXTextControl2.RTFSelText = .RTFSelText
      TXTextControl2.SelText = vbCrLf
      DoEvents
    Next J
  End With

但是这段代码似乎在选择单元格内容时显示了 TX 文本控件的不一致行为。有时它会选择整行而不是单元格内容。

为了证明这种不一致，我创建了一个可以从这里下载的演示。

任何想法如何克服这个错误？

TIA

杨瑜珈

4

2 回答 2

1

是的。转储“TX 文本控件”并使用 VB6 RTF 控件。您可以通过直接访问 TOM 来欺骗此控件以支持 1.0 之后的更高版本（它因向后兼容 VB 的早期版本而被削弱）。（我从这个链接中借用我的解释。）

除了 RichTextBox 引用，您还需要添加对 TOM 的引用（如果未列为可用引用，请浏览riched20.dll）。

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
  (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const WM_USER = &H400&
Private Const EM_GETOLEINTERFACE = (WM_USER + 60)

Dim myIUnknown As IUnknown
Dim tomDoc As ITextDocument

SendMessage rtbText.hwnd, EM_GETOLEINTERFACE, 0&, myIUnknown
Set tomDoc = myIUnknown

这将使您直接引用 RTF 控件中 TOM 的底层实现。ITextDocument 是顶级对象，这里是微软的 TOM 参考。玩得开心！:)

于 2014-05-20T21:55:13.917 回答
0

我以不同的方式解决了这个问题。

我所做的是在 MS Word 中打开有问题的文档，并在第一列之后添加一个额外的列并保存文档。

现在我在 TX Text Control 中加载文档并以编程方式删除添加的（第二列），然后一切似乎都运行良好。

我的主要测试表明，至少对于相关文档而言，问题已得到解决。

感谢大家提供宝贵的提示、技巧和提示。

问候，

杨瑜珈

于 2014-05-21T06:02:20.740 回答