capturing output of meta-analysis loop in R studio

I have ran a meta-analysis loop via code below:

meta_results <- list()
for (outcom in unique(df$outcom)) {
  outcom_data <- df[df$outcom == outcom, ]
  meta_result <- metagen(
                        TE = SMD,   
                        seTE = seTE,  
                        studlab = paste(study),
                        data = outcom_data,           
                        sm = "SMD",              
                        method.tau = "REML")
  meta_results[[stage]] <- meta_result
}
print(meta_results)

Question NOW:
the output is a list of more than 50 meta-analysis because there were 50 outcomes (including study levels SMD, pval, pooled effect sizes, etc) which is a lot.

I wanted a to export output of all of these results in a word doc

I used code below:

library(officer)
doc <- read_docx()
 for (outcom in names(meta_results)) {
 summary <- meta_results[[outcom]]
  doc <- body_add_par(doc, paste0("Outcome: ", outcom), style = "heading 1")
   summary_text <- capture.output(print(summary))
  }
 print(doc, target = "meta_results.docx")

but it only exports header, not any result.

could you help me?