要在不同表格部分之间使用flextable共享脚注，可以使用以下代码示例：

library(flextable)

# 创建第一个表格
table1 <- flextable(head(iris))
# 添加脚注
add_footer_lines(table1, values = "表格1的脚注")

# 创建第二个表格
table2 <- flextable(tail(iris))
# 添加脚注
add_footer_lines(table2, values = "表格2的脚注")

# 获取第一个表格的脚注
footer <- table1$footer

# 将第一个表格的脚注添加到第二个表格中
table2 <- set_footer_docx(table2, footer)

# 打印第一个表格
print(table1)

# 打印第二个表格
print(table2)

这个例子首先创建了两个不同的表格，即table1和table2。然后，分别为这两个表格添加了不同的脚注。接下来，通过set_footer_docx函数将第一个表格的脚注添加到第二个表格中。最后，分别打印了这两个表格。

注意，这里使用的是flextable包中的函数。如果需要将表格导出为Word文档，可以使用print函数将表格打印为docx格式。