Как вставить изображение и текст в шаблон Microsoft Word?

Ниже код с spire.doc

var doc = new Document();
doc.LoadFromFile(@"E:\test.docx", FileFormat.Doc);
var image = Image.FromFile(@"E:\nice.jpg");
var picture1 = doc.Sections[0].Paragraphs[0].AppendPicture(image);
picture1.VerticalAlignment = ShapeVerticalAlignment.Top;
picture1.HorizontalAlignment = ShapeHorizontalAlignment.Left;
picture1.TextWrappingStyle = TextWrappingStyle.Square;
doc.SaveToFile(@"..\..\result.doc", FileFormat.Doc);
System.Diagnostics.Process.Start(@"..\..\result.doc");

Как вставить изображение и текст в определенные позиции в шаблоне Word, используя библиотеки spire.doc или Microsoft.Office.Interop.Word?

Или аналогичная этой ссылка с вставкой изображения в определенную позицию в шаблон мира.


c# spire.doc
person Hossein Hagh    schedule 13.11.2013    source источник

Ответы (2)


arrow_upward
0
arrow_downward

person VahidN    schedule 14.11.2013

arrow_upward
0
arrow_downward

с помощью Microsoft.Office.Interop.Word,

во-первых, вам нужно убедиться, что выбор находится в правильном положении,

затем вставьте изображения, есть несколько вариантов, вот мой код,

If bInline Then
    Dim oInlineShape As InlineShape = m_oWordApp.Selection.InlineShapes.AddPicture(FileName:=sImageFilePath, LinkToFile:=False, SaveWithDocument:=True)
oInlineShape.Range.ParagraphFormat.Alignment = nAlignment
    If nHeight > 0 AndAlso nWidth > 0 Then
        oInlineShape.LockAspectRatio = MsoTriState.msoFalse
        oInlineShape.Height = nHeight
        oInlineShape.Width = nWidth
    End If
Else
    Dim oShape As Word.Shape = m_oWordApp.ActiveDocument.Shapes.AddPicture(Anchor:=m_oWordApp.Selection.Range, FileName:=sImageFilePath, LinkToFile:=False, SaveWithDocument:=True)
    If nHeight > 0 AndAlso nWidth > 0 Then
        oShape.LockAspectRatio = MsoTriState.msoFalse
        oShape.Height = nHeight
        oShape.Width = nWidth
    End If
End If

вставить текст довольно просто, вам просто нужно убедиться, что объект выделения находится в правильном положении, а затем,

m_oWordApp.Selection.Text = sMsg
'you can update background colors ....
m_oWordApp.Selection.Range.HighlightColorIndex = 0
'you update fonts ....
m_oWordApp.Selection.Font.Bold = True

Надеюсь, поможет.

person Victor Xie    schedule 10.09.2018