向Word输入TAB的问题,十万火急

FlyInBlueSky 2006-03-14 01:27:52

在Word文件中的Table中的任何一个格，如果用键盘的"TAB",光标会自动跳入下一个格，如果这一格是本行的最后一格的时候，会自动换行。
我现在在做一个操作：将一个数据库里面的数据往Word的网格里面写，不知道怎么样的字符串中间加入"TAB"可以让网格自动填充，并换行，各位知道这个答案的兄弟，快点救命！
示例如下：
Dim CreateWordSheet As Object
Set CreateWordSheet = CreateObject("word.application")
CreateWordSheet.Documents.Open strDocPath, , False, , , , False
With CreateWordSheet
strValue = strValue & TAB & "ASAS" & TAB & "sdsd"
.ActiveDocument.Bookmarks("ASASA").Select
.Selection = strValue
END With
这里的这个"TAB"怎么样写进WORD会是键盘的TAB功能,谢谢知道的兄弟赐教!

...全文

363 8 打赏收藏转发到动态举报

写回复

用AI写文章

8 条回复

切换为时间正序

请发表友善的回复…

发表回复

FlyInBlueSky 2006-03-15

打赏
举报

谢谢faysky2() 的方法，这种方法比较可行！

faysky2 2006-03-14

打赏
举报

如果你要填充的数据已经放到一个字符串里了，那么先把字符串的数据分解到数组里，再用上面的方法把数组的数据填充到表格里

faysky2 2006-03-14

打赏
举报

那直接在表格的单元格里写内容，写完一个后让光标移动到下一个单元格再写......

Private Sub Command6_Click()
' On Error Resume Next
Dim docApp As Object
Dim docDocument As Object
Set docApp = CreateObject("Word.Application")
docApp.Visible = True
Set docDocument = docApp.Documents.Open(App.Path & "\Test.doc")
Set docTable = docDocument.Tables(1)
'******************************
docTable.Cell(1, 1).Select
docApp.Selection.Text = "ASAS"
docApp.Selection.MoveRight wdCell
docApp.Selection.Text = "sdsd"
docApp.Selection.MoveRight wdCell
docApp.Selection.Text = "dfdf"
docApp.Selection.MoveRight wdCell
docApp.Selection.Text = "fgfg"
docApp.Selection.MoveRight wdCell
docApp.Selection.Text = "ghgh"
'......
'******************************
Set docApp = Nothing
Set docDocument = Nothing
End Sub

FlyInBlueSky 2006-03-14