小编Koj*_*jof的帖子

我如何使用VBA以编程方式将图像添加到word文档.

我已经尝试在word文档中添加书签并尝试添加图像,但它总是添加到表单的顶部而不是书签区域.我应该坚持书签还是有其他方式来添加图像？

请参阅下面的代码:

Dim wrdApp As Word.Application
Dim wrdDoc As Word.Document
Set wrdApp = CreateObject("Word.Application")

Dim objWdRange As Word.Range
Dim GraphImage As String
Dim shortString As String 

shortString = Range("short").Value

GraphImage = "http://xxx.xxxxx.com/xxx/xxx.png?instrument=Image.png"

wrdApp.Visible = True
Set wrdDoc = wrdApp.Documents.Open("C:\Program Files\My Dropbox\dailystrategy.doc")

Set objWdRange = wrdDoc.Content

With wrdDoc


    If wrdDoc.Bookmarks.Exists("shortString ") Then
        wrdDoc.Bookmarks("shortString ").Range.Text = shortString 
    End If      

     If wrdDoc.Bookmarks.Exists("GraphImage") Then
        wrdDoc.Bookmarks("GraphImage").Range.InlineShapes.AddPicture Filename:=GraphImage, LinkToFile:=False, SaveWithDocument:=True
     End If


    wrdDoc.SaveAs "c:\temp\test.doc"

  ' close the document
    Set wrdDoc = Nothing
    Set wrdApp = …

有人可以帮我编写正则表达式来检查字母数字字符串是否采用特定格式.

第一个字符必须是字母,接下来的6个字符是数字...例如x279833或X279833都有效.

这就是我想出来的 - ^ [A-Za-z] {1} [0-9] {6} $

问候

我试图总结 Excel VBA 中的一列，但是因为有空格，我得到 0 作为总和。

Dim rExternalTotal As Range , dExternalTotal as Double
Set rExternalTotal = Range(rReportData.Offset(0, 0), rReportData.Offset(261, 0).End(xlUp))
dExternalTotal = Application.WorksheetFunction.Sum(rExternalTotal)

dExternalTotal 始终为零。我无法删除工作表上的空格。任何人都可以建议一种以编程方式进行求和的方法吗？

我需要从gif读取数据.gif从Bloomberg终端导出并包含股票价格.无论如何,阅读这个GIF的股票价格？

我更喜欢用C#来做,但是如果有任何其他编程语言推荐,如果你能与我分享,我将不胜感激.

问候