Question

如何用VB代码制作Word文档的字体设置框

Answer 1

方法/步骤

• 1

  打开word

  双击桌面word图标打开word窗口，也可同时按下“win+r"键，在运行对话框中输入：winword，回车亦可快速打开word窗口。

  

• 2

  制作样表

  在打开的word文档中，插入一个样表，用于后期操作。

  

• 把光标定位到表格中，这时工具栏会出“设计”选框卡，点击切换到该页面上。

  

• 开始录制宏

  1.此时，在word应用程序窗口的状态栏中，找到如图“录制宏”按钮，进行单击。

  

• 2.弹出的“录制宏”窗口，保持默认配置不变，点击“确定”开始录制。

  

• 3.点击“设计”选项卡中样式列表后面的下拉按钮，在下拉菜单中选择“修改表格样式”。

  

  

• 在弹出的“修改样式”窗口，依次修改“线型”、“线宽”、“线的颜色”、以及“边框”（必须重新选择，否则修改不会反映到表格中）。

  

  

  

  

  

• 点击“确定”，确定表格边框样式的修改。

  

• 完成宏录制

  再次在word应用程序窗口的状态栏中，找到如图“录制宏”按钮，单击停止宏录制。

  

• 查看宏代码

  在word窗口，依次点击工具栏“开发工具”——“Visual Basic”或直接按下组合键“ALT+F11”,打开宏代码窗口。

  

• 可以看到代码窗口的代码挺多，是不是有一种脑胀的感觉。

  

• 查看关键代码

  其实，大家不用害怕，只要稍微认真观察一下，大家就会发现这些代码大多都是在重复，关键代码也就那么几项，也正是我们所需要的。

  With ActiveDocument.Styles("网格型").Table

  With .Shading

  .Texture = wdTextureNone

  .ForegroundPatternColor = wdColorAutomatic

  .BackgroundPatternColor = wdColorAutomatic

  End With

  With .Borders(wdBorderLeft)

  .LineStyle = wdLineStyleDashLargeGap

  .LineWidth = wdLineWidth300pt

  .Color = wdColorRed

  End With

  ……

  End With