Selection.TypeText Text:="某一行的内容" '输入文字
Selection.MoveLeft Unit:=wdCharacter, Count:=14, Extend:=wdExtend '光标向左移动14个字节,即选中上面刚输入的文字
Selection.Font.Bold = wdToggle '选中部分文字字体变为粗体
Selection.Font.Size = 21.5 '选中部分文字字体大小设为21.5
Selection.ParagraphFormat.Alignment = wdAlignParagraphRight '段落右对齐
Selection.ParagraphFormat.Alignment = drpJustification.ListIndex 'drpJustification可能是个下拉列表框,这里是将对齐方式设为下拉列表框drpJustification中的选择项
Selection.MoveDown Unit:=wdLine, Count:=1 '向下移动一行,这里用作取消选择
Selection.TypeParagraph '开始新的段落以上内容,纯属忽悠,如有错误,请别找我
Selection.MoveLeft Unit:=wdCharacter, Count:=14, Extend:=wdExtend '光标向左移动14个字节,即选中上面刚输入的文字
Selection.Font.Bold = wdToggle '选中部分文字字体变为粗体
Selection.Font.Size = 21.5 '选中部分文字字体大小设为21.5
Selection.ParagraphFormat.Alignment = wdAlignParagraphRight '段落右对齐
Selection.ParagraphFormat.Alignment = drpJustification.ListIndex 'drpJustification可能是个下拉列表框,这里是将对齐方式设为下拉列表框drpJustification中的选择项
Selection.MoveDown Unit:=wdLine, Count:=1 '向下移动一行,这里用作取消选择
Selection.TypeParagraph '开始新的段落以上内容,纯属忽悠,如有错误,请别找我
Selection.TypeText Text:="某一行的内容"
Selection.MoveLeft Unit:=wdCharacter, Count:=14, Extend:=wdExtend 这行表示从你所选择的光标处开始向左移动14位
Selection.Font.Bold = wdToggle ‘selection 表示你上面所选择的,也就是MoveLeft14后选择的文档内容
Selection.ParagraphFormat.Alignment = drpJustification.ListIndex 表示段落属性位下拉框中的属性,也就是根据需要自己选择
Selection.MoveDown Unit:=wdLine, Count:=1 表示从上次选择后的地方再向下选择一行!
这些代码在word中是能够验证的,我做过用VB控制word通过数据库生成特定的文档,有点经验!如有需要可以给与帮助!
以一个word字符为单位表示移动时,使用选择区域扩展楼主多看看帮助文档,命令解释里面都有的。
是在宏编辑窗口的帮助文档。
UP...........
本人提供有偿技术支持。