如何遍历word行？

weiyingde

作为班主任，在每天早晚读报的时间里，往往需要选择一些文质兼美的时文美文让学生朗读，用ppt呈现是个不错的选择，为此，需要将word文档转为ppt，利用发送到ppt，往往达不到要求。
为达此目的，能不能通过遍历word行的方式用VBA生成ppt幻灯片呢？
我的想法是：
将word用遍历行的方式写入数组，然后再循环数组元素，写入到新建的ppt中，一个数组元素的文字对应一张幻灯片。
但是，word中好像没有lines对象，怎么遍历呢？

weiyingde

在求大虾帮忙，求这一段代码。
比喻将一篇文章每十行为单位写入数组之中，这个该怎样表达？

duquancai

weiyingde 发表于 2017-4-25 10:47
在求大虾帮忙，求这一段代码。
比喻将一篇文章每十行为单位写入数组之中，这个该怎样表达？

请检查数组 arr  是否符合要求？

Sub shishi()
    Dim oPage As Page, oLine As Line, arr()
    For Each oPage In ActiveDocument.ActiveWindow.ActivePane.Pages
        For Each oLine In oPage.Rectangles(1).Lines
            n = n + 1: t = (n - 1) Mod 10
            s = s & IIf(Right(oLine.Range, 1) = Chr(13), oLine.Range, oLine.Range & Chr(13))
            If t = 9 Then
                j = j + 1: ReDim Preserve arr(1 To j)
                arr(j) = Left(s, Len(s) - 1): s = ""
            End If
        Next
    Next
End Sub

weiyingde

谢谢杜老师出手指导。我试试。

weiyingde

duquancai 发表于 2017-4-25 11:15
请检查数组 arr  是否符合要求？

Sub shishi()

不是这样的。实际上就是将整篇word文档用代码转换成ppt，每10行word文本对应一张幻灯片。

duquancai

weiyingde 发表于 2017-4-25 11:36
不是这样的。实际上就是将整篇word文档用代码转换成ppt，每10行word文本对应一张幻灯片。

转ppt那是要pptVBA，那是另外一回事。
这代码只是在wordVBA中运行。请看arr数组就知道了。至于还得转ppt那是另外的事。

weiyingde

duquancai 发表于 2017-4-25 11:15
请检查数组 arr  是否符合要求？

Sub shishi()

我想用这样的思路来实现：
1、定义一个数组，用来储存每10行的word文本数据。
2、再根据数组元素的多少来决定新建的幻灯片张数
3、再讲数组每个元素的数据赋值给每页的文本框。
想用range（（i-1）*10+1行，i*10行）来给数组赋值。
不知道这样的range怎样表达。

weiyingde

我只是不知道在word之中，怎样行数的循环和赋值。因为没有lines(i）这样的表达。

duquancai

weiyingde 发表于 2017-4-25 11:44
我想用这样的思路来实现：
1、定义一个数组，用来储存每10行的word文本数据。
2、再根据数组元素的多少 ...

我已经把每10行文本存入了数组。至于后面的事你自己去搞。我只回答你本帖的问题。

weiyingde

duquancai 发表于 2017-4-25 11:42
转ppt那是要pptVBA，那是另外一回事。
这代码只是在wordVBA中运行。请看arr数组就知道了。至于还得转ppt ...

Sub 将文档10行为单位写入数组()
Dim arr()
hs = ActiveDocument.BuiltInDocumentProperties(wdPropertyLines).Value
Z = Int(hs / 10)
y = hs Mod Z
If hs < 10 Then ……
   For i = 1 To Z
  Set arange = ActiveDocument.Range(……)
      
End Sub