Member 11939360 Ответов: 2

Вставка изображений и заголовка изображения из папки в word

Я не могу правильно вставить изображения и Заголовок изображения.
Первый заголовок обновляется, а затем все изображения вставляются в документ.
Как добавить заголовок для всех изображений.

Что я уже пробовал:

public static void Wordtest1()
{
   Microsoft.Office.Interop.Word.Application wordApplication = new Microsoft.Office.Interop.Word.Application();//Create an instance for word app
   wordApplication.Visible = false;//Set animation status for word application
   Microsoft.Office.Interop.Word.Document document = wordApplication.Documents.Add();
   string dirPath = @"";

   foreach (string filePath in Directory.GetFiles(dirPath, "*.jpg").Reverse())
    {
        // Insert text
        string p = Path.GetFileNameWithoutExtension(filePath);

        var pText = document.Paragraphs.Add();
        pText.Format.SpaceAfter = 10f;
        pText.Range.Text = String.Format("This is line #{0}", p);
        pText.Range.InsertParagraphAfter();


        // Insert picture
        var pPicture = document.Paragraphs.Add();
        pPicture.Format.SpaceAfter = 10f;
        document.InlineShapes.AddPicture(filePath);
    }

    // Save settings
    document.SaveAs(@"" + @"\Report.doc");

    // Close word
    wordApplication.Quit();
}

Graeme_Grant

Я вижу, что вы обновили свой код для вставки изображений из моего ответа ниже. Теперь перепишите макрос и вручную введите заголовок после вставки изображения, и у вас будет остальная часть вашего ответа.

2 Ответов

Рейтинг:
13

Karthik_Mahalingam

попробовать это

foreach (string filePath in Directory.GetFiles(dirPath, "*").Reverse())
          {
              string p = Path.GetFileNameWithoutExtension(filePath);
              var paragraph = document.Paragraphs.Add();
              paragraph.Range.Text = String.Format("This is line #{0}", p);
              paragraph.Range.InlineShapes.AddPicture(filePath);
              paragraph.Range.InsertParagraphAfter();
          }

Рейтинг:
0

Graeme_Grant

Самый простой способ понять, как вставить изображение в документ Word, - это Создание или запуск макроса[^]

Я последовал приведенным выше инструкциям и записал следующее:

Sub Macro1()
'
' Macro1 Macro
'
'
    Selection.InlineShapes.AddPicture FileName:= _
        "C:\\blacksheep.png", LinkToFile:=False, _
        SaveWithDocument:=True
End Sub

Теперь вам будет легко обновить свой код.