Ms word 使用VBA操作DDE？

我有一个CRM应用程序（GoldMine），它充当DDE服务器，允许使用DDE将合并字段拉入Word文档，如下所示：

{ DDE GOLDMINE DATA CONTACT2->UPREAWDAMT \* CHARFORMAT }

正如您所知，DDE不会传递任何格式，我想使用VBA对这些字段进行一些字符串操作，但我不确定如何实现这一点

---

我知道我可以打开一个新的DDE频道和所有这些，并获取信息。这样做-但我特别希望重用现有信息-而不是打开新通道？

我不知道如何使用VBA，但GoldMine支持dBASE表达式（如Lookup.ini文件），您可以在文档模板中使用它们来操作字符串。 例如：

{ IF { DDE GOLDMINE DATA &LEN(DTOS(CONTACT2->UPROLONG)) \* CHARFORMAT } > 0 { DDE GOLDMINE DATA WDATE(CONTACT2->UPROLONG,3) \* CHARFORMAT } { DDE GOLDMINE DATA '<<__>>\ ________\ '+SUBSTR(DTOS(DATE()),1,4) \* CHARFORMAT }}

{IF{DDE GOLDMINE DATA&LEN（DTOS（CONTACT2->uplong））\*CHARFORMAT}>0{DDE GOLDMINE DATA WDATE（CONTACT2->uplong，3）\*CHARFORMAT}{DDE GOLDMINE DATA'\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\+SUBSTR（DTOS（DATE（）），1,4）\*CHARFORMAT}

---

其中LEN（[string]），dto（[date]），WDATE（[date]，[format]），SUBSTR（[string]，[start]，[length]），date（-dBASE函数

我不知道如何使用VBA，但GoldMine支持dBASE表达式（如在Lookup.ini文件中）您可以在文档模板中使用它们来操作字符串。 例如：

{ IF { DDE GOLDMINE DATA &LEN(DTOS(CONTACT2->UPROLONG)) \* CHARFORMAT } > 0 { DDE GOLDMINE DATA WDATE(CONTACT2->UPROLONG,3) \* CHARFORMAT } { DDE GOLDMINE DATA '<<__>>\ ________\ '+SUBSTR(DTOS(DATE()),1,4) \* CHARFORMAT }}

{IF{DDE GOLDMINE DATA&LEN（DTOS（CONTACT2->uplong））\*CHARFORMAT}>0{DDE GOLDMINE DATA WDATE（CONTACT2->uplong，3）\*CHARFORMAT}{DDE GOLDMINE DATA'\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\+SUBSTR（DTOS（DATE（）），1,4）\*CHARFORMAT}

其中LEN（[string]），dto（[date]），WDATE（[date]，[format]），SUBSTR（[string]，[start]，[length]），日期（-dBASE函数