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 '开始新的段落以上内容,纯属忽悠,如有错误,请别找我

解决方案 »

  1.   

    现将你不明白的地方给与解释!希望能够给你帮助:
    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通过数据库生成特定的文档,有点经验!如有需要可以给与帮助!
      

  2.   

    请问您知道利用vba怎么处理数据库中数据与word之间转换吗?能不能指教一下给个代码?不胜感激,万分感激!
      

  3.   

    Selection表示当前选中的部分,可能是光标,也可能是一个区域。表示当前选中的部分向左扩展14个字符(也可能是缩小的,lz自己想想),相当于按着shift,再按14下左方向键
    以一个word字符为单位表示移动时,使用选择区域扩展楼主多看看帮助文档,命令解释里面都有的。
    是在宏编辑窗口的帮助文档。
      

  4.   

    没用VBA操作过Word……要是对Excel进行操作,我还说得上两句 ^_^
    UP...........
      

  5.   

    不知7楼兄弟说的是如何的转换,能说的具体点吗?是要把数据库中的数据读到Word中相应的表格中还是读到相应的位置处?
      

  6.   

    WORD和数据库的话,用邮件合并功能。
    本人提供有偿技术支持。