R/wdInsertFootnote.R

Defines functions wdInsertFootnote

Documented in wdInsertFootnote

wdInsertFootnote<-
function(text="",reference="",wdapp=.R2wd)
{
    wdsel<-wdapp[['Selection']]
    wdsel$TypeText(" ")
    wdsel$MoveLeft()
    tt<-wdsel[['Footnotes']]$Add(wdsel[['Range']], reference,text)
    wdsel$MoveRight()
    wdsel$MoveRight()
    invisible(tt)
}

Try the R2wd package in your browser

Any scripts or data that you put into this service are public.

R2wd documentation built on May 2, 2019, 8:54 a.m.