VBA如何实现重复每一行

sqhsqhli

VBA如何实现重复每一行，变成

aaa
aaa
bbb
bbb
ccc
ccc
....

小花鹿

从下向上循环复制粘贴                                                                                             

gwjkkkkk

Sub test()
    Dim ar, n&, iPosRow&
    n = ActiveDocument.Paragraphs.Count
    ReDim ar(1 To n * 2)
    With ActiveDocument
    For i = 1 To n
        iPosRow = (i - 1) * 2 + 1
        ar(iPosRow) = .Paragraphs(i).Range.Text
        ar(iPosRow + 1) = .Paragraphs(i).Range.Text
    Next i
    .Content.Text = Join(ar)
    End With
End Sub

gwjkkkkk

请参考附件。。。

sqhsqhli

我说的是行     不是段落

过客fppt

sqhsqhli 发表于 2024-3-18 07:59
我说的是行     不是段落

每一行重复一次

zhanglei1371

sqhsqhli 发表于 2024-3-18 07:59
我说的是行     不是段落

那你提供最特殊最难搞的情况看看，至少两个附件吧，一个原始一个手动做出的效果。别搞个很容易产生歧义的，最简单的例子。

413191246se

* 抛砖引玉！仅供参考！注意：类似“三个代表”这样的双引号如果是半角会出错！

1. Sub LoopLine()
   
2.     ActiveDocument.Content.Find.Execute "^l", , , 0, , , , , , "^p", 2
   
3.     ActiveDocument.Content.InsertParagraphAfter
   
4.     With Selection
   
5.         .WholeStory
   
6.         CommandBars.FindControl(ID:=122).Execute
   
7.         .ClearFormatting
   
8.         .HomeKey 6
   
9.         Do
   
10.             .EndKey 5, 1
    
11.             .InsertAfter Text:=.Text
    
12.             .MoveRight
    
13.         Loop Until .End = ActiveDocument.Content.End - 1
    
14.     End With
    
15. End Sub

复制代码

小花鹿

有没有实际应用场景？
重复段可以勉强理解，重复行有什么实际意义？                                                                           

sqhsqhli

小花鹿 发表于 2024-3-19 18:26
有没有实际应用场景？
重复段可以勉强理解，重复行有什么实际意义？                                     ...

实际应用场景是这样的，比如有两种书法字体字库，让一样文字在相邻两行排版不同的字体效果，练字时可以对比参考