[office]word2010、word2013、word2016比较查重软件

最新推荐文章于 2024-07-20 17:12:48 发布
最新推荐文章于 2024-07-20 17:12:48 发布
阅读量2.8k 收藏 4
点赞数 2
文章标签： python shell
原文链接：https://my.oschina.net/u/2464371/blog/3037367
版权

2019独角兽企业重金招聘Python工程师标准>>> hot3.png

  1. word自带：审阅-比较
  • 只能比较差不多的文档
  1. beyond compare
  • 只能比较差不多的文档 3、vba，功能强大，代码见下（包括文字、图片、表格）

NewMacros.bas

Sub 检查雷同64()
'
' 检查雷同 宏
'
'
 UserForm_x64.Show vbModeless
 
End Sub

Sub 检查雷同()
'
' 检查雷同 宏
'
'
 UserForm_x86.Show vbModeless
 
End Sub

UserForm_x86.frm

'在2013版本下开发，2010与2016版本测试OK，其他版本应该也可以但未测试不能保证正常使用

Option Explicit

'//适用与32位环境
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long
Private Declare Function SetFocus Lib "user32" (ByVal hWnd As Long) As Long

'//适用与64位office
'Private Declare PtrSafe Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
'Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
'Private Declare PtrSafe Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
'Private Declare PtrSafe Function ShowWindow Lib "user32" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long
'Private Declare PtrSafe Function SetFocus Lib "user32" (ByVal hWnd As Long) As Long


Private Const GWL_STYLE As Long = (-16)
Private Const GWL_EXSTYLE = (-20)
Private Const WS_THICKFRAME As Long = &H40000 '(恢复大小)
Private Const WS_MINIMIZEBOX As Long = &H20000 '(最小化)
Private Const WS_MAXIMIZEBOX As Long = &H10000 '(最大化)
Private Const SW_SHOW As Long = 5
Private Const WS_CAPTION As Long = &HC00000
Private Const WS_EX_APPWINDOW As Long = &H40000

Dim hWndForm As Long, IStyle As Long
Dim hMin As Long, hBar As Long, hTaskbar As Long
Dim ADoc As Document, BDoc As Document, CDoc As Document
Dim HighlightFinder As Boolean
Dim started As Boolean


Private Sub CommandButton8_Click()
On Error GoTo Err
Dim i As Long, icount As Long
Dim apage As Long
Dim Amap As New Collection, Bmap As New Collection
Dim ftest As String
Dim myFind As Find
Dim bfind As Boolean
Dim txtRange As Range
Dim myStart As Long, myEnd As Long


Label4.Caption = "0%"

If ADoc Is Nothing Then
    MsgBox "请选择并打开主文件！"
    Exit Sub
End If

If Dir("c:\方案检查\行政区（不要删）.txt") = Empty Then
    MsgBox "请检查c:\方案检查\行政区（不要删）.txt是否存在！"
    Exit Sub
End If

started = Not started
If started Then
    CommandButton8.Caption = "正在检查,点击停止"
Else
    CommandButton8.Caption = "检查行政区名"
End If


Open "c:\方案检查\行政区（不要删）.txt" For Input As #1
Do While Not EOF(1)
    Line Input #1, ftest
    ftest = Trim(ftest)
    If Len(ftest) > 0 Then Amap.Add ftest
    DoEvents
    If Not started Then
        Close #1
        started = Not started
        Exit Sub
    End If
Loop
Close #1
For i = 1 To Amap.Count
    apage = 0
    ftest = Amap.Item(i)
    Set myFind = ADoc.Content.Find
    Do While myFind.Execute(ftest, False, False, False, False, False, True, wdFindStop, False)
        Set txtRange = myFind.Parent
        apage = myFind.Parent.Information(wdActiveEndPageNumber)
        myStart = txtRange.Start
        myEnd = txtRange.End
        txtRange.Start = txtRange.Start - 20
        txtRange.End = txtRange.End + 30
        Bmap.Add (ftest + vbTab + "P" + Str(apage) + vbTab + txtRange.Text)
        txtRange.Start = myStart
        txtRange.End = myEnd
        DoEvents
    Loop

    Label4.Caption = Str(Int(i * 100 / Amap.Count)) + "%"
    DoEvents
    If Not started Then i = Amap.Count
