Private Sub Command6_Click()
    Dim i As Integer
    Dim j As Integer
    Dim tuhao As String
    Dim tuming As String
   
    Dim wrdapp As Object
    Dim wrddoc As Object
    Set wrdapp = CreateObject("word.application")
    Set wrddoc = wrdapp.Documents.Open(Text6.Text)


    Dim k As Integer
    Dim A As Integer
   
    Dim Myname As String
    Dim Mynamewuhouzhui As String
    Dim Mynamehouzhui As String
   
    Dim Myname2 As String
    Dim Mypath As String
    Dim Mypathname As String
    Dim Mypathname2 As String
    pltjtm.List2.Clear
   
    For k = 0 To List1.ListCount - 1
            Mypathname = List1.List(k)
            Mypath = Mid(Mypathname, 1, InStrRev(Mypathname, "\") - 1)
            Myname = Right(Mypathname, Len(Mypathname) - InStrRev(Mypathname, "\"))
            Mynamewuhouzhui = Mid(Myname, 1, InStrRev(Myname, ".") - 1)
            Mynamehouzhui = Right(Myname, Len(Myname) - InStrRev(Myname, "."))
            For i = 1 To 5
                For j = 13 To 28
                    tuhao = wrddoc.Tables(i).Cell(j, 2).Range.Text
                    tuhao = Left(tuhao, Len(tuhao) - 1)

                    A = InStr(Mynamewuhouzhui, tuhao)

                    If A > 0 Then
                        tuming = wrddoc.Tables(1).Cell(j, 3).Range.Text
                        tuming = Left(tuming, Len(tuming) - 1)
                    
                        Myname2 = Replace(Mynamewuhouzhui, Mynamewuhouzhui, Mynamewuhouzhui & " " & tuming & "." & Mynamehouzhui)
                        Name Mypath & "\" & Myname As Mypath & "\" & Myname2
                        pltjtm.List2.AddItem Mypath & "\" & Myname2
                        GoTo 11
                    End If
                Next
            Next

11:
    Next
   
    wrddoc.Close
    wrdapp.Quit

End Sub

tuhao = Left(tuhao, Len(tuhao) - 1)这一句有问题，
应该改为：tuhao = Left(tuhao, Len(tuhao) - 2)

同样tuming = Left(tuming, Len(tuming) - 1)
改为tuming = Left(tuming, Len(tuming) - 2)

应该就可以了

能再问下，为何要  -2  ？您是如何发现这种解决办法的？

用Debug.Print在立即窗口中打印出来，你会发现-1的话，
tuhao里面有一个换行符，-2的话就可以把换行符去掉，
这样Mynamewuhouzhui才会等于tuhao


PS：调试的时候，提示框显示的值里面显示不了换行符，所以给你错觉，
明明两个字符相等，为什么还会报错。

看你们提供的解释 ，-1 后有一个换行符，那就可以继续深入探讨了。

在WINDOWS平台下，字符串换行，使用的是 VBCRLF（ CHR(13) & CHR(10) )
这个换行符是2个字节。

确实是这样的，Chr(13)是回车符vbCr（Carriage Return），Chr(10)是换行符vbLf（Line Feed）
Chr(13) + Chr(10)就是回车换行vbCrLf

1.在窗体输出中，Chr(13) 、 Chr(10) 、 Chr(13) + Chr(10) 都是换一行；Chr(10) + Chr(13)、两个Chr(13)、两个Chr(10) 就是换两行。
2.在Text输出中，只有Chr(13) + Chr(10)可换一行，其余无换行。（换行的前提是Text控件的Multiline属性设置为True）



所以为了统一，微软规定在每行的最后面加上vbCrLf，这样在提取一行字符串时要减掉最后面两个字符。

也非常感谢您的指导，我之前有几篇帖子，您很早之前也都指点过。在这里表示下感谢。