T
trackboy
Unregistered / Unconfirmed
GUEST, unregistred user!
想在delphi中控制word文档输出格式,于是录制了word一段宏,想改成delphi代码,毫无头绪,
着急,
Sub 统计输出宏()
ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=2, NumColumns:= _
7, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
wdAutoFitWindow
Selection.Font.Bold = wdToggle
Selection.Shading.Texture = wdTextureNone
Selection.Shading.BackgroundPatternColor = wdColorBlack
Selection.TypeText Text:="员工姓名"
Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
Selection.MoveDown Unit:=wdLine, Count:=1
Selection.TypeParagraph
End Sub
着急,
Sub 统计输出宏()
ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=2, NumColumns:= _
7, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
wdAutoFitWindow
Selection.Font.Bold = wdToggle
Selection.Shading.Texture = wdTextureNone
Selection.Shading.BackgroundPatternColor = wdColorBlack
Selection.TypeText Text:="员工姓名"
Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
Selection.MoveDown Unit:=wdLine, Count:=1
Selection.TypeParagraph
End Sub
] Zgm_sepco@263.net