原创并分享：我的得意代码

numbman

很厉害。特别喜欢第六段代码

kannaore

学习，收藏

wdpfox

学习收藏，多谢老师慷慨分享好资料！
　　　　　　Oooo
　　　　　　(___)
　　oooO  　 )_/
　　(___) 　 (_/
　　 \_(
　　　\_)

xifeng116

zhanglei1371 发表于 2013-8-21 21:01
3.我的段落缩进
这应该是我非常满意的作品了。花了我不少时间去反复改进，也是我目前应用最频繁的代码了。 ...

请问老师：Do While pa.Range.Characters(pa.Range.Characters.Count - 1) Like "[" & Chr$(9) & ChrW(160) & t16 & ChrW("&H" & "0020") & ChrW("&H" & "E5E5") & Chr$(32) & "　""]" 中

t16 代表什么？

zhanglei1371

xifeng116 发表于 2017-10-2 00:46
请问老师：Do While pa.Range.Characters(pa.Range.Characters.Count - 1) Like "[" & Chr$(9) & ChrW(16 ...

Public Function Decode(strDecode As String) As String  '作用：将16进制数据编码转化为字符串
    Dim i As Long
    Dim strCode$ '存储转换后的编码
    Dim chrTmp$
    On Error GoTo ErrProc
    If Len(strDecode) Mod 4 <> 0 Then GoTo ErrProc
    For i = 1 To Len(strDecode) Step 4
        strCode = Mid$(strDecode, i, 4)
        chrTmp$ = ChrW("&H" & strCode)
        If chrTmp$ = "?" Then If strCode <> "003F" Then GoTo ErrProc
        Decode = Decode & chrTmp$
    Next
    Exit Function
ErrProc:
    Decode = strDecode
End Function

不过有了chrw，这些都可以取代了。

xifeng116

zhanglei1371 发表于 2017-10-3 11:05
Public Function Decode(strDecode As String) As String  '作用：将16进制数据编码转化为字符串
    Di ...

非常感谢解答！

40525299999

感谢楼主分享，需要好好理解和学习。

40525299999

太强大的功能了，实用性很强，老师，有个问题，我的是64位的word，植入代码有问题，能否帮忙解决一下

zhanglei1371

40525299999 发表于 2017-11-30 14:00
太强大的功能了，实用性很强，老师，有个问题，我的是64位的word，植入代码有问题，能否帮忙解决一下

改写成类似这样的形式：

1. #If Win64 Then
   
2.     Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
   
3.     Public Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
   
4.     Public Declare PtrSafe Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
   
5.     Public Declare PtrSafe Function GetMenuItemCount Lib "user32" (ByVal hMenu As Long) As Long
   
6.     Public Declare PtrSafe Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
   
7. #Else
   
8.     Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
   
9.     Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
   
10.     Public Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
    
11.     Public Declare Function GetMenuItemCount Lib "user32" (ByVal hMenu As Long) As Long
    
12.     Public Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
    
13. #End If

复制代码

我的电子表1516

老师太强大了，膜拜！资料收藏了，慢慢领会。学生还个word表格中含有合并单元格的替换与换算难题，近一个月来几乎崩溃了，但愿老师给予指教及帮助，请参见http://club.excelhome.net/thread-1387954-1-1.html，如能得到解决，学生感恩不尽，先谢谢了哦！