VBA转VB.net删除所有空段落求大神帮忙

vh120

以前用VBA的，现在改用VB.net，不知道怎么转换了，大神门帮帮忙，先谢了。
VB.net删除所有空段落求大神帮忙，这段代码提示类型错误，初接触VB.net，不知道怎么弄了。

     Dim wdapp As Word.Application = Globals.ThisAddIn.Application
      Dim i As Word.Paragraph, n As Integer
        wdapp.ScreenUpdating = False
        For Each i In wdapp.ActiveDocument.Paragraphs '取wrod的段落数



            If Len(i.Range) = 1 Then  '段落字节长度=1，说明有内容
                i.Range.Delete()   '然后就删除段落
                n = n + 1
            End If
        Next
        wdapp.ScreenUpdating = True

临沂-枸杞

哪一句报错?

vh120

临沂-枸杞 发表于 2022-3-14 13:33
哪一句报错?

If Len(i.Range) = 1 Then  '段落字节长度=1，说明有内容
这一句，在WORD使用的时候报错

临沂-枸杞

vh120 发表于 2022-3-14 16:38
If Len(i.Range) = 1 Then  '段落字节长度=1，说明有内容
这一句，在WORD使用的时候报错

试试  i.range.text

vh120

临沂-枸杞 发表于 2022-3-15 08:02
试试  i.range.text

多谢了，按你的方法可以了。