Next


If Dir("c:\方案检查\", vbDirectory) = "" Then MkDir "c:\方案检查\"
    Open "c:\方案检查\查到的行政区.txt" For Output As #1
    Print #1, "查到的行政区文字如下："
    For i = 1 To Bmap.Count
        Print #1, Bmap.Item(i)
    Next
    Close #1
    If MsgBox("请查看 c:\方案检查\查到的行政区.txt", vbOKCancel) = vbOK Then Shell "Explorer.exe c:\方案检查\查到的行政区.txt", vbNormalFocus
    started = Not started
    If started Then
        CommandButton8.Caption = "正在检查,点击停止"
    Else
        CommandButton8.Caption = "检查行政区名"
    End If
Exit Sub


Err:
    MsgBox "出错了！" & vbCrLf & "错误编号：" & Err.Number & " 错误描述：" & Err.Description
    Close #1
    started = False
    CommandButton8.Caption = "检查行政区名"
'Resume Next

End Sub

Private Sub UserForm_Initialize()

hWndForm = FindWindow("ThunderDFrame", Me.Caption)
IStyle = GetWindowLong(hWndForm, GWL_STYLE)
'IStyle = IStyle Or WS_THICKFRAME '还原
'IStyle = IStyle Or WS_MINIMIZEBOX '最小化
'IStyle = IStyle Or WS_MAXIMIZEBOX '最大化
'SetWindowLong hWndForm, GWL_STYLE, IStyle
SetFocus hWndForm
started = False
End Sub

Private Sub UserForm_Terminate()
    ThisDocument.Application.Visible = True
End Sub


Function FindLB(ByVal test As String, apage As Long) As Boolean
Dim myFind As Find
Set myFind = ADoc.Content.Find
If CDoc Is Nothing Then
    FindLB = myFind.Execute(test, False, False, False, False, False, True, wdFindContinue, False)
    If FindLB Then
        apage = myFind.Parent.Information(wdActiveEndPageNumber)
        If HighlightFinder Then myFind.Parent.HighlightColorIndex = wdYellow
    End If
Else
    If CDoc.Content.Find.Execute(test, False, False, False, False, False, True, wdFindContinue, False) Then
        FindLB = False
    Else
        FindLB = myFind.Execute(test, False, False, False, False, False, True, wdFindContinue, False)
        If FindLB Then
            apage = myFind.Parent.Information(wdActiveEndPageNumber)
            If HighlightFinder Then myFind.Parent.HighlightColorIndex = wdYellow
        End If
    End If
End If
End Function


Sub GMap()
On Error GoTo Err
Dim i As Long, icount As Long, p As Long, s As Long, ls As Long
Dim apage As Long, bpage As Long
Dim Bmap As New Collection
Dim strRange As String, ftest As String
Dim fRange As Range, iRange As Range

icount = BDoc.Paragraphs.Count
For i = 1 To icount
    Set iRange = BDoc.Paragraphs(i).Range
'    strRange = Trim(iRange.Text)
    strRange = Trim(Replace(iRange.Text, "，", "。"))
'大与3个字符才检查
    ls = Len(strRange)
    If ls > 3 Then
        p = 0
        Do While p < ls
            If started = False Then Exit Sub
            s = p + 1
            p = InStr(s, strRange, "。")
            '字符数控制在4～254
            If p = 0 Then p = ls + 1
            If p - s > 255 Then p = s + 255
            If p - s > 3 Then
                ftest = Mid(strRange, s, p - s)
                If FindLB(ftest, apage) Then
                    If HighlightFinder Then
                        Set fRange = BDoc.Range(Start:=iRange.Start + s - 1, End:=iRange.Start + p - 1)
                        fRange.HighlightColorIndex = wdYellow
                    End If
                    bpage = iRange.Information(wdActiveEndPageNumber)
                    Bmap.Add ("P" + Str(apage) + "——>P" + Str(bpage) + vbTab + ftest)
                End If
            End If
            DoEvents
        Loop
    End If
    Label4.Caption = Str(Int(i * 100 / BDoc.Paragraphs.Count)) + "%"
Next

If Bmap.Count = 0 Then
    MsgBox "没有找到雷同内容"
Else
    If Dir("c:\方案检查\", vbDirectory) = "" Then MkDir "c:\方案检查\"
    Open "c:\方案检查\查重.txt" For Output As #1
    Print #1, "可能雷同内容如下："
    Print #1, "主文件位置" + vbTab + "对比文件位置" + vbTab + "雷同内容"
    For i = 1 To Bmap.Count
        Print #1, Bmap.Item(i)
    Next
    Close #1
'    MsgBox "请查看 c:\方案检查\查重.txt"
    If MsgBox("请查看 c:\方案检查\查重.txt", vbOKCancel) = vbOK Then Shell "Explorer.exe c:\方案检查\查重.txt", vbNormalFocus
End If
Exit Sub
Err:
    MsgBox "出错了！" & vbCrLf & "错误编号：" & Err.Number & " 错误描述：" & Err.Description
'Resume Next
End Sub

Function ExtractShape(Mdoc As Document) As Boolean
On Error GoTo Err
Dim sDoc As Document
Dim Mshape As InlineShape
Dim sRange As Range
Dim i As Long, EndPos As Long
i = 0

If Not Mdoc Is Nothing Then
    Set sDoc = Documents.Add
    EndPos = sDoc.Paragraphs(sDoc.Paragraphs.Count).Range.End - 1
    Set sRange = sDoc.Range(Start:=EndPos, End:=EndPos)
    sRange.InsertAfter "图片来自：" + Mdoc.Name + Chr(10) + Chr(13)
    For Each Mshape In Mdoc.InlineShapes
        With sRange
            EndPos = sDoc.Paragraphs(sDoc.Paragraphs.Count).Range.End - 1
            .SetRange EndPos, EndPos
            .InsertAfter "P" + Trim(Str(Mshape.Range.Information(wdActiveEndPageNumber))) + Chr(10)
            EndPos = sDoc.Paragraphs(sDoc.Paragraphs.Count).Range.End - 1
            .SetRange EndPos, EndPos
            Mshape.Range.Copy
            .Paste
            EndPos = sDoc.Paragraphs(sDoc.Paragraphs.Count).Range.End - 1
            .SetRange EndPos, EndPos
           .InsertAfter Chr(10) + Chr(13)
        End With
        i = i + 1
        Label4.Caption = Str(Int(i * 100 / Mdoc.InlineShapes.Count)) + "%"
        DoEvents
    Next
    If Dir("c:\方案检查\", vbDirectory) = "" Then MkDir "c:\方案检查\"
    sDoc.SaveAs2 "c:\方案检查\图片来自" + Mdoc.Name
    ExtractShape = True
Else
    ExtractShape = False
End If
Exit Function
Err:
    ExtractShape = False
    MsgBox "出错了！" & vbCrLf & "错误编号：" & Err.Number & " 错误描述：" & Err.Description
End Function

Function ExtractTable(Mdoc As Document) As Boolean
On Error GoTo Err
Dim sDoc As Document
Dim Mtable As Table
Dim sRange As Range
Dim i As Long, EndPos As Long
i = 0
If Not Mdoc Is Nothing Then
    Set sDoc = Documents.Add
    EndPos = sDoc.Paragraphs(sDoc.Paragraphs.Count).Range.End - 1
    Set sRange = sDoc.Range(Start:=EndPos, End:=EndPos)
    sRange.InsertAfter "表格来自：" + Mdoc.Name + Chr(10) + Chr(13)
    For Each Mtable In Mdoc.Tables
        With sRange
            EndPos = sDoc.Paragraphs(sDoc.Paragraphs.Count).Range.End - 1
            .SetRange EndPos, EndPos
            .InsertAfter "P" + Trim(Str(Mtable.Range.Information(wdActiveEndPageNumber))) + Chr(10)
            EndPos = sDoc.Paragraphs(sDoc.Paragraphs.Count).Range.End - 1
            .SetRange EndPos, EndPos
            Mtable.Range.Copy
            .Paste
            EndPos = sDoc.Paragraphs(sDoc.Paragraphs.Count).Range.End - 1
            .SetRange EndPos, EndPos
           .InsertAfter Chr(10) + Chr(13)
        End With
        i = i + 1
        Label4.Caption = Str(Int(i * 100 / Mdoc.InlineShapes.Count)) + "%"
        DoEvents
    Next
    If Dir("c:\方案检查\", vbDirectory) = "" Then MkDir "c:\方案检查\"
    sDoc.SaveAs2 "c:\方案检查\表格来自" + Mdoc.Name
    ExtractTable = True
Else
    ExtractTable = False
End If
Exit Function
Err:
    ExtractTable = False
    MsgBox "出错了！" & vbCrLf & "错误编号：" & Err.Number & " 错误描述：" & Err.Description
End Function


Private Sub CommandButton1_Click()

    With Application.FileDialog(msoFileDialogFilePicker)
        .AllowMultiSelect = False
        .Filters.Clear
        .Filters.Add "Word文件", "*.doc;*.docx"
        .Filters.Add "All Files", "*.*"
        If .Show = -1 Then
            'FileDialog 对象的 Show 方法显示对话框，并且返回 -1（如果您按 OK）和 0（如果您按 Cancel）。
            TextBox1.Text = .SelectedItems(1)
        End If
    End With
    If Trim(TextBox1.Text) <> "" Then
        Set BDoc = Documents.Open(FileName:=TextBox1.Text, Visible:=False)
        SetFocus hWndForm
    End If
End Sub

Private Sub CommandButton2_Click()
    With Application.FileDialog(msoFileDialogFilePicker)
        .AllowMultiSelect = False
        .Filters.Clear
        .Filters.Add "Word文件", "*.doc;*.docx"
        .Filters.Add "All Files", "*.*"
        If .Show = -1 Then
            'FileDialog 对象的 Show 方法显示对话框，并且返回 -1（如果您按 OK）和 0（如果您按 Cancel）。
            TextBox2.Text = .SelectedItems(1)
        End If
    End With
    If Trim(TextBox2.Text) <> "" Then
        Set CDoc = Documents.Open(FileName:=TextBox2.Text, Visible:=False)
        SetFocus hWndForm
    End If
End Sub


Private Sub CommandButton3_Click()
Dim Atrack As Boolean, Btrack As Boolean
    If ADoc Is Nothing Then
        MsgBox "请选择并打开主文件！"
        Exit Sub
    Else
        Atrack = ADoc.TrackRevisions
        ADoc.TrackRevisions = False
    End If
    If BDoc Is Nothing Then
        MsgBox "请选择并打开对比文件！"
        Exit Sub
    Else
        Btrack = BDoc.TrackRevisions
        BDoc.TrackRevisions = False
    End If
    HighlightFinder = CheckBox1.Value
'    Application.Visible = False
    ADoc.TrackRevisions = False
    started = Not started
    If started Then
        CommandButton3.Caption = "正在检查,点击停止"
        GMap
        started = Not started
        CommandButton3.Caption = "开始文字雷同检查"
    Else
        CommandButton3.Caption = "开始文字雷同检查"
    End If

    ADoc.TrackRevisions = Atrack
    BDoc.TrackRevisions = Btrack
    Application.Visible = True
End Sub


Private Sub CommandButton4_Click()
    With Application.FileDialog(msoFileDialogFilePicker)
        .AllowMultiSelect = False
        .Filters.Clear
        .Filters.Add "Word文件", "*.doc;*.docx"
        .Filters.Add "All Files", "*.*"
        If .Show = -1 Then
            'FileDialog 对象的 Show 方法显示对话框，并且返回 -1（如果您按 OK）和 0（如果您按 Cancel）。
            TextBox3.Text = .SelectedItems(1)
        End If
    End With
    If Trim(TextBox3.Text) <> "" Then
        Set ADoc = Documents.Open(FileName:=TextBox3.Text, Visible:=False)
        SetFocus hWndForm
    End If
End Sub

Private Sub CommandButton5_Click()
    With Application.FileDialog(msoFileDialogFilePicker)
        .AllowMultiSelect = False
        .Filters.Clear
        .Filters.Add "Word文件", "*.doc;*.docx"
        .Filters.Add "All Files", "*.*"
        If .Show = -1 Then
            'FileDialog 对象的 Show 方法显示对话框，并且返回 -1（如果您按 OK）和 0（如果您按 Cancel）。
            TextBox4.Text = .SelectedItems(1)
        End If
    End With
    If Trim(TextBox4.Text) <> "" Then
        Set ADoc = Documents.Open(FileName:=TextBox3.Text, Visible:=False)
        SetFocus hWndForm
    End If
End Sub

Private Sub CommandButton6_Click()
    Application.ScreenUpdating = False
    If ExtractShape(ADoc) Or ExtractShape(BDoc) Then
        MsgBox "抽取完成，请查看对比图片文件"
    Else
        MsgBox "抽取没有正常完成！"
    End If
    Application.Visible = True
    Application.ScreenUpdating = True
End Sub

Private Sub CommandButton7_Click()
    Application.ScreenUpdating = False
    If ExtractTable(ADoc) Or ExtractTable(BDoc) Then
        MsgBox "抽取完成，请查看对比表格文件"
    Else
        MsgBox "抽取没有正常完成！"
    End If
    Application.Visible = True
    Application.ScreenUpdating = True
    
End Sub

转载于:https://my.oschina.net/u/2464371/blog/3037367

weixin_34006965
关注
  • 2
    点赞
  • 踩
  • 4
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
word如何查重
jia_you_ya_的博客
01-27 6958
Word是我们最常见的文章格式，大多数的的论文也是由最开始的Word格式一步一步完成的，那么我们完成论文的初稿了（word文件），我们能不能直接用Word格式的文件去查重呢？ 放心，用Word格式是可以直接进行查重的，因为正规的论文查重系统会对文件进行加密，保证原文的安全和准确性！ 而且论文查重一般都用Word格式，因为相比于PDF文件，Word不容易出错，Word文档的准确性更好。 今天我为大家推荐的微信“查重”小程序，就具备我们即将毕业的学生所迫切需要的功能，从小程序的名字可以
查重与修改软件
04-12
欢迎使用潜紫编写的论文潜搜软件，类似“论文照妖镜”的软件，输入或粘贴你要查找的论文语句内容，先点击“分析文档”；再点击“进行对比”（按照内容的数量自动分析语句数量，每次点击可以依次网络进行搜索）即可！
word文件查重工具
10-13
word文件查重工具，能够对word文件进行文字、图片的查询及行政区域查询
word文档查重
07-23
支持word文档查重，协助进行各类标书word文件查询重复部分。
word文档查重_论文查重的窍门
weixin_39859061的博客
12-02 430
　　大家都知道论文查重，都是使用论文查重系统，都是用电脑程序查重，跟人审核完全不一样，系统程序都是通过独有的算法，将论文与数据库的所有文章进行比对，是非常刻板的。因此，为了避免论文查重，我们还是需要掌握一些论文查重小窍门。下面给大家分享一下论文查重小窍门。　　这里说的论文查重小窍门，其实就是论文修改隆重技巧，毕竟无论是谁，论文都不可能一次性通过，都会要来回修改的。运用论文修改小窍门，论文查重快速通...
word查重_无限次使用，论文查重工具~
weixin_39736606的博客
12-12 1287
说来惭愧，我精华君其实并没有上过大学。所以我朋友第一次告诉我说论文查重居然需要收费时，我的表情是震惊的。然后得知一篇论文的全部查重可能需要耗费小一百元时，我的内心是崩溃的。关键它还不一定一次就能通过对吧，你甚至要差两次甚至三次才能保证重复率较小。看起来写论文不止费脑子，还费钱。PP论文查重检测软件这是一款PC端的论文查重软件，最大的优势就是无限次数的免费查重。并且会给你提供查重的检测报告...
亲测可用word文档查重.zip
11-28
支持word文档查重，协助进行各类标书word文件查询重复部分。分享给大家测试学习用 亲测可用，欢迎下载！希望能帮助到你
c# word、txt文档文件对比(查重)
04-14
可以使用`Microsoft.Office.Interop.Word`命名空间，但这会引入对Office软件的依赖。这里我们不采用此方式，而是使用一个间接方法：先将Word文档另存为txt格式，然后读取txt文件。 2. **预处理**：在对比前，可能...
Word内查重与词频统计202103-纯C#版本-vs2010编写.rar
04-16
本项目“Word内查重与词频统计202103-纯C#版本”是基于C#编程语言，利用Visual Studio 2010开发环境实现的，旨在为用户提供一种有效检测英文Word文档内部重复内容以及进行词频统计的工具。下面将详细解析其核心知识...
有哪些好用的word文件对比工具
anna_tian的博客
03-16 9209
word文档是我们最常用的文件类型之一，我们日常处理文件经常需要对比文件的不同。遇到这种情况，大家可能会想了解“word怎样对比两篇文档的不同，word文件对比工具有哪些”。 一、word文件对比工具有哪些 首先要明确的是，对比两篇word文档，最快捷的方式是选择一款好用的工具。工具自动进行比较、展示结果，省时省力。 接下来我们看下，word文档对比工具有哪些。 市面上适用于word文档的文件对比工具包括两类，一类是word自带的工具，第二类是第三方文件对比工具，以下分别介绍两类各自的优缺点： Word自带
Word查找重复的内容
AlexLiu_2019的博客
06-03 1万+
Word查找重复的内容
基于VBA的作者查重代码
04-12
基于VBA的作者查重代码，高亮显示所有被引用的作者名字
我的创作纪念日，给大家分享wordVBA在文档中查重的代码
zhangdabai1的博客
04-07 745
【代码】我的创作纪念日，给大家分享wordVBA在文档中查重的代码。
2篇word文档比较重复率_办公效率 | 10个让你突飞猛进的Word技能
weixin_39960319的博客
11-22 3691
前言我想，使用过电脑的绝大部分同学应该都和微软的办公三件套word、powerpoint、Excel打过交道。当使用这3款办公之后会发现，它们看似简单，但是却又异常复杂，会使用与精通之间的悬殊差距显而易见。就以Excel为例，会使用的同学可以用Excel做一些日常数据的数学运算、画一些简单的图示，而精通Excel的同学可以让这款办公工具发挥出不亚于中级Python数据分析师的功效。我们可以对这些高...
【办公-excel】VBA 选择文件、文件夹
少莫千华
05-16 1万+
1、选择单个文件Sub SelectFile() '选择单一文件 'www.okexcel.com.cn With Application.FileDialog(msoFileDialogFilePicker) .AllowMultiSelect = False '单选择 .Filters.Clear '清除文...
批量word转pdf——VBS脚本，在office宏中运行即可
CSDN专栏--北京中关村
04-15 2142
批量word转pdf——VBS脚本，在office宏中运行即可 Sub 批量word转pdf() Application.DisplayAlerts = False Application.ScreenUpdating = False Dim fDialog As FileDialog Set fDialog = Application.FileDialog(msoFileDialogFilePicker) '返回一个 FileDialog 对象，该对象代表文件对话框的单个实例。 Di...
如何用VBA打开选择文件和选择路径的对话框
热门推荐
GengV - 在Java的世界流浪
07-07 1万+
注意引用　microsoft　office   10.0   （或以上）　object   library         在文件对话框对中返回选择一个文件夹的路径.     Public   Function   ChooseFolder()   As   String     Dim   dlgOpen   As   FileDialog     Set   d
VBA7种遍历方法
weixin_34001430的博客
03-06 3430
Sub 在选定文档最后加入一句话() '遍历文件 Dim MyDialog As FileDialog On Error Resume NextApplication.ScreenUpdating = False Set MyDialog = Application.FileDialog(msoFileDialogFilePicker) With MyDialog' ...
使用Python的Turtle库绘制动态风车
最新发布
爱写代码的小朋友
07-20 118
python绘制风车
Word2016办公软件深度解析：安装与操作指南
本章节详细介绍了Microsoft Office 2016中的字处理软件Word 2016，它是Microsoft Office套件的核心应用之一。首先，章节概述了Office 2016的基本信息，包括其不同版本以及安装时所需的硬件和操作系统要求。安装方法...

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值