求编辑一个简单的VBA程序

⊙司徒包包⊙ 2023-03-18 17:46

• 

  ___北执少年

  2023-03-18 18:19

  1、启动Word，关闭所有打开的文档；2、键入Alt+F11切换到VBA编辑环境；3、键入Ctrl+R激活左边的“工程资源管理器”，双击其中的“Normal - Microsoft Word 对象 - ThisDocument”这个节点；4、在右边的代码编辑区粘贴如下代码：Option ExplicitPrivate Sub Document_New() PasteClipboardContentToHeaderEnd SubPrivate Sub Document_Open() PasteClipboardContentToHeaderEnd SubPrivate Sub PasteClipboardContentToHeader() On Error Resume Next ActiveDocument.Windows(1).Panes(1).View.Type = wdPrintView ActiveDocument.Windows(1).Panes(1).View.SeekView = wdSeekCurrentPageHeader Selection.Paste ActiveDocument.Windows(1).Panes(1).View.SeekView = wdSeekMainDocumentEnd Sub5、键入Ctrl+S保存，再键入Alt+Q关闭VBA窗口并返回到Word主窗口；6、这样以后再次打开或者新建文档时，会自动把当前剪贴板的文字内容（如果有的话）粘贴到页眉中。注意，上面的代码只是一个粗略的方案，没有处理太多异常情况，比如没有考虑如果原来文档就存在页眉的情况，等等。仅作参考吧！此外，使用自动运行宏具有一定的风险，请谨慎……
  0 讨论(0)
  发布评论:

  提交评论

  ---

  •  加载中...