所以我想使用notepad++来更有效地处理我正在做的事情,我希望我想要的东西通过Notepad++或任何其他方法都是可能的。
有没有可能把“美国”替换成“联合王国”和“联合王国”,反之亦然?
我正在处理urls,这是一个痛苦的冲洗和重复手动替换“联合王国”与美国或“联合王国”到“联合王国”。
如果这是完全不可能的,那么感谢您的时间。
无法显示代码,因为它是机密的。谢谢。
我能做的最多就是:
案例1:
Lorem Ipsum is simply dummy text of the printing and typesetting industry
Lorem Ipsum has been th
我正在编写一个VBA代码,以输入用户表单,然后将该数据从Excel表传输到已经存在的Word文档。我的Excel部分没问题。
我的文档中包含了批号、制造日期等各种单词,每一次都有很多次。我将不得不找到这些词,并插入批号和制造日期从用户表单,每次他们被发现在整个文件。
最初,我试图在整个文档中找到一个单词,但是我的子程序只能找到第一个实例,而不是在文档的其余部分找到类似的单词。
请帮帮忙
Sub Copy_data2()
Dim my_filename As Variant
Dim my_filenameword As Variant
Dim objselection
我正尝试在Tableau中创建一个word cloud,但我需要先在Excel中准备数据。我已经删除了所有非字母数字的字符。但现在我想删除not、it或is等词。
老实说,我只想删除所有少于3个字符的单词。我使用VBA尝试了以下两段代码。
Sub removeSmallWords()
ScreenUpdating = False
Dim rng As Range
Set rng = Range("A1:A10")
Dim oReg As Object
Set oReg = CreateObject("vbscript.regexp")
For Each c
所以,我得到了excel表格,上面用空格栏隔开了一堆单词。所以这一行是这样的:
excel write a sheep e shave shovel with no g life less f
...
...
我的问题是,有没有办法去除那些特定的词语?例如,如果我想删除长度为1的单词,结果应该如下:
excel write sheep shave shovel with no life less
...
...
我对VBA不熟悉,所以我想问一问是否有一种方法可以帮助我。
谢谢!
例如,我得到了文本文档。如下所示:
At around 6am last Bank Holiday **Monday** I was called by our **Australian** news desk who informed me of the news. Stumbling from my bed to the lounge, still half asleep and with the remnants of an enjoyable **Sunday evening** taking revenge on my skull, I was struggling to proce
我想从数据生成一个word文档在excel中的特定列…这样我将有N页word文档中的N个记录在Excel中...
我还想自定义该数据在单词中的位置.....
例如,假设来自excel的第一个数据应该出现在word文档的第一页上,从顶部开始10 5cm,从左侧开始5 5cm。
我试过一个宏,它用excel的特定单元格中的数据生成一个单词。
但无法在新页面上找到下一个单元格数据并自定义其位置..
Option Explicit
Sub Create_New_WordDoc()
Dim wsApp As Word.Application
Set wsApp = CreateObject("
我有包含全名的单元格值。
我想从整个Excel表格中替换/删除以下字符:
Al
Al-
EL
El-
但事实上,我希望只有当单词以那个字符开头时,它们才会被替换。例如:
Alorfze -(删除"al") arALfzi -(不删除"al") Ibrahim El-ketoob (删除"el-")
此外,只有当匹配的单词有超过4个字符时,它才会替换该字符。
我正在使用Excel 2010,需要一个宏将字符串中的特定单词更改为大写。例如,在“所有当前的下水道管道都归hrsd所有,而不归城市所有”中,hrsd需要是大写的HRSD。
以下宏适用于单个单词,但不适用于字符串:
If Target.Cells.Count > 1 Or Target.HasFormula Then Exit Sub
On Error Resume Next
If Not Intersect(Target, Range("H2:H3000")) Is Nothing Then
Application.EnableEvents = False
Private Sub CommandButton1_Click()
Dim oRng As Word.Range
Dim arrExcelValues()
Dim i As Long
Dim x As Long
Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open("C:\Risk Words.xlsx")
objExcel.Visible = False
i = 1
x = 0
Do Until objExcel.Cells(
我想删除某一单词所在行的第一个字母。具体的单词是" description“,我想删除分号,但只删除单词description出现的那一行。其他行应该保持不变,除非单词description也出现在那里。
示例:
;Version 21
;What is done here is the madness (description).txt;
;Version 22
;555 see above
完成版本
;Version 21
What is done here is the madness (description).txt;
;Version 22
;555 see above
我
我在Excel中有一个由两列组成的数据,看起来像这样:第一列是一个值,第二列包含一个相应的单词。但是,我希望删除此数据集中的行,这样,最后,对于第二列中的每个唯一字,只保留列一中的值是该字的最大值的一行,甚至删除那些具有每个唯一字的最大值的重复的行,并为每个唯一字保留一行。
2 cat
2 cat
1 cat
3 dog
2 dog
1 dog
2 milk
1 milk
2 juice
1 juice
列首先按列2排序(因此单词按字母顺序: A-Z),然后按列1排序(从最大到最小,因此最大值始终是每个单词的第一个值)。
我一直在尝试在Mac2011的E
我在SAS中有一段代码,它使用DDE输出到Excel,运行良好。我现在试图使它更加动态,但我不知道如何将路径行(2行)写到Excel文件中。
options noxwait noxsync;
x '"c:\Folder\excelfile_&date_yyyymmdd\Holding\Holding.xls'";
/* Putting SAS in sleep mode to give Excel the necessary time to open the file */
data _null_; x=sleep(5);
run;
FILENAME
我已将启用了Excel宏的工作簿保存在受信任的位置。我正在尝试打开该工作簿并从Outlook运行宏。
Sub run_Excel_Macro()
Dim App As Excel.Application
Dim wkbk As Excel.Workbook
Set App = New Excel.Application
App.Visible = True
Set wkbk = App.Workbooks.Open("C:\file.xlsm")
App.OnTime DateAdd("s", 5, Now())
我正在开发一个应用程序,需要计算文档和修订中的单词。
正如您所看到的,我已经为Word文档解决了这个问题(嗯,可以解决的问题很多),但是现在我发现自己想知道如何从Excel或PowerPoint文档中获取这些数据。
到目前为止,MSDN文档并没有提供帮助--我会继续查找,但是如果有人知道答案,我将非常感谢您的帮助。
编辑:,因此,根据@Andrew提供的信息(谢谢他),我得到了用于部分的代码:
foreach (Excel._Worksheet s in ExcelBook.Sheets)
{
if (s.UsedRange.Value2 != null
我需要删除所有的新行,如果是连续的,我知道宏在excel中,而不是在word中,我如何读取整行的值?
我阅读了文档中的所有行文:
For i = 1 To 10
Selection.MoveDown Unit:=wdLine, Count:=1
Next i
是否有其他方法来阅读每一行,或者如何知道单词中的总行,以便将其放在for中?
谢谢
我正在尝试编写一个接受所有拼写建议的VBA宏。我有一段长时间的自动抄写,里面满是重复的单词。由于某些原因,Word编辑器没有接受所有功能。这就是我要做的事:
Sub AcceptSpellingSuggestions()
Dim er As Range
For Each er In ActiveDocument.SpellingErrors
If er.GetSpellingSuggestions.Count > 0
Then er.Text = er.GetSpellingSuggestions.Item(1).Name
End If
Next
End Sub