word表格没有光标 word表格不能编辑

发布日期：2020-08-19

word表格中空白出没有光标,没法输入,求解决办法

如果在wod表格中需要输入大量数据，为什么不使用EXCEL进行处理呢？ 第一、它可以满足您按回车键使光标进入同列的下一个单元格。

第二、用EXCEL进行编辑的数据，便于后续管理以及数据处理。

第三、如果必须用wod表格的话，可以在EXCEL中进行编辑，然后复制粘贴到wod表格中去。

第四、 第五、 ……

word表格上方不能打字,光标不能选中表格外的空白处,求解~~

移动光标至文档开始 Selection.HomeKey unit:=wdStory 下面的供参考： Sub MoveToCurrentLineStart（) "移动光标至当前行首 Selection.HomeKey unit:=wdLine End Sub Sub MoveToCurrentLineEnd（) "移动光标至当前行尾 Selection.EndKey unit:=wdLine End Sub Sub SelectToCurrentLineStart（) "选择从光标至当前行首的内容 Selection.HomeKey unit:=wdLine, Extend:=wdExtend End Sub Sub SelectToCurrentLineEnd（) "选择从光标至当前行尾的内容 Selection.EndKey unit:=wdLine, Extend:=wdExtend End Sub Sub SelectCurrentLine（) "选择当前行 Selection.HomeKey unit:=wdLine Selection.EndKey unit:=wdLine, Extend:=wdExtend End Sub Sub MoveToDocStart（) "移动光标至文档开始 Selection.HomeKey unit:=wdStory End Sub Sub MoveToDocEnd（) "移动光标至文档结尾 Selection.EndKey unit:=wdStory End Sub Sub SelectToDocStart（) "选择从光标至文档开始的内容 Selection.HomeKey unit:=wdStory, Extend:=wdExtend End Sub Sub SelectToDocEnd（) "选择从光标至文档结尾的内容 Selection.EndKey unit:=wdStory, Extend:=wdExtend End Sub Sub SelectDocAll（) "选择文档全部内容（从WholeStory可猜出Story应是当前文档的意思） Selection.WholeStory End Sub Sub MoveToCurrentParagraphStart（) "移动光标至当前段落的开始 Selection.MoveUp unit:=wdParagraph End Sub Sub MoveToCurrentParagraphEnd（) "移动光标至当前段落的结尾 Selection.MoveDown unit:=wdParagraph End Sub Sub SelectToCurrentParagraphStart（) "选择从光标至当前段落开始的内容 Selection.MoveUp unit:=wdParagraph, Extend:=wdExtend End Sub Sub SelectToCurrentParagraphEnd（) "选择从光标至当前段落结尾的内容 Selection.MoveDown unit:=wdParagraph, Extend:=wdExtend End Sub Sub SelectCurrentParagraph（) "选择光标所在段落的内容 Selection.MoveUp unit:=wdParagraph Selection.MoveDown unit:=wdParagraph, Extend:=wdExtend End Sub Sub DisplaySelectionStartAndEnd（) "显示选择区的开始与结束的位置，注意：文档第1个字符的位置是0 MsgBox （＂第＂ & Selection.Start & ＂个字符至第＂ & Selection.End & ＂个字符＂） End Sub Sub DeleteCurrentLine（) "删除当前行 Selection.HomeKey unit:=wdLine Selection.EndKey unit:=wdLine, Extend:=wdExtend Selection.Delete End Sub Sub DeleteCurrentParagraph（) "删除当前段落 Selection.MoveUp unit:=wdParagraph Selection.MoveDown unit:=wdParagraph, Extend:=wdExtend Selection.Delete End Sub