當前讀取選擇線

Question

（這應該propably簡單，但不知何故，我無法找到一個解決方案。）

我只是想讀我的選擇的當前行進入VBA的變量。我不知道當前的段落。選擇是在線的開始。

我的文檔看起來像這樣。所有的

首先，我選中表格的第一行。然後我移動一個段落。現在這就是我想要的路線。正如你在我的第二個img中看到的，我只有第一個字符。

For Each tbl In fileInsertRange.Tables 
    tbl.Rows(1).Select 
    ' save caption 
    Selection.Collapse 
    Selection.MoveUp WdUnits.wdParagraph, 1 

    tableCaption = Selection.Text 

Answer 1

如果您希望將所有表格標題存儲在比試試這個代碼的變量。請記住，您需要立即使用tableCaption變量，然後才能被下一個表格標題覆蓋，或者添加一個數組來存儲所有標題。

Sub get_table_caption() 

Dim currentTable As Table 
Dim tableCaption As String 

'Loop through all tables on active document 
For Each currentTable In ActiveDocument.Tables 

    'Get tables caption and store in a variable called "tableCaption" 
    currentTable.Select 
    Selection.Collapse 
    Selection.MoveUp WdUnits.wdParagraph, 1 
    Selection.Expand wdLine 
    tableCaption = Selection.Text 
    Debug.Print tableCaption 

    'Do stuff with the tables caption 

Next 
End Sub 

如果你想繼續通過選擇表的第一行，發現表的標題比試試這個代碼做你的方式：

Sub get_table_caption() 

Dim tableCaption As String 

    'Get tables caption and store in a variable called "tableCaption" 
    Selection.Collapse 
    Selection.MoveUp WdUnits.wdParagraph, 1 
    Selection.Expand wdLine 
    tableCaption = Selection.Text 
    Debug.Print tableCaption 

End Sub 

希望有所幫助。祝你好運。