如何用VBA将文本转换成表格，如何批量建立超链接？

xiaobaige

问题1和2.rar (23.66 KB, 下载次数: 5)

2018-3-31 20:31 上传

点击文件名下载附件

413191246se

楼主，你的附件下载后提示说损坏了。第一个问题VBA代码如下：

1. Sub 文本转表格()
   
2. '请注意不要有空行！数据是以空格间隔的！
   
3.     Selection.WholeStory
   
4.     CommandBars.FindControl(ID:=122).Execute
   
5.     CommandBars.FindControl(ID:=123).Execute
   
6.     Selection.ConvertToTable Separator:=4, AutoFitBehavior:=wdAutoFitFixed
   
7.     Selection.Tables(1).Style = "网格型"
   
8. End Sub

复制代码

413191246se

楼主，下面是我去年探索到的《设置超链接》宏代码，仅供参考：

1. Sub 设置超链接()
   
2. '    ActiveDocument.Hyperlinks.Add Anchor:=Selection.Range, Address:="E:\是否有图片222\改革开放.doc" '设置超链接成功！
   
3.     Options.CtrlClickHyperlinkToOpen = False '单击超链接打开文件
   
4.     Dim i As Paragraph
   
5.     For Each i In ActiveDocument.Paragraphs
   
6.         i.Range.Select
   
7.         Selection.MoveEnd unit:=wdCharacter, Count:=-1
   
8.         i.Range.Hyperlinks.Add Anchor:=Selection.Range, Address:=Selection.Text
   
9.     Next
   
10. End Sub

复制代码

xiaobaige

413191246se 发表于 2018-4-1 11:59
楼主，下面是我去年探索到的《设置超链接》宏代码，仅供参考：

谢谢你、第二个问题我不会改，还请高手抽空看看。