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

相关文章推荐

大方的香烟 · 查两个日期的间隔天数 - 百度· 3 周前 ·

痛苦的菠萝 · ExcelVba基本操作，执行重复的复制粘贴 ...· 2 周前 ·

乐观的黄花菜 · 如何将excel文件中的特定单元格移动到py ...· 2 周前 ·

叛逆的警车 · 运用pandas和openpyxl删除空行以 ...· 2 周前 ·

坚强的南瓜 · openpyxl删除单元格内容 - CSDN文库· 2 周前 ·

满身肌肉的椅子 · 有什么什么音乐播放器可以播放wav ...· 1 年前 ·

怕老婆的黑框眼镜 · python特征工程——数据探索及缺失率单值 ...· 1 年前 ·

玩足球的酱牛肉 · ChatGPT火了，区块链和元宇宙没人提了？ ...· 1 年前 ·

阳刚的大熊猫 · 如何在 C# 程序中注入恶意 ...· 1 年前 ·

坏坏的路灯 · Liquibase学习3 - ...· 1 年前 ·

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

推荐文章

大方的香烟 · 查两个日期的间隔天数 - 百度

3 周前

痛苦的菠萝 · ExcelVba基本操作，执行重复的复制粘贴_vba循环复制粘贴指定区域-CSDN博客

2 周前

乐观的黄花菜 · 如何将excel文件中的特定单元格移动到python中具有openpyxl的新列-腾讯云开发者社区-腾讯云

2 周前

叛逆的警车 · 运用pandas和openpyxl删除空行以及合并单元格_python openxl 如何删除部分合并的行-CSDN博客

2 周前

坚强的南瓜 · openpyxl删除单元格内容 - CSDN文库

2 周前

满身肌肉的椅子 · 有什么什么音乐播放器可以播放wav 安卓的谢谢！_百度知道

1 年前

怕老婆的黑框眼镜 · python特征工程——数据探索及缺失率单值率计算 - 腾讯云开发者社区-腾讯云

1 年前

玩足球的酱牛肉 · ChatGPT火了，区块链和元宇宙没人提了？_新浪财经_新浪网

1 年前

阳刚的大熊猫 · 如何在 C# 程序中注入恶意 DLL?_51CTO博客_c# dll注入

1 年前

坏坏的路灯 · Liquibase学习3 - logLevel日志等级、常用命令 - 掘金

1 年前

Stack Overflow用户