Word回车插入时间

cqpp01

采用本论坛的方法，
Sub InsertPageBreak()    Selection.InsertAfter Chr$(13) & Format$(Now, "hh:mm:ss") & ChrW$(12288)
    Selection.EndKey Unit:=wdLine, Extend:=wdMove
End Sub


已经实现ctrl+回车插入时间，
想要改成，时间在一栏，内容在另一栏，
也可以用表格实现时间在第一列，内容在第二列

duquancai

这种代码写来不知道有啥用处！！！！

1. Sub InsertPageBreak()
   
2.     With Selection
   
3.         .InsertAfter Format$(Now, "hh:mm:ss") & vbTab
   
4.         .Expand 4
   
5.         .ConvertToTable 1, 1, 2
   
6.         .Tables(1).Style = "网格型"
   
7.     End With
   
8. End Sub

复制代码

cqpp01

duquancai 发表于 2016-12-5 21:47
这种代码写来不知道有啥用处！！！！

做笔记用的

cqpp01

duquancai 发表于 2016-12-5 21:47
这种代码写来不知道有啥用处！！！！

不过你这个不符合要求啊，可能我没说清楚。表格就是3列，已经画好了的，不是用代码画。一列按Ctrl+回车用代码出现时间，一列我记录内容，一列是我做备注。本来原来那个用的时候，就是文字比较多时，有2、3行时，第二行，第三行就和时间的第一个字左对齐了，但是我希望把时间和记录的内容分开。时间在最左边，记录的内容换行的时候，第二行，第三行和第一行第一个字对齐。