如何用代码把英文放上面，中文放下面？

zzpsx

下图是有道翻译的，但我想一句英文，一句中文。英文在上，中文在下，不知道用代码可否实现？




如何用代码把英文放上面，中文放下面.rar (12.51 KB, 下载次数: 14)

2023-2-18 12:35 上传

点击文件名下载附件

taller

gwjkkkkk

Option Explicit
Sub TEST()
    Dim iParCount&, i&, strRngText$
   
    Application.ScreenUpdating = False
    With ActiveDocument
        iParCount = Int(.Paragraphs.Count / 2) * 2
        For i = iParCount To 1 Step -2
            strRngText = .Paragraphs(i).Range.Text
            .Paragraphs(i).Range.Delete
            With .Paragraphs(i - 1).Range
                .InsertBefore strRngText
            End With
        Next i
   End With
   
   Application.ScreenUpdating = True
End Sub

gwjkkkkk

请参考附件。。。

守候_CJ

Word VBA：段落交换位置示例代码

1. Sub 段落换位()
   
2.     Dim i As Integer
   
3.     Dim pa As Paragraph
   
4.     Dim pa1 As Paragraph
   
5.    
   
6.     Application.ScreenUpdating = False
   
7.     For i = ActiveDocument.Paragraphs.Count To 1 Step -1
   
8.         If i Mod 2 = 0 Then
   
9.             Set pa = ActiveDocument.Paragraphs(i)
   
10.             With pa
    
11.                 Set pa1 = pa.Previous
    
12.                 .Range.Cut
    
13.                 pa1.Range.Select
    
14.                 Selection.Collapse 1
    
15.                 Selection.PasteAndFormat wdFormatOriginalFormatting
    
16.             End With
    
17.         End If
    
18.     Next
    
19.     Application.ScreenUpdating = True
    
20.    
    
21.     Set pa = Nothing
    
22.     Set pa1 = Nothing
    
23. End Sub

复制代码

wanghan519

输出如果是txt，可以过一个管道，sed -n 'h;n;G;p'

zxsea_7426

wanghan519 发表于 2023-2-19 06:52
输出如果是txt，可以过一个管道，sed -n 'h;n;G;p'

这大清早的手机就没电了

wanghan519

zxsea_7426 发表于 2023-2-19 07:32
这大清早的手机就没电了

哈哈，睡觉听小说没关机