如何写代码，变成一句英文，一句中文

zzpsx · 发表于 2018-11-25 08:53

本帖最后由 zzpsx 于 2018-11-25 09:25 编辑

如何变成一句英文一句中文.rar (5.59 KB, 下载次数: 15) QQ截图20181125091919.png

ming0018 · 发表于 2018-11-26 09:25

Sub test一句英文一句中文()
Dim doc As Document, Par As Paragraph, i%
Set doc = ActiveDocument
On Error Resume Next
If doc.Tables.Count = 0 Then Exit Sub
For i = 1 To doc.Tables(1).Cell(1, 1).Range.Paragraphs.Count
If doc.Tables(1).Cell(1, 1).Range.Paragraphs(i).Range.Text <> Chr(13) & Chr(7) Then
doc.Content.Paragraphs.Last.Range.InsertAfter doc.Tables(1).Cell(1, 1).Range.Paragraphs(i).Range.Text
doc.Content.Paragraphs.Last.Range.InsertAfter doc.Tables(1).Cell(1, 2).Range.Paragraphs(i).Range.Text
End If
Next i
End Sub

复制代码

ming0018 · 发表于 2018-11-26 11:30

本帖最后由 ming0018 于 2018-11-26 11:32 编辑

回复错了回复错了

		自动登录	找回密码
密码			免费注册