如何将带有图形标题的图像添加到 Word 文档中

Question

import win32com.client as win32
import os

#creating a word application object
wordApp = win32.gencache.EnsureDispatch('Word.Application') #create a word application object
wordApp.Visible = True # hide the word application
doc = wordApp.Documents.Add() # create a new application

#Formating the document
doc.PageSetup.RightMargin = 10
doc.PageSetup.LeftMargin = 10
doc.PageSetup.Orientation = win32.constants.wdOrientLandscape
# a4 paper size: 595x842
doc.PageSetup.PageWidth = 595
doc.PageSetup.PageHeight = 842


# Inserting Tables
my_dir="C:/Users/David/Documents/EGi/EGi Plots/FW_plots/Boxplots"
filenames = os.listdir(my_dir)
piccount=0
file_count = 0
for i in filenames:
    if i[len(i)-3: len(i)].upper() == 'JPG': # check whether the current object is a JPG file
        piccount = piccount + 1

print piccount, " images will be inserted"

total_column = 1
total_row = int(piccount/total_column)+2
rng = doc.Range(0,0)
rng.ParagraphFormat.Alignment = win32.constants.wdAlignParagraphCenter
table = doc.Tables.Add(rng,total_row, total_column)
table.Borders.Enable = False
if total_column > 1:
    table.Columns.DistributeWidth()

#Collecting images in the same directory and inserting them into the document


piccount = 1

for index, filename in enumerate(filenames): # loop through all the files and folders for adding pictures

    if os.path.isfile(os.path.join(os.path.abspath(my_dir), filename)): # check whether the current object is a file or not
        if filename[len(filename)-3: len(filename)].upper() == 'JPG': # check whether the current object is a JPG file
            piccount = piccount + 1
            print filename, len(filename), filename[len(filename)-3: len(filename)].upper()


            cell_column = (piccount % total_column + 1) #calculating the position of each image to be put into the correct table cell
            cell_row = (piccount/total_column + 1)
            #print 'cell_column=%s,cell_row=%s' % (cell_column,cell_row)

            #we are formatting the style of each cell
            cell_range= table.Cell(cell_row, cell_column).Range
            cell_range.ParagraphFormat.LineSpacingRule = win32.constants.wdLineSpaceSingle
            cell_range.ParagraphFormat.SpaceBefore = 0
            cell_range.ParagraphFormat.SpaceAfter = 3

            #this is where we are going to insert the images
            current_pic=cell_range.InlineShapes.AddPicture(os.path.join(os.path.abspath(my_dir), filename))


            #Currently this puts a lable in a cell after the pic, I want to put a proper ms word figure caption below the image instead.
            table.Cell(cell_row, cell_column).Range.InsertAfter("\n"+"Appendix II Figure "+ str(piccount-1)+": "+filename[:len(filename)-4]+"\n"+"\n"+"\n")


        else: continue

此代码获取所选目录中的所有图像并将它们放在 word doc 中的表格中，然后将文件名（去除文件 extn）放在下面的单元格中。我想要一个合适的图形标题（这样如果我插入更多图片，这些标题会更新），但我尝试过的一切都失败了。

我只是无法正确使用 VB 命令，这是：

table.Cell(cell_row, cell_column).Range.InsertAfter(InsertCaption(Label="Figure", Title=": "+filename[:len(filename)-4]))

在文档末尾给了我一个图形标题列表，这并不是我真正想要的。我觉得我很接近，但我无法完全理解。谢谢！

Answer 1

为了使用 Word 的内置字幕而不是 current_pic.InsertCaption，请使用 current_Pic.Range.InsertCaption。 InsertCaption 方法是 Range 的成员，而不是 InlineShape 对象。对我来说，这会自动在图片下方的自己的段落中插入标题。但是，如果您想明确“低于”，也可以使用 Position 参数：

current_pic.Range.InsertCaption(Label="Figure", Title=": "+filename[:len(filename)-4]), Position=win32.constants.wdCaptionPositionBelow

注意：当我测试你所说的代码行（在 VBA 中）时，FWIW 会在文档末尾为你提供一个标题列表，我确实在与插入图片相同的单元格中看到了文本。