2,463
社区成员
发帖
与我相关
我的任务
分享VBA对word文档分节的问题？
请问，我想用VB打开一个空白的word文件，插入三个分节符号，（用于控制修改），然后再地二节插入三个段落，可以吗？
谢谢！
谢谢！
...全文
请发表友善的回复…
发表回复
xch2125535 2006-07-25
- 打赏
- 举报
Sub fen() '检测分栏
'
' fen Macro
' 宏在 2006-7-20 由 student 录制
'
If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
ActiveWindow.Panes(2).Close
End If
If ActiveWindow.ActivePane.View.Type <> wdPrintView Then
ActiveWindow.ActivePane.View.Type = wdPrintView
End If
With Selection.PageSetup.TextColumns
If .Count = 3 Then
num = num + 2
End If
' .EvenlySpaced = True
' .LineBetween = False
' .Width = CentimetersToPoints(4.38)
' .Spacing = CentimetersToPoints(0.75)
End With
MsgBox num
End Sub
这是一个测试分栏的宏你可以看看
'
' fen Macro
' 宏在 2006-7-20 由 student 录制
'
If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
ActiveWindow.Panes(2).Close
End If
If ActiveWindow.ActivePane.View.Type <> wdPrintView Then
ActiveWindow.ActivePane.View.Type = wdPrintView
End If
With Selection.PageSetup.TextColumns
If .Count = 3 Then
num = num + 2
End If
' .EvenlySpaced = True
' .LineBetween = False
' .Width = CentimetersToPoints(4.38)
' .Spacing = CentimetersToPoints(0.75)
End With
MsgBox num
End Sub
这是一个测试分栏的宏你可以看看
tripman 2006-07-19
- 打赏
- 举报
可以，自己录制宏参考一下
ThunkYao 2006-07-19
- 打赏
- 举报
请问，我想用VB打开一个空白的word文件，插入三个分节符号，（用于控制修改），然后再在第二节插入三个段落，可以吗？
谢谢！
谢谢！
