一、Excel中怎样利用vba实现

既然都可以说得那么清楚，我就把说明与注意点，直接备注在代码中了，完整代码如下 Sub admin()Dim xWk As Workbook, xSh As Worksheet, xRan As RangeDim nWk As Workbook'要复制内容为当天工作表Set xWk = ActiveWorkbookSet xSh = ActiveSheet'保存的文件名为A1单元格里的内容，如果是其它单元格，修改这里Set xRan = xSh.Range("A1")Set nWk = Workbooks.AddxSh.Cells.CopynWk.Worksheets(1).Range("A1").PasteSpecial xlPasteValues'保存在与复制内容同一目录下nWk.SaveAs xWk.Path & "\" & xRan.ValueEnd Sub。

二、vba 将 word 字符复制到excel 或txt

你的代码可以用的。

Sub test()

Dim i

Dim Wrd As Range

i = Selection.Font.ColorIndex

For Each Wrd In ActiveDocument.Words

If Wrd.Font.ColorIndex i Then Wrd.Copy

SaveAsTxtFile '调用SaveAsTxtFile

Next Wrd

End Sub

Sub SaveAsTxtFile()

Const 指定文件名 = "autosave01.txt"

Documents.Add Template:="Normal", NewTemplate:=False, DocumentType:=0

Selection.PasteSpecial Link:=False, DataType:=wdPasteText

ActiveDocument.SaveAs2 FileName：=指定文件名， FileFormat:=wdFormatText, Encoding:=936

ActiveDocument.Close

End Sub

三、word中怎么一次选中所有表格

1、打开word文档，切换到“视图”标签-点击“宏”下拉箭头-点击“查看宏”。

2、在弹出的宏创建对话框，输入宏名字（可以是中文），然后点击右侧“创建”按钮。 3、用所给的代码替换掉默认的内容：Sub SelectAllTables（)、Application.ScreenUpdating = False '判断文档是否被保护 If ActiveDocument.ProtectionType = wdAllowOnlyFormFields Then MsgBox "文档已保护，此时不能选中多个表格！"； 4、粘贴完代码后，直接点击工具栏的运行按钮?，此时文档中所有表格已经选中，关闭VBA编辑器。

（再次运行宏的话，直接Alt+F8打开对话框，选中宏点击右侧“运行”） 5、回到文档，在“表格工具”-设计-设置框线粗细-边框下拉菜单里点击“所有边框”，如果点击一次“所有边框”是取消掉所有表格的框线，接着再点一次“所有框线”即可。 6、最后再检查从前往后检查一下，这个设置好像会把表格单元格内斜线取消掉，需要重新加一下。

。

转载请注明出处51数据库 » vbaword全选拷贝到excel