应用ListTemplate后MS Word崩溃

相关文章推荐

霸气的小虾米 · 你知道App如何自动绑定用户关系吗？ | ...· 1 周前 ·

稳重的冰淇淋 · AutoGPT：有手就会的安装教程· 6 天前 ·

想出国的钱包 · ASP.NET Core MVC 概述 | ...· 3 天前 ·

重情义的牛肉面 · bat命令批处理把子目录下的文件移动到上一目 ...· 昨天 ·

年轻有为的领带 · Python编程：Flask表单扩展Flas ...· 22 小时前 ·

销魂的馒头 · mysql拆分字符串为多行不使用helpto ...· 1 年前 ·

腼腆的小马驹 · java - Monitoring ...· 1 年前 ·

灰常酷的小马驹 · 提权技巧！！！ - 知乎· 1 年前 ·

逼格高的打火机 · 焦点 - 东方财富网· 1 年前 ·

深情的针织衫 · LUG @ USTC - LUG @ USTC· 1 年前 ·

腾讯云

开发者社区

文档意见反馈控制台

首页 TVP

文章/答案/技术大牛

发布

thisValue = tempSheet.Cells(i, 1).Value
.Content.InsertAfter thisValue
.Content.InsertParagraphAfter
Set thisRange = .Paragraphs(i).Range
thisRange.ListFormat.ApplyListTemplate ListTemplate:=ListGalleries(wdBulletGallery).ListTemplates(1)

Sub MoveDataToWord(ByRef tempSheet As Worksheet)
Dim wrdApp As Word.Application
Dim wrdDoc As Word.Document
Set wrdApp = CreateObject("Word.Application")
wrdApp.Visible = True
Set wrdDoc = wrdApp.Documents.Add
With wrdDoc
    For i = 1 To tempSheet.Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
        thisValue = tempSheet.Cells(i, 1).Value
        .Content.InsertAfter thisValue
        .Content.InsertParagraphAfter
        Set thisRange = .Paragraphs(i).Range

推荐文章

霸气的小虾米 · 你知道App如何自动绑定用户关系吗？ | 人人都是产品经理

1 周前

稳重的冰淇淋 · AutoGPT：有手就会的安装教程

6 天前

想出国的钱包 · ASP.NET Core MVC 概述 | Microsoft Learn

3 天前

重情义的牛肉面 · bat命令批处理把子目录下的文件移动到上一目录_bat把子文件夹的文件移到上一级

昨天

年轻有为的领带 · Python编程：Flask表单扩展Flask-WTF-阿里云开发者社区

22 小时前

销魂的馒头 · mysql拆分字符串为多行不使用helptopic-掘金

1 年前

腼腆的小马驹 · java - Monitoring directory for new files with Flink for data streams - Stack Overflow

1 年前

灰常酷的小马驹 · 提权技巧！！！ - 知乎

1 年前

逼格高的打火机 · 焦点 - 东方财富网

1 年前

深情的针织衫 · LUG @ USTC - LUG @ USTC

1 年前