尝试用excel单元格内容替换书签时出现MS Word自动错误开发者社区

link管理

链接快照平台

输入网页链接，自动生成快照
标签化管理网页链接

相关文章推荐

爱旅游的丝瓜 · 2026 Feature Highlights C· 2 月前 ·

俊秀的鼠标垫 · Office精灵精华演示· 1 月前 ·

会搭讪的骆驼 · excel重复项求和技巧，如何快速实现数据合 ...· 3 周前 ·

无聊的杨桃 · Excel ...· 6 天前 ·

体贴的炒面 · 用Excel软件更改大小写-联想乐享知识库· 6 天前 ·

烦恼的上铺 · 重温经典｜《温州一家人》主创、专家谈：波澜壮 ...· 9 月前 ·

体贴的灯泡 · 國立傳統藝術中心-京劇臉譜· 9 月前 ·

绅士的蚂蚁 · 手握17个品牌代言，王鹤棣商业价值不容小觑！ ...· 10 月前 ·

刀枪不入的啄木鸟 · 《战神4》PC版新史低138元！Steam好 ...· 1 年前 ·

潇洒的茴香 · [Eclipse+PyDev]ImportE ...· 2 年前 ·

Function Read_Excel_Cell(cellRin As Long) As String
Dim oExcel As Excel.Application
Dim myWB As Excel.Workbook
Set oExcel = New Excel.Application
Set myWB = oExcel.Workbooks.Open("excel file")
Read_Excel_Cell = myWB.Sheets(1).Cells(cellRin, 1)
Set myWB = Nothing
Set oExcel = Nothing
End Function
Sub clientinfoexcel()
Dim bmk As Bookmark
For Each bmk In ActiveDocument.Range.Bookmarks
cltext = bmk.Name
Dim clinfo1 As Range
Set clinfo1 = ActiveDocument.Bookmarks(cltext).Range
If clinfo1.Text Like "*name*" Then
    clinfo1.Text = Text: Read_Excel_Cell (1)
    ActiveDocument.Bookmarks.Add cltext, clinfo1
ElseIf clinfo1.Text Like "*address*" Then
    clinfo1.Text = Text: Read_Excel_Cell (2)
    ActiveDocument.Bookmarks.Add cltext, clinfo1
ElseIf clinfo1.Text Like "*appraisal*" Then
    clinfo1.Text = Text: Read_Excel_Cell (3)
    ActiveDocument.Bookmarks.Add cltext, clinfo1
End If
Next bmk
End Sub

Sub clientinfoexcel()
    Dim bmk As bookmark, arrData
    Dim clinfo1 As Range, txt As String
    arrData = ReadExcelData()
    For Each bmk In ActiveDocument.Range.bookmarks
        txt = bmk.Range.Text
        If txt Like "*name*" Then
            SetBookMarkText bmk, arrData(1, 1)
        ElseIf txt Like "*address*" Then
            SetBookMarkText bmk, arrData(1, 1)
        ElseIf txt Like "*appraisal*" Then
            SetBookMarkText bmk, arrData(1, 1)
        End If
    Next bmk
End Sub
'Set the text in a bookmark without destroying it
Sub SetBookMarkText(bmk As bookmark, txt As String)
    Dim nm, rng
    nm = bmk.Name
    Set rng = bmk.Range
    rng.Text = txt
    rng.Parent.bookmarks.Add nm, rng
End Sub
'return Excel data as a 2-d array
Function ReadExcelData()
    Dim oExcel As Excel.Application
    Dim myWB As Excel.Workbook

推荐文章

爱旅游的丝瓜 · 2026 Feature Highlights C

2 月前

俊秀的鼠标垫 · Office精灵精华演示

1 月前

会搭讪的骆驼 · excel重复项求和技巧，如何快速实现数据合并？ • 简道云

3 周前

无聊的杨桃 · Excel VBA技术问询：从单个单元格提取多值分配给多个变量

6 天前

体贴的炒面 · 用Excel软件更改大小写-联想乐享知识库

6 天前

烦恼的上铺 · 重温经典｜《温州一家人》主创、专家谈：波澜壮阔的家庭史诗|温州一家人_新浪财经_新浪网

9 月前

体贴的灯泡 · 國立傳統藝術中心-京劇臉譜

9 月前

绅士的蚂蚁 · 手握17个品牌代言，王鹤棣商业价值不容小觑！_官宣_认可_娇兰

10 月前

1 年前

潇洒的茴香 · [Eclipse+PyDev]ImportError: DLL load failed:找不到指定的模块解决方案 - 简书

2 年前

Stack Overflow用户