Создавать закладки в Word 2010 программным способом, с именем заголовка в качестве имени закладки

Question

мне нужно для создания закладок в Word 2010 программным способом, с именем заголовка в качестве имени закладки.

У меня есть следующий код, который делает слово закладки, но имя закладки остается такими же, как строка Heading 1 доступно только в переменном имени:

Sub bookmarking() 
    Selection.EndKey Unit:=wdLine, Extend:=wdExtend 
    With ActiveDocument.Bookmarks 
     .Add Range:=Selection.Range, Name:=" Heading 1" 
     .DefaultSorting = wdSortByName 
     .ShowHidden = False 
    End With 
End Sub 

Вместо того, Heading 1 в переменном имени , Я хочу контент из буфера обмена. Помогите мне заменить это Heading 1 содержимым буфера обмена.

Answer 1

Используйте DataObject из Microsoft Forms 2.0 Object Library:

Private Function GetClipboardData() 
    Dim objDataObject As MSForms.DataObject ''need to add reference in Tools |References 
    Set objDataObject = New MSForms.DataObject 

    objDataObject.GetFromClipboard 
    On Error Resume Next 
    GetClipboardData = objDataObject.GetText 
    If Err.Number = -2147221404 Then 
     MsgBox "Error: current clipboard data is either empty or is not text. Clibpoard must contain text." 
    End If 
End Function 

Затем обратно свой основной код, есть имя закладки быть этот буфер данных:

... 
.Add Range:=Selection.Range, Name:=GetClipboardData() 
... 

Это хороший старт для вас? Существуют и другие способы, которые могут быть более надежными в зависимости от ваших потребностей. Однако это должно служить хорошим доказательством концепции.