geekuninstaller姓无效

Posted 2023-05-04

《Geek Uninstallers 1.4.8.145卸载工具》百度网盘资源免费下载:

链接: https://pan.baidu.com/s/1MZ7AdMsbUfEgVyGg9E68-w

?pwd=w9qh 提取码: w9qh

Geek Uninstallers 1.4.8.145最新单文件版是一款高效、快速、小巧、免费的软件卸载与清理工具，旨在帮助用户删除系统上安装的程序。不同于其他的卸载程序，Geek Uninstaller执行深入扫描进程，并清除软件卸载后留下的垃圾。

参考技术A 重新安装。
工具/原料：GeekUninstaller、酷狗游戏盒（演示前提前安装）
方法/步骤：
1、下载GeekUninstaller,百度搜索，点击官网，进入，如图：
2、选择免费绿色版本，将下载下来的压缩包解压后，打开，如图所示：
3、在打开的软件中选择要删除的软件，点击卸载便可以便捷卸载软件，同时，也可以通过点击注册表条目，查看注册表
GeekUninstaller是一个免费的专业强力删除软件,强制卸载软件,体积为1.7M左右,它具有许多出众的功能,从而可以保证卸载无残留,系统运行速度也不会有丝毫下降。

text 调整作者名和姓顺序

Sub 调整作者名和姓顺序()
Dim myrange As Range

  Call layout_search_replace.jump_to_reference_section
     With selection.Find
    .Text = "[A-Z][A-Za-z]{1,}\, [A-Z]\."
    .MatchWildcards = True
    .Wrap = wdFindStop
    .Forward = True
    Do
    .Execute
        If Not .Found Then
        Exit Do
        End If
        If .Found And selection.Range.Previous(wdCharacter, 2) <> ")" And Asc(selection.Range.Previous(wdCharacter, 1)) <> 13 Then
'        If IsNumeric(selection.Range.Next(wdCharacter, 5)) = False Then
'        selection.MoveEndUntil "."
'        'selection.MoveEndWhile ".,"
'        End If
If selection.Range.Next = "," Then
selection.MoveRight wdCharacter, 1, wdExtend
End If
        selection.MoveRight wdCharacter, 1, wdExtend
        Set myrange = selection.Range
                myrange.Select
                myrange.SetRange Start:=selection.Range.Start + 1 + InStr(selection.Range, ","), End:=selection.Range.End
                myrange.HighlightColorIndex = wdYellow
                
                myrange.Cut
                selection.collapse wdCollapseStart
                selection.Paste
                'selection.Comments.Add Range:=ActiveDocument.Range(Start:=selection.Range.Start - 3, End:=selection.Range.Start), Text:="The authors name please use full name."
                'selection.TypeText ", "
                If selection.Range.Next = "," Then
                selection.MoveRight wdCharacter, 1, wdExtend
                Set myrange = selection.Range
                myrange.Select
                myrange.SetRange Start:=selection.Range.Start + 1 + InStr(selection.Range, ","), End:=selection.Range.End
                myrange.HighlightColorIndex = wdYellow
             
                myrange.Cut
                selection.collapse wdCollapseStart
                selection.Paste
               ' selection.Comments.Add Range:=ActiveDocument.Range(Start:=selection.Range.Start - 3, End:=selection.Range.Start), Text:="The authors name please use full name."
                selection.TypeText " "
                End If
        End If
    Loop
    End With
End Sub