server面板上的TApplication等组件控制WO
仓库管理软件版1楼: 下面是我录制的宏:
Sub Macro7()
＇＇
＇＇ Macro7 Macro
＇＇ 宏在 2005-9-29 由 COMMON 录制
＇＇
Selection.InsertBreak Type:=wdPageBreak
Selection.TypeParagraph
Selection.Style = ActiveDocument.Styles(＂标题 1＂)
With ListGalleries(wdOutlineNumberGallery).ListTemplates(6).ListLevels(1)
.NumberFormat = ＂第%1卷 ＂
.TrailingCharacter = wdTrailingNone
.NumberStyle = wdListNumberStyleSimpChinNum3
.NumberPosition = CentimetersToPoints(0)
.Alignment = wdListLevelAlignLeft
.TextPosition = CentimetersToPoints(0)
.TabPosition = wdUndefined
.ResetOnHigher = 0
.StartAt = 1
With .Font
.Bold = True
.Italic = False
.StrikeThrough = False
.Subscript = wdUndefined
.Superscript = wdUndefined
.Shadow = wdUndefined
.Outline = wdUndefined
.Emboss = wdUndefined
.Engrave = wdUndefined
.AllCaps = wdUndefined
.Hidden = wdUndefined
.Underline = wdUnderlineNone
.Color = wdColorBlack
.Size = 18
.Animation = wdUndefined
.DoubleStrikeThrough = False
.Name = ＂黑体＂
End With
.LinkedStyle = ＂＂
End With
With ListGalleries(wdOutlineNumberGallery).ListTemplates(6).ListLevels(2)
.NumberFormat = ＂第%2章 ＂
.TrailingCharacter = wdTrailingNone
.NumberStyle = wdListNumberStyleSimpChinNum3
.NumberPosition = CentimetersToPoints(0)
.Alignment = wdListLevelAlignLeft
.TextPosition = CentimetersToPoints(0)
.TabPosition = wdUndefined
.ResetOnHigher = 1
.StartAt = 1
With .Font
.Bold = True
.Italic = False
.StrikeThrough = False
.Subscript = wdUndefined
.Superscript = wdUndefined
.Shadow = wdUndefined
.Outline = wdUndefined
.Emboss = wdUndefined
.Engrave = wdUndefined
.AllCaps = wdUndefined
.Hidden = wdUndefined
.Underline = wdUndefined
.Color = wdColorBlack
.Size = 16
.Animation = wdUndefined
.DoubleStrikeThrough = False
.Name = ＂黑体＂
End With
.LinkedStyle = ＂＂
End With
With ListGalleries(wdOutlineNumberGallery).ListTemplates(6).ListLevels(3)
.NumberFormat = ＂第%3节 ＂
.TrailingCharacter = wdTrailingNone
.NumberStyle = wdListNumberStyleSimpChinNum3
.NumberPosition = CentimetersToPoints(0)
.Alignment = wdListLevelAlignLeft
.TextPosition = CentimetersToPoints(0)
.TabPosition = wdUndefined
.ResetOnHigher = 2
.StartAt = 1
With .Font
.Bold = True
.Italic = False
.StrikeThrough = False
.Subscript = wdUndefined
.Superscript = wdUndefined
.Shadow = wdUndefined
.Outline = wdUndefined
.Emboss = wdUndefined
.Engrave = wdUndefined
.AllCaps = wdUndefined
.Hidden = wdUndefined
.Underline = wdUndefined
.Color = wdColorBlack
.Size = 15
.Animation = wdUndefined
.DoubleStrikeThrough = False
.Name = ＂黑体＂
End With
.LinkedStyle = ＂＂
End With
With ListGalleries(wdOutlineNumberGallery).ListTemplates(6).ListLevels(4)
.NumberFormat = ＂%4、 ＂
.TrailingCharacter = wdTrailingNone
.NumberStyle = wdListNumberStyleSimpChinNum3
.NumberPosition = CentimetersToPoints(0)
.Alignment = wdListLevelAlignLeft
.TextPosition = CentimetersToPoints(0)
.TabPosition = wdUndefined
.ResetOnHigher = 3
.StartAt = 1
With .Font
.Bold = True
.Italic = False
.StrikeThrough = False
.Subscript = wdUndefined
.Superscript = wdUndefined
.Shadow = wdUndefined
.Outline = wdUndefined
.Emboss = wdUndefined
.Engrave = wdUndefined
.AllCaps = wdUndefined
.Hidden = wdUndefined
.Underline = wdUndefined
.Color = wdColorBlack
.Size = 14
.Animation = wdUndefined
.DoubleStrikeThrough = False
.Name = ＂黑体＂
End With
.LinkedStyle = ＂＂
End With
With ListGalleries(wdOutlineNumberGallery).ListTemplates(6).ListLevels(5)
.NumberFormat = ＂%5. ＂
.TrailingCharacter = wdTrailingNone
.NumberStyle = wdListNumberStyleArabic
.NumberPosition = CentimetersToPoints(0)
.Alignment = wdListLevelAlignLeft
.TextPosition = CentimetersToPoints(0)
.TabPosition = wdUndefined
.ResetOnHigher = 4
.StartAt = 1
With .Font
.Bold = False
.Italic = False
.StrikeThrough = False
.Subscript = wdUndefined
.Superscript = wdUndefined
.Shadow = wdUndefined
.Outline = wdUndefined
.Emboss = wdUndefined
.Engrave = wdUndefined
.AllCaps = wdUndefined
.Hidden = wdUndefined
.Underline = wdUndefined
.Color = wdColorBlack
.Size = 12
.Animation = wdUndefined
.DoubleStrikeThrough = False
.Name = ＂黑体＂
End With
.LinkedStyle = ＂＂
End With
With ListGalleries(wdOutlineNumberGallery).ListTemplates(6).ListLevels(6)
.NumberFormat = ＂＂
.TrailingCharacter = wdTrailingNone
.NumberStyle = wdListNumberStyleNone
.NumberPosition = CentimetersToPoints(0)
.Alignment = wdListLevelAlignLeft
.TextPosition = CentimetersToPoints(0)
.TabPosition = wdUndefined
.ResetOnHigher = 5
.StartAt = 1
With .Font
.Bold = False
.Italic = False
.StrikeThrough = False
.Subscript = wdUndefined
.Superscript = wdUndefined
.Shadow = wdUndefined
.Outline = wdUndefined
.Emboss = wdUndefined
.Engrave = wdUndefined
.AllCaps = wdUndefined
.Hidden = wdUndefined
.Underline = wdUndefined
.Color = wdColorBlack
.Size = 12
.Animation = wdUndefined
.DoubleStrikeThrough = False
.Name = ＂宋体＂
End With
.LinkedStyle = ＂＂
End With
With ListGalleries(wdOutlineNumberGallery).ListTemplates(6).ListLevels(7)
.NumberFormat = ＂＂
.TrailingCharacter = wdTrailingNone
.NumberStyle = wdListNumberStyleNone
.NumberPosition = CentimetersToPoints(0)
.Alignment = wdListLevelAlignLeft
.TextPosition = CentimetersToPoints(0)
.TabPosition = wdUndefined
.ResetOnHigher = 6
.StartAt = 1
With .Font
.Bold = False
.Italic = False
.StrikeThrough = False
.Subscript = wdUndefined
.Superscript = wdUndefined
.Shadow = wdUndefined
.Outline = wdUndefined
.Emboss = wdUndefined
.Engrave = wdUndefined
.AllCaps = wdUndefined
.Hidden = wdUndefined
.Underline = wdUndefined
.Color = wdColorBlack
.Size = 12
.Animation = wdUndefined
.DoubleStrikeThrough = False
.Name = ＂宋体＂
End With
.LinkedStyle = ＂＂
End With
With ListGalleries(wdOutlineNumberGallery).ListTemplates(6).ListLevels(8)
.NumberFormat = ＂＂
.TrailingCharacter = wdTrailingNone
.NumberStyle = wdListNumberStyleNone
.NumberPosition = CentimetersToPoints(0)
.Alignment = wdListLevelAlignLeft
.TextPosition = CentimetersToPoints(0)
.TabPosition = wdUndefined
.ResetOnHigher = 7
.StartAt = 1
With .Font
.Bold = False
.Italic = False
.StrikeThrough = False
.Subscript = wdUndefined
.Superscript = wdUndefined
.Shadow = wdUndefined
.Outline = wdUndefined
.Emboss = wdUndefined
.Engrave = wdUndefined
.AllCaps = wdUndefined
.Hidden = wdUndefined
.Underline = wdUndefined
.Color = wdColorBlack
.Size = 12
.Animation = wdUndefined
.DoubleStrikeThrough = False
.Name = ＂宋体＂
End With
.LinkedStyle = ＂＂
End With
With ListGalleries(wdOutlineNumberGallery).ListTemplates(6).ListLevels(9)
.NumberFormat = ＂%9. ＂
.TrailingCharacter = wdTrailingNone
.NumberStyle = wdListNumberStyleArabic
.NumberPosition = CentimetersToPoints(0)
.Alignment = wdListLevelAlignLeft
.TextPosition = CentimetersToPoints(0)
.TabPosition = wdUndefined
.ResetOnHigher = 8
.StartAt = 1
With .Font
.Bold = False
.Italic = False
.StrikeThrough = False
.Subscript = wdUndefined
.Superscript = wdUndefined
.Shadow = wdUndefined
.Outline = wdUndefined
.Emboss = wdUndefined
.Engrave = wdUndefined
.AllCaps = wdUndefined
.Hidden = wdUndefined
.Underline = wdUndefined
.Color = wdColorBlack
.Size = 12
.Animation = wdUndefined
.DoubleStrikeThrough = False
.Name = ＂宋体＂
End With
.LinkedStyle = ＂＂
End With
ListGalleries(wdOutlineNumberGallery).ListTemplates(6).Name = ＂＂
Selection.Range.ListFormat.ApplyListTemplate ListTemplate:=ListGalleries( _
wdOutlineNumberGallery).ListTemplates(6), ContinuePreviousList:=False, _
ApplyTo:=wdListApplyToWholeList, DefaultListBehavior:=wdWord9ListBehavior
Selection.TypeText Text:=＂AAA＂
Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
Selection.TypeParagraph
Selection.TypeText Text:=＂asdffg＂
End Sub
如何用server面板上的组件实现,把上面的宏代码转成delphi程序代码,请大家帮忙看看,急!因
如果能用OLEContainer控制WORD实现,那就最好了
能发些OLEContainer控制WORD的例程吗,先谢谢了!
屋面防水 -> 文档内容(OLE字段)
给水排水 -->这是一个标题 2 (字段类型为 文本字符类型)
水厂改造 -->这是内容文档(OLE字段)
......
我简单的用以上形式来表示,现在我在生成标书时,我已经能够把工程库中的素材文档全部转入WORD中;
但在转入word 时,首先从工业厂房开始,它是标题,在WORD中直接TYPETEXT标题文字,居中即可,不过我还要在标题前,加上比如说＇＇第一章＇＇这类字, 也就是＇＇第一章 工业厂房＇＇,换行后是它的子标题(第一节 XXXX),或者是文档内容.
到第二个同级的标题＇＇给水排水＇＇,即＇＇第二章 给水排水＇＇;其下一级标题就为＇＇第一节 XXXX＇＇,
请问NEWSMILE能明白我的意思吧,很感谢你的指点,我想知道你以前是用什么方法实现它这个多级符号的! 如生产管理软件
Sub Macro7()
＇＇
＇＇ Macro7 Macro
＇＇ 宏在 2005-9-29 由 COMMON 录制
＇＇
Selection.InsertBreak Type:=wdPageBreak
Selection.TypeParagraph
Selection.Style = ActiveDocument.Styles(＂标题 1＂)
With ListGalleries(wdOutlineNumberGallery).ListTemplates(6).ListLevels(1)
.NumberFormat = ＂第%1卷 ＂
.TrailingCharacter = wdTrailingNone
.NumberStyle = wdListNumberStyleSimpChinNum3
.NumberPosition = CentimetersToPoints(0)
.Alignment = wdListLevelAlignLeft
.TextPosition = CentimetersToPoints(0)
.TabPosition = wdUndefined
.ResetOnHigher = 0
.StartAt = 1
With .Font
.Bold = True
.Italic = False
.StrikeThrough = False
.Subscript = wdUndefined
.Superscript = wdUndefined
.Shadow = wdUndefined
.Outline = wdUndefined
.Emboss = wdUndefined
.Engrave = wdUndefined
.AllCaps = wdUndefined
.Hidden = wdUndefined
.Underline = wdUnderlineNone
.Color = wdColorBlack
.Size = 18
.Animation = wdUndefined
.DoubleStrikeThrough = False
.Name = ＂黑体＂
End With
.LinkedStyle = ＂＂
End With
With ListGalleries(wdOutlineNumberGallery).ListTemplates(6).ListLevels(2)
.NumberFormat = ＂第%2章 ＂
.TrailingCharacter = wdTrailingNone
.NumberStyle = wdListNumberStyleSimpChinNum3
.NumberPosition = CentimetersToPoints(0)
.Alignment = wdListLevelAlignLeft
.TextPosition = CentimetersToPoints(0)
.TabPosition = wdUndefined
.ResetOnHigher = 1
.StartAt = 1
With .Font
.Bold = True
.Italic = False
.StrikeThrough = False
.Subscript = wdUndefined
.Superscript = wdUndefined
.Shadow = wdUndefined
.Outline = wdUndefined
.Emboss = wdUndefined
.Engrave = wdUndefined
.AllCaps = wdUndefined
.Hidden = wdUndefined
.Underline = wdUndefined
.Color = wdColorBlack
.Size = 16
.Animation = wdUndefined
.DoubleStrikeThrough = False
.Name = ＂黑体＂
End With
.LinkedStyle = ＂＂
End With
With ListGalleries(wdOutlineNumberGallery).ListTemplates(6).ListLevels(3)
.NumberFormat = ＂第%3节 ＂
.TrailingCharacter = wdTrailingNone
.NumberStyle = wdListNumberStyleSimpChinNum3
.NumberPosition = CentimetersToPoints(0)
.Alignment = wdListLevelAlignLeft
.TextPosition = CentimetersToPoints(0)
.TabPosition = wdUndefined
.ResetOnHigher = 2
.StartAt = 1
With .Font
.Bold = True
.Italic = False
.StrikeThrough = False
.Subscript = wdUndefined
.Superscript = wdUndefined
.Shadow = wdUndefined
.Outline = wdUndefined
.Emboss = wdUndefined
.Engrave = wdUndefined
.AllCaps = wdUndefined
.Hidden = wdUndefined
.Underline = wdUndefined
.Color = wdColorBlack
.Size = 15
.Animation = wdUndefined
.DoubleStrikeThrough = False
.Name = ＂黑体＂
End With
.LinkedStyle = ＂＂
End With
With ListGalleries(wdOutlineNumberGallery).ListTemplates(6).ListLevels(4)
.NumberFormat = ＂%4、 ＂
.TrailingCharacter = wdTrailingNone
.NumberStyle = wdListNumberStyleSimpChinNum3
.NumberPosition = CentimetersToPoints(0)
.Alignment = wdListLevelAlignLeft
.TextPosition = CentimetersToPoints(0)
.TabPosition = wdUndefined
.ResetOnHigher = 3
.StartAt = 1
With .Font
.Bold = True
.Italic = False
.StrikeThrough = False
.Subscript = wdUndefined
.Superscript = wdUndefined
.Shadow = wdUndefined
.Outline = wdUndefined
.Emboss = wdUndefined
.Engrave = wdUndefined
.AllCaps = wdUndefined
.Hidden = wdUndefined
.Underline = wdUndefined
.Color = wdColorBlack
.Size = 14
.Animation = wdUndefined
.DoubleStrikeThrough = False
.Name = ＂黑体＂
End With
.LinkedStyle = ＂＂
End With
With ListGalleries(wdOutlineNumberGallery).ListTemplates(6).ListLevels(5)
.NumberFormat = ＂%5. ＂
.TrailingCharacter = wdTrailingNone
.NumberStyle = wdListNumberStyleArabic
.NumberPosition = CentimetersToPoints(0)
.Alignment = wdListLevelAlignLeft
.TextPosition = CentimetersToPoints(0)
.TabPosition = wdUndefined
.ResetOnHigher = 4
.StartAt = 1
With .Font
.Bold = False
.Italic = False
.StrikeThrough = False
.Subscript = wdUndefined
.Superscript = wdUndefined
.Shadow = wdUndefined
.Outline = wdUndefined
.Emboss = wdUndefined
.Engrave = wdUndefined
.AllCaps = wdUndefined
.Hidden = wdUndefined
.Underline = wdUndefined
.Color = wdColorBlack
.Size = 12
.Animation = wdUndefined
.DoubleStrikeThrough = False
.Name = ＂黑体＂
End With
.LinkedStyle = ＂＂
End With
With ListGalleries(wdOutlineNumberGallery).ListTemplates(6).ListLevels(6)
.NumberFormat = ＂＂
.TrailingCharacter = wdTrailingNone
.NumberStyle = wdListNumberStyleNone
.NumberPosition = CentimetersToPoints(0)
.Alignment = wdListLevelAlignLeft
.TextPosition = CentimetersToPoints(0)
.TabPosition = wdUndefined
.ResetOnHigher = 5
.StartAt = 1
With .Font
.Bold = False
.Italic = False
.StrikeThrough = False
.Subscript = wdUndefined
.Superscript = wdUndefined
.Shadow = wdUndefined
.Outline = wdUndefined
.Emboss = wdUndefined
.Engrave = wdUndefined
.AllCaps = wdUndefined
.Hidden = wdUndefined
.Underline = wdUndefined
.Color = wdColorBlack
.Size = 12
.Animation = wdUndefined
.DoubleStrikeThrough = False
.Name = ＂宋体＂
End With
.LinkedStyle = ＂＂
End With
With ListGalleries(wdOutlineNumberGallery).ListTemplates(6).ListLevels(7)
.NumberFormat = ＂＂
.TrailingCharacter = wdTrailingNone
.NumberStyle = wdListNumberStyleNone
.NumberPosition = CentimetersToPoints(0)
.Alignment = wdListLevelAlignLeft
.TextPosition = CentimetersToPoints(0)
.TabPosition = wdUndefined
.ResetOnHigher = 6
.StartAt = 1
With .Font
.Bold = False
.Italic = False
.StrikeThrough = False
.Subscript = wdUndefined
.Superscript = wdUndefined
.Shadow = wdUndefined
.Outline = wdUndefined
.Emboss = wdUndefined
.Engrave = wdUndefined
.AllCaps = wdUndefined
.Hidden = wdUndefined
.Underline = wdUndefined
.Color = wdColorBlack
.Size = 12
.Animation = wdUndefined
.DoubleStrikeThrough = False
.Name = ＂宋体＂
End With
.LinkedStyle = ＂＂
End With
With ListGalleries(wdOutlineNumberGallery).ListTemplates(6).ListLevels(8)
.NumberFormat = ＂＂
.TrailingCharacter = wdTrailingNone
.NumberStyle = wdListNumberStyleNone
.NumberPosition = CentimetersToPoints(0)
.Alignment = wdListLevelAlignLeft
.TextPosition = CentimetersToPoints(0)
.TabPosition = wdUndefined
.ResetOnHigher = 7
.StartAt = 1
With .Font
.Bold = False
.Italic = False
.StrikeThrough = False
.Subscript = wdUndefined
.Superscript = wdUndefined
.Shadow = wdUndefined
.Outline = wdUndefined
.Emboss = wdUndefined
.Engrave = wdUndefined
.AllCaps = wdUndefined
.Hidden = wdUndefined
.Underline = wdUndefined
.Color = wdColorBlack
.Size = 12
.Animation = wdUndefined
.DoubleStrikeThrough = False
.Name = ＂宋体＂
End With
.LinkedStyle = ＂＂
End With
With ListGalleries(wdOutlineNumberGallery).ListTemplates(6).ListLevels(9)
.NumberFormat = ＂%9. ＂
.TrailingCharacter = wdTrailingNone
.NumberStyle = wdListNumberStyleArabic
.NumberPosition = CentimetersToPoints(0)
.Alignment = wdListLevelAlignLeft
.TextPosition = CentimetersToPoints(0)
.TabPosition = wdUndefined
.ResetOnHigher = 8
.StartAt = 1
With .Font
.Bold = False
.Italic = False
.StrikeThrough = False
.Subscript = wdUndefined
.Superscript = wdUndefined
.Shadow = wdUndefined
.Outline = wdUndefined
.Emboss = wdUndefined
.Engrave = wdUndefined
.AllCaps = wdUndefined
.Hidden = wdUndefined
.Underline = wdUndefined
.Color = wdColorBlack
.Size = 12
.Animation = wdUndefined
.DoubleStrikeThrough = False
.Name = ＂宋体＂
End With
.LinkedStyle = ＂＂
End With
ListGalleries(wdOutlineNumberGallery).ListTemplates(6).Name = ＂＂
Selection.Range.ListFormat.ApplyListTemplate ListTemplate:=ListGalleries( _
wdOutlineNumberGallery).ListTemplates(6), ContinuePreviousList:=False, _
ApplyTo:=wdListApplyToWholeList, DefaultListBehavior:=wdWord9ListBehavior
Selection.TypeText Text:=＂AAA＂
Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
Selection.TypeParagraph
Selection.TypeText Text:=＂asdffg＂
End Sub
如何用server面板上的组件实现,把上面的宏代码转成delphi程序代码,请大家帮忙看看,急!因
2楼: 项目符号和编号在word中处理有点怪，要注意ListGalleries、ListTemplates、ListLevels三个对象，比较麻烦，去看看word的VBA帮助，把概念搞清楚了就好办了，相信你能搞定的。 如金蝶财务软件教程
3楼: 是的,ListGalleries、ListTemplates、ListLevels三个对象是很难搞定,我在WORD中录制的宏代码,根本就无法转成delphi代码,我用的是server面板上的wordapplication等控件
是关于这个项目符号和编号在word中设定,我的程序是这样的,我用的DBTREE控件,
节点一1(标题)
节点二1 (下一级标题)
节点三1 (文档内容)
节点三2 (文档内容)
节点一2
........
我想把它传到WORD中,并生成文档,其中,在标题节点在word里要加项目符号和编号,同时生成目录如:
第一章 节点一1......................................2
第一节 XXX......................................3
第二章 节点一2.....................................5
......
不知大家有没有理解我的意思,请大家帮忙看看
4楼: ListGalleries有三个（对应项目符号、编号、多级符号），ListTemplates有七个（对应面板上的七个框），ListLevels不记得有几项了（功能是指定框里的属性，你要在这里指定各属性），你设置的时候要三个都指定的。
5楼: 你好,newsmile,能给我一个例子让我参考一下吗,好吗
6楼: 我是用ole控制word的，和你的不一样，我从来没有用过server面板上的控件。虽然控制原理一样但代码相差太大，可能我的代码对你来说没有什么参考价值吧
仓库管理软件版7楼: newsmile,你好,我也是用OLEContainer来控制WORD,刚开始就是用它,不过搞到后来,特别是索引和目录那方面,总是出错,我后来才改用server面板上的WordApplication
如果能用OLEContainer控制WORD实现,那就最好了
能发些OLEContainer控制WORD的例程吗,先谢谢了!
8楼: newsmile,你好,我的QQ:38634500
Email:reegon@163.com
我很希望能和你多交流,我现在正在做一个标书管理的软件,如果你方便的话,我把我做的发给你指点一下,可以吗？
9楼: 我用ole不用OLEContainer，我的代码在家里，明天拿段给你参考。我没有QQ。你做标书管理应该用模板，那样比较好些，本论坛有相关的代码，你查一下旧贴应该可以查到（如果你有离线数据库很好查的）。
10楼: 好的,谢谢newsmile,明天给一些OLE控制WORD的设置标题的项目符号和编号的代码,以有定位到文档首页插入索引目录的代码,好吗,太感谢了!
标书素材我这里有素材库,我用的ACCESS作数据库
你所说的用模板,是什么意思啊!应该套用什么样的模板呢？
11楼: word模板，操纵模板要简单很多。本论坛旧贴里有例子。
12楼: 我现在没用模板,我是每次打开一个空的WORD,然后插入我的工程标书!
我用的是DBTREE控件,树结构如下:
XX标书
工业厂房 -->这是一个标题 1(字段类型为 文本字符类型)
钢柱XX -->这是工业厂房下的一个文档(OLE字段)
......
XXX厂房 -->工业厂房下的一个子标题,(字段类型为 文本字符类型)
屋面防水 -> 文档内容(OLE字段)
给水排水 -->这是一个标题 2 (字段类型为 文本字符类型)
水厂改造 -->这是内容文档(OLE字段)
......
我简单的用以上形式来表示,现在我在生成标书时,我已经能够把工程库中的素材文档全部转入WORD中;
但在转入word 时,首先从工业厂房开始,它是标题,在WORD中直接TYPETEXT标题文字,居中即可,不过我还要在标题前,加上比如说＇＇第一章＇＇这类字, 也就是＇＇第一章 工业厂房＇＇,换行后是它的子标题(第一节 XXXX),或者是文档内容.
到第二个同级的标题＇＇给水排水＇＇,即＇＇第二章 给水排水＇＇;其下一级标题就为＇＇第一节 XXXX＇＇,
请问NEWSMILE能明白我的意思吧,很感谢你的指点,我想知道你以前是用什么方法实现它这个多级符号的! 如生产管理软件
13楼: 给你发了邮件，查收。有问题再联系。
仓库管理软件版14楼: 好的,谢谢你,NEWSMILE,我马上去看看!
15楼: NEWSMILE,我把我的代码发到你邮箱里了,请你看看好吗
附件里有一个word 文件,你看看它里面目录的样式,以及那个多级编号的标题,如第一章,第一节等!
16楼: 到现在还没有收到不知怎么回事？
17楼: 我这边是成功发送出去了的,我再发一次看看!
18楼: 收到了。
19楼: NEWSMILE,你看了后,能否提点一下,你觉得那个设置标题的项目符号和编号,也就是我想用多级编号的那一块应该如何处理.....
20楼: 刚给你发了邮件，查收。
仓库管理软件版21楼: 谢谢你的回信,NEWSMILE,我再试试,希望能和你长期联系,很高兴能认识到你!
分已经给你了,我进大富翁论坛时间不长!
联系我们
