Вставьте форму слова в позицию курсора

Question

Im ищет способ вставки формы MS Word в позицию курсора. На данный момент у меня есть следующий код, который вставляет форму в заранее определенном месте:

 Microsoft.Office.Interop.Word.Range CurrRange = Globals.ThisAddIn.Application.Selection.Range; 

     //Get the id of the MS Word shape to be inserted 
     int shapeId = (int)MsoAutoShapeType.msoShapeRoundedRectangle; 
     //Get the value of the name attribute from the selected tree view item 
     string nodeText = treeViewItem.GetAttribute("name"); 

     //Add a new shape to the MS Word designer and set shape properties 
     var shape = CurrRange.Document.Shapes.AddShape(shapeId, 170, 200, 100, 20); 
     shape.AlternativeText = String.Format("Alt {0}", nodeText); 
     shape.TextFrame.ContainingRange.Text = nodeText; 
     shape.TextFrame.ContainingRange.Font.Size = 8; 

Место, где форма получает вставлен жестко закодировано:

Это может быть видно из 2-го и 3-го параметров AddShape() метод:

170 = положение измеряется в точках к левому краю Автоформы

200 = положение, измеренной в точках к верхнему краю Автоформы

Я изучил свойства и методы моего объекта Range, но не могу найти ни одного, в котором хранятся требуемые значения позиции.

Answer 1

Последним параметром AddShape является Anchor, который ожидает объект диапазона. Попробуйте передавая свой диапазон в том, что:

var shape = CurrRange.Document.Shapes.AddShape(shapeId, 0, 0, 100, 20,CurrRange); 

Обновление: Похоже, что есть в Word 2010 документов, которые не уважают якорь bug. Сохраните документ как файл .doc и повторите проверку, он привязывает его к началу абзаца, если вы это сделаете. Ссылка выше только на форумы Microsoft, я не мог найти отчет об ошибке подключения для этой проблемы.

Обходной бы указать верхний и левый на основе расположения выбора:

Microsoft.Office.Interop.Word.Range CurrRange = Globals.ThisAddIn.Application.Selection.Range; 

//Get the id of the MS Word shape to be inserted 
int shapeId = (int)MsoAutoShapeType.msoShapeRoundedRectangle; 

//Get the value of the name attribute from the selected tree view item 
string nodeText = "Hello World"; 

var left = Globals.ThisAddIn.Application.Selection.get_Information(Microsoft.Office.Interop.Word.WdInformation.wdHorizontalPositionRelativeToPage); 
var top = Globals.ThisAddIn.Application.Selection.get_Information(Microsoft.Office.Interop.Word.WdInformation.wdVerticalPositionRelativeToPage); 

//Add a new shape to the MS Word designer and set shape properties 
var shape = CurrRange.Document.Shapes.AddShape(shapeId, left, top, 100, 20); 
shape.AlternativeText = String.Format("Alt {0}", nodeText); 
shape.TextFrame.ContainingRange.Text = nodeText; 
shape.TextFrame.ContainingRange.Font.Size = 8;