使用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