[分享-好玩！]快来告诉我，这是什么？

yuyvtul

用域和替换功能完成。老大看看是否简单？ ①插入一个域代码{ SYMBOL }(原本为{SYMBOL \* MERGEFORMAT}，后面部分可去掉)，并在“}”前回车使其为两行便于后面操作，剪切使其在剪贴版中。 ②将空格替换成“^c”，即成为如图所示（若不是，全选，切换域代码）。 ③用Alt+鼠标选中前面数字，剪切，在后面粘贴。 ④全选，切换域代码。完成。

[此贴子已经被作者于2005-12-28 14:52:07编辑过]

gues1688

这样？
Sub convText()
Dim i%, strArray As Variant
strArray = Array(69, 88, 67, 69, 76, 72, 79, 77, 69, 44, 109, 121, 32, 108, 111, 118, 101, _
114, 44, 109, 121, 32, 104, 111, 109, 101, 33, 11, 104, 116, 116, 112, 58, 47, 47, 119, _
119, 119, 46, 101, 120, 99, 101, 108, 104, 111, 109, 101, 46, 110, 101, 116)
For i = 0 To UBound(strArray)
Selection.TypeText Chr(strArray(i))
Next i
End Sub

[此贴子已经被作者于2005-12-28 16:30:07编辑过]

gues1688

或者这样？
Sub convText1()
Dim i%, strArray As Variant
strArray = Array(69, 88, 67, 69, 76, 72, 79, 77, 69, 44, 109, 121, 32, 108, 111, 118, 101, _
114, 44, 109, 121, 32, 104, 111, 109, 101, 33, 11, 104, 116, 116, 112, 58, 47, 47, 119, _
119, 119, 46, 101, 120, 99, 101, 108, 104, 111, 109, 101, 46, 110, 101, 116)
For i = 0 To UBound(strArray)
strArray(i) = Chr(strArray(i))
Next i
MsgBox Join(strArray, "")
End Sub

yiyazi

　用查找　69　替换为　^69，就可以出现E　 　但当我想用通配符查找 [1-127]，替换为 ^^& 就不可以，找得不对（只查找1，2，7三个数字），替换也不对（比如我查找　69　，替换为　^^&　，结果就是一个　^&　），呵呵。 　我想这个查找最直接，但是不知道怎么免去要每个数字操作一次的繁琐，还去掉空格。期待版主的答案。 　今天看查找的贴子，学到不少东西，先谢谢各位老大。不过还不怎么会用。

[此贴子已经被作者于2005-12-28 17:28:58编辑过]

olo999

各位真是高手.

yuyvtul

受14楼启发，找到了另一法：

将空格替换为“^^”，则在每个数前面加上了一个“^”(开头可另加一个）。

复制。

随便弄个什么替换成“剪贴板数据”即可。

yiyazi

是了，用楼上的办法可以

守柔

复制一楼的文本，在WORD中粘贴后，选中这些文本，按下CTRL+F9，输入 QUOTE ，按下F9，你将立即看到结果。

这是QUOTE 域作用于数字的特殊结果，对于中文目前尚不可用。常规情况下QUOTE中插入的文本应以英文引号括住。此题中的所有数字直接来源于它们的ASC码。

以下代码供有兴趣的网友玩味：

Option Explicit
Sub Example()
Dim i As Integer, myRange As Range
With ActiveDocument
For i = 1 To 1000
Set myRange = .Range(.Content.End - 1, .Content.End - 1)
.Fields.Add myRange, wdFieldEmpty, "QUOTE " & i, False
Set myRange = .Range(.Content.End - 1, .Content.End - 1)
myRange.InsertAfter vbTab & i & vbCrLf
Next
End With
End Sub
Sub GetResult()
Dim i As Range, txtResult As String
On Error Resume Next
For Each i In Selection.Words
txtResult = txtResult & Chr(i * 1)
Next
Selection.InsertAfter Chr(13) & txtResult
End Sub

办公之星

EXCELHOME,my lover,my home! http://www.excelhome.net 绝了！ 请问老大，有没有可以反编译的域或者代码。就是说，随便写几句话，让它生成一段数码？

[此贴子已经被作者于2005-12-29 17:30:18编辑过]

yuyvtul

老大办法最高，但为什么有时得不到结果(什么都不显示)？