以下 Word 宏创建一个新样式（如果该样式不存在），然后将该样式应用到活动文档中所有左对齐的段落。
' VBA
Private Sub Document_Open()
Dim currentParagraph As Paragraph
' 调用 CreateStyle，传递样式名称和有关属性。
CreateStyle "MyNewStyle", "Arial", 9.5, True, False, 0.5
' 将样式应用到每个左对齐的段落。
For Each currentParagraph In ActiveDocument.Paragraphs
If currentParagraph.Alignment = wdAlignParagraphLeft Then
currentParagraph.Style = "MyNewStyle"
End If
Next currentParagraph
End Sub
Private Function StyleExists(styleName As String) As Boolean
Dim currentStyle As Style
Dim stylePresent As Boolean
stylePresent = False
' 检查活动文档中是否存在该样式。
For Each currentStyle In ActiveDocument.Styles
If currentStyle.NameLocal = styleName Then
stylePresent = True
Exit For
End If
Next currentStyle
' 返回。
StyleExists = stylePresent
End Function
Private Sub CreateStyle(styleName As String, styleFontName As String, _
styleFontSize As Single, styleBold As Boolean, _
styleItalic As Boolean, Optional styleFirstLineIndent As Single, _
Optional styleSpaceBefore As Single)
' 检查样式是否已经存在。
If Not StyleExists(styleName) Then
' 通过传递的属性创建样式。
ActiveDocument.Styles.Add styleName
With ActiveDocument.Styles(styleName)
.Font.Name = styleFontName
.Font.Size = styleFontSize
.Font.Bold = styleBold
.Font.Italic = styleItalic
.ParagraphFormat.FirstLineIndent = _
InchesToPoints(styleFirstLineIndent)
.ParagraphFormat.SpaceBefore = _
InchesToPoints(styleSpaceBefore)
.ParagraphFormat.Alignment = wdAlignParagraphLeft
End With
End If
End Sub
创建创建 Visual Basic .NET 项目项目
要转换 VBA 代码，必须使用“Visual Studio Tools for Office”在 Visual Studio .NET 中创建 Word 文档项目。
要创建新的要创建新的 Word 文档项目文档项目
1. 从 File（文件）菜单中，指向 New（新建），然后单击 Project（项目）。
2. 在 New Project（新建项目）对话框中，展开 Microsoft Office 2003 Projects（Microsoft Office 2003 项目），然后选择
Visual Basic Projects（Visual Basic 项目）。
3. 在 Templates（模板）窗格中，选择 Word Document（Word 文档）。
4. 将项目命名为 Create Word Style（创建 Word 样式），然后单击 OK（确定）。
5. 当出现 Microsoft Office Project Wizard （Microsoft Office 项目向导）时，确保选择了 Create new document（创建新
文档），然后单击 Finish（完成）。
然后向 Word 文档添加文本。
要向文档添加文本要向文档添加文本
1. 打开 Microsoft Office Word 2003 中的 Create Word Style.doc 文档。
因为您还没有编译该程序集，可能会出现一个警告，提示程序集名称或程序集链接位置属性被破坏。单击 OK（确定）关闭
警告。
2. 添加多段文本，设置不同的段落对齐。例如，居中对齐标题，左对齐一些段落并右对齐另一些段落。
3. 保存并关闭 Word 文档。
复制代码复制代码
然后，必须将 VBA 代码复制并粘贴到 Visual Studio .NET 的新 Word 文档项目中。
要将要将 VBA 代码复制并粘贴到代码复制并粘贴到 Word 项目中项目中
1. 在 Visual Basic .NET 项目中，定位 OfficeCodeBehind 类。
2. 复制 Document_Open 子例程中的 VBA 代码（不包括 Sub 和 End Sub 关键字）并粘贴到 ThisDocument_Open 方法
剩余16页未读，继续阅读
weixin_38544152
- 粉丝: 4
- 资源: 923
我的内容管理
展开
最新资源
- 贵州煤矿矿井水分类与处理策略：悬浮物、酸性与非酸性
- 醛固酮增多症肾上腺静脉采样对比：ACTH后LR-CAV的最优评估
- 开源云连接传感器监控平台：农业土壤湿度远程监测
- 母婴用品企业年度生产计划线性规划优化模型：实证与应用
- 井下智能变电站：Rogowski线圈电流检测系统的研发与性能验证
- 霍州矿区煤巷稳定性分析及支护策略
- ARM嵌入式系统远程软件更新方案：基于TFTP协议
- 煤炭选煤中汞分布规律与洗选脱汞效果
- 提升码垛机器人性能：拉格朗日动力学模型与滑模模糊控制的应用
- 增强现实技术提升学前手写教学：设计与开发案例
- 不规则工作面沉陷三角剖分算法提升与应用
- 卡尔曼滤波在瞬变电磁干扰压制中的应用研究
- 煤矿安全能力研究：理论与系统构建
- LonWorks总线技术在斜巷运输车辆定位与跑车防护中的应用
- 神东煤炭集团高效煤粉锅炉系统：节能环保新实践
- Ti/SnO2+Sb2Ox/PbO2电极分形维数与电催化性能研究
资源上传下载、课程学习等过程中有任何疑问或建议，欢迎提出宝贵意见哦~我们会及时处理！
点击此处反馈
