word文档内汉语外语如何分隔

saluttous

qq截图

如图，想把这样的内容转成excel对照表格，请问各位怎么样能分隔开汉语和外语，在中间加制表符，回车或是斜杠，逗号，分号之类的。原文是pdf，还要转成word文档，转出来后还有不少空格，空白段落之类的，如果手工操作费时。先谢谢了。

三十而立

要上传附件，具体问题看了附件再说。

saluttous

见附件里的pdf文件

413191246se

楼主，一是建议你以后处理PDF格式文件，最好选用世界第一的俄罗斯软件 ABBYY Fine Reader中文绿色版（301MB）；二是试用如下VBA代码（我是菜鸟水平有限不足之处请谅解，如果文字太多，费时可能会很长，请耐心等待直到出现OK对话框为止）：
Sub 中英文分离()
    Dim i As Paragraph, n As Long
    For Each i In ActiveDocument.Paragraphs
        For n = 1 To i.Range.Characters.Count
            If Asc(i.Range.Characters(1).Text) < 0 Then
                If Asc(i.Range.Characters(n).Text) > 0 Then i.Range.Characters(n).InsertBefore Text:=vbTab: Exit For
            ElseIf Asc(i.Range.Characters(1).Text) > 0 Then
                If Asc(i.Range.Characters(n).Text) < 0 Then i.Range.Characters(n).InsertBefore Text:=vbTab: Exit For
            End If
        Next n
    Next
'
    Selection.WholeStory
    Selection.ConvertToTable Separator:=wdSeparateByTabs, NumColumns:=2, AutoFitBehavior:=wdAutoFitFixed
    With Selection.Tables(1)
        If .Style <> "网格型" Then
            .Style = "网格型"
        End If
        .ApplyStyleHeadingRows = True
        .ApplyStyleLastRow = True
        .ApplyStyleFirstColumn = True
        .ApplyStyleLastColumn = True
    End With
    MsgBox "OK!"
End Sub

saluttous

多谢，马上去试试。

saluttous

没成功，还是非常感谢帮忙

413191246se

不好意思，楼主！我忘了说了，在用我的宏前须删除图文框和文本框才行。另执行宏前要备份原文件。下面提供两个宏，请提前执行一下再用上面的宏试试：
Sub 删除图文框()
    Dim i As Frame
    For Each i In ActiveDocument.Frames
        i.Delete
    Next
End Sub
Sub 删除文本框()
    Dim i As Shape
    For Each i In ActiveDocument.Shapes
        If i.Type = msoTextBox And i.Type = 17 Then
            i.TextFrame.TextRange.Select
            Selection.Copy
            i.Delete
            Selection.Paste
        End If
    Next
End Sub