应用ListTemplate后MS Word崩溃

相关文章推荐

快乐的香菜 · 谷歌浏览器（ERR_TIMED_OUT报错、 ...· 19 小时前 ·

风流倜傥的麦片 · CICD：Jenkins入门和使用 - ...· 1 年前 ·

安静的弓箭 · 现在为什么那么多人以清华大学的ChatGLM ...· 1 年前 ·

风流的大蒜 · DrugComb癌症联合用药数据门户· 2 年前 ·

玩篮球的红豆 · It seems that Time ...· 2 年前 ·

烦恼的水桶 · MongoDB的增删改查_51CTO博客_m ...· 2 年前 ·

腾讯云

开发者社区

文档意见反馈控制台

首页 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

推荐文章

快乐的香菜 · 谷歌浏览器（ERR_TIMED_OUT报错、无法访问chat官网）_如何上网访问到goole open ai网址

19 小时前

风流倜傥的麦片 · CICD：Jenkins入门和使用 - Ygria - 博客园

1 年前

安静的弓箭 · 现在为什么那么多人以清华大学的ChatGLM-6B为基座进行试验？ - 知乎

1 年前

风流的大蒜 · DrugComb癌症联合用药数据门户

2 年前

玩篮球的红豆 · It seems that Time Zone Index Value in `convertFromUtc` Function does not match in `Preview data` and the actual Pipeline run. - M

2 年前

烦恼的水桶 · MongoDB的增删改查_51CTO博客_mysql 增删改查

2 年前