使用vba将计算值设置为Word文档中的书签

Question

查看此vba代码;此vba代码当前将从单元格E40中复制一个值，并将其粘贴到单词模板中的特定书签位置“fundedRatio”中。我想要做的是在val中访问新计算的值，并将其设置为特定书签“fundedRatio”。我如何在vba中做到这一点？在Java GUI应用程序中将会像这样获得资助Ratio.setText（val）;但是，我如何在vba中做到这一点？

DIM gfy as Double 
gfy = Sheets("Income & Expenditure Analysis").Range("E40").Copy 
val = gfy*2 
myDoc.Bookmarks("fundedRatio").Range.PasteSpecial Link:=False,  
DataType:=wdPasteText 

Answer 1

你可以做这样的事情：

Dim gfy as Double 
Dim val As Double 
gfy = Sheets("Income & Expenditure Analysis").Range("E40").Value 'no copy here 
val = gfy*2 
myDoc.Bookmarks("fundedRatio").Range.Text = val