diff --git a/NEWS.md b/NEWS.md
index 998c933..09ebd79 100644
--- a/NEWS.md
+++ b/NEWS.md
@@ -2,7 +2,8 @@
 
 ## New features
 
-* `colformat_md` supports multiple paragprahs by collapsing them with a separator given to the `.sep` argument (default: `"\n\n").
+* `colformat_md` supports multiple paragprahs by collapsing them with a separator given to the `.sep` argument (default: `"\n\n") (#43).
+* `colformat_md` can now automatically add citations to reference on R Markdown (#48).
 
 ## Bug fixes
 
diff --git a/R/colformat.R b/R/colformat.R
index 4c84e74..8176d60 100644
--- a/R/colformat.R
+++ b/R/colformat.R
@@ -54,11 +54,13 @@ colformat_md <- function(x,
     return(x)
   }
 
+  texts <- unlist(dataset[col], use.names = FALSE)
+
   # Must evaluate outside add_footnotes due to lazy evaluation of arguments
   ft <- flextable::compose(x,
                            i = seq(nrow(dataset)), j = col, part = part,
                            value = as_paragraph_md(
-                             unlist(dataset[col], use.names = FALSE),
+                             texts,
                              auto_color_link = auto_color_link,
                              .from = .from,
                              md_extensions = md_extensions,
@@ -67,7 +69,11 @@ colformat_md <- function(x,
                              .sep = .sep
                            ))
 
-  add_footnotes(ft, part, .footnote_options)
+  structure(
+    add_footnotes(ft, part, .footnote_options),
+    class = c("ftExtra", class(ft)),
+    citations = collect_citations(paste(texts, collapse = "\n\n"))
+  )
 }
 
 where <- function(...) {
diff --git a/R/collect-citations.R b/R/collect-citations.R
new file mode 100644
index 0000000..175cf9a
--- /dev/null
+++ b/R/collect-citations.R
@@ -0,0 +1,14 @@
+collect_citations <- function(x, .from = 'markdown') {
+  tf <- tempfile()
+  xfun::write_utf8(x, tf)
+  rmarkdown::pandoc_convert(
+    input = tf,
+    to = "markdown",
+    from = .from,
+    output = tf,
+    citeproc = FALSE,
+    options = lua("cite.lua"),
+    wd = getwd()
+  )
+  paste(readLines(tf), collapse = "")
+}
diff --git a/R/knit-print.R b/R/knit-print.R
new file mode 100644
index 0000000..86e08ce
--- /dev/null
+++ b/R/knit-print.R
@@ -0,0 +1,27 @@
+#' knit_print for extended flextable object
+#'
+#' Adds a YAML meta data block to cite materials found by `colformat_md()` in
+#' the `flextable` object.
+#'
+#' @inheritParams knitr::knit_print
+#' @param label
+#'  A key to be set in the YAML meta data block to cite materials.
+#'  This must be unique in the document.
+#'  Default value is the chunk label prepended by "ftExtra-cite-".
+#'
+#' @return The `knit_asis` class object.
+#' @noRd
+knit_print.ftExtra <- function(x,
+                               options,
+                               ...,
+                               key = paste0("ftExtra-cite-", options$label)) {
+  ft <- NextMethod("knit_print", x, options, ...)
+
+  cite <- attr(x, "citations", exact = TRUE)
+
+  if (cite == "") return(ft)
+
+  res <- sprintf('---\n%s: "%s"\n---\n\n%s', key, cite, ft)
+  attributes(res) <- attributes(ft)
+  res
+}
diff --git a/R/zzz.R b/R/zzz.R
new file mode 100644
index 0000000..92c6dcd
--- /dev/null
+++ b/R/zzz.R
@@ -0,0 +1,3 @@
+.onLoad <- function(libname, pkgname) {
+  registerS3method("knit_print", "ftExtra", knit_print.ftExtra, asNamespace("knitr"))
+}
diff --git a/docs/news/index.html b/docs/news/index.html
index d282709..16dfa26 100644
--- a/docs/news/index.html
+++ b/docs/news/index.html
@@ -141,7 +141,9 @@ <h2 class="hasAnchor">
 <a href="#new-features" class="anchor"></a>New features</h2>
 <ul>
 <li>
-<code>colformat_md</code> supports multiple paragprahs by collapsing them with a separator given to the <code>.sep</code> argument (default: `“\n\n”).</li>
+<code>colformat_md</code> supports multiple paragprahs by collapsing them with a separator given to the <code>.sep</code> argument (default: `“\n\n”) (<a href='https://github.com/atusy/ftExtra/issues/43'>#43</a>).</li>
+<li>
+<code>colformat_md</code> can now automatically add citations to reference on R Markdown (<a href='https://github.com/atusy/ftExtra/issues/48'>#48</a>).</li>
 </ul>
 </div>
 <div id="bug-fixes" class="section level2">
diff --git a/inst/lua/cite.lua b/inst/lua/cite.lua
new file mode 100644
index 0000000..82a9435
--- /dev/null
+++ b/inst/lua/cite.lua
@@ -0,0 +1,12 @@
+cite = {}
+
+function Cite(elem)
+  table.insert(cite, elem)
+  table.insert(cite, pandoc.Space())
+end
+
+function Pandoc(doc)
+  table.remove(cite)
+  doc.blocks = {pandoc.Para(cite)}
+  return doc
+end