应用ListTemplate后MS Word崩溃

link之家

链接快照平台

输入网页链接，自动生成快照
标签化管理网页链接

相关文章推荐

眉毛粗的毛衣 · AttributeError: ...· 1 月前 ·

精明的猴子 · 如何应对网页视频课程进度条禁止拖动？ - ...· 1 月前 ·

率性的稀饭 · 地图服务（HarmonyOS）· 1 月前 ·

眉毛粗的毛衣 · QQ概念版(WPF制作) - bitbit · 3 周前 ·

飘逸的煎鸡蛋 · TabLayout的一种圆角背景_andro ...· 1 周前 ·

打酱油的猴子 · igraph首页、文档和下载 - ...· 2 年前 ·

小胡子的煎饼 · excel换行拆分单元格_抖抖音· 2 年前 ·

害羞的蘑菇 · java如何实现word转PDF？· 2 年前 ·

满身肌肉的饼干 · MongoDB 插入文档 | 菜鸟教程· 2 年前 ·

忧郁的感冒药 · 【pip】raise ...· 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

推荐文章

眉毛粗的毛衣 · AttributeError: module 'matplotlib' has no attribute 'rcParams_Fix for matplotlib rcParams error_ -

1 月前

精明的猴子 · 如何应对网页视频课程进度条禁止拖动？ - wzzkaifa

1 月前

率性的稀饭 · 地图服务（HarmonyOS）

1 月前

眉毛粗的毛衣 · QQ概念版(WPF制作) - bitbit

3 周前

飘逸的煎鸡蛋 · TabLayout的一种圆角背景_android tablayout圆角样式

1 周前

打酱油的猴子 · igraph首页、文档和下载 - 复杂网络处理包 - OSCHINA - 中文开源技术交流社区

2 年前

小胡子的煎饼 · excel换行拆分单元格_抖抖音

2 年前

害羞的蘑菇 · java如何实现word转PDF？

2 年前

满身肌肉的饼干 · MongoDB 插入文档 | 菜鸟教程

2 年前

忧郁的感冒药 · 【pip】raise MaxRetryError(_pool, url, error or ResponseError(cause))_LCGGood的博客-CSDN博客

2 年